Hi Nicolas
There is an issue with org-feed. The backtrace is attached. I hope
this is enough to reproduce:
1) /tmp/feed.org:
#+begin_src org
,-*- coding: utf-8-unix -*-
,#+DRAWERS: FEEDSTATUS
,* podcast
, :FEEDSTATUS:
, :END:
#+end_src
2) (setq org-feed-alist '(("podcast"
"http://pod.drs.ch/sounds_mpx.xml"; "/tmp/feed.org" "podcast")))
3) (org-feed-update-all)
4) hit SPC once to workaround some non-related org-feed bug (?) that I
ignore
Michael
On Thu, Sep 22, 2011 at 20:25, Nicolas Goaziou <n.goaz...@gmail.com> wrote:
> Michael Brand <michael.ch.br...@gmail.com> writes:
>
>> The file name 0001-Provide-more-consistent-regexps-for-headlines.patch
>> made me curious and I take the opportunity to support such an effort
>> by testing this patch on release_7.7-316-gdecd722.
>
> Great! Thank you for testing it.
>
>> I found the issue that "* TODO task" setting to done with "C-c C-t d"
>> leads to "* DONE TODO task".
>
> Indeed. This is fixed in the following patch. Please disregard the
> previous one.
Debugger entered--Lisp error: (error "Wrong position")
signal(error ("Wrong position"))
error("Wrong position")
(if (looking-at org-complex-heading-regexp) nil (error "Wrong position"))
(unless (looking-at org-complex-heading-regexp) (error "Wrong position"))
(save-excursion (goto-char pos) (unless (looking-at
org-complex-heading-regexp) (error "Wrong position")) (setq level
(org-get-valid-level ... 1)) (org-end-of-subtree t t) (skip-chars-backward "
\n") (beginning-of-line 2) (setq pos (point)) (while (setq entry ...)
(org-paste-subtree level entry ...)) (org-mark-ring-push pos))
(let (entry level) (save-excursion (goto-char pos) (unless ... ...) (setq
level ...) (org-end-of-subtree t t) (skip-chars-backward " \n")
(beginning-of-line 2) (setq pos ...) (while ... ...) (org-mark-ring-push pos)))
org-feed-add-items(1 ("* Sounds!-Podcast - Vintage-Elektronik: das Apparat
Organ Quartet aus Island\n [2011-09-15 Thu 23:55]\n Vier Keyboarder und ein
Schlagzeuger bilden zusammen das Apparat Organ Quartet. Die Band aus Island
verzichtet auf moderne Computer und Sequencer, verwendet dafür analoge
Synthesizer, Farfisa-Orgeln und Casio-Keyboards. Ihr neues Album «Polyfonia»
tönt ein wenig nach Kraftwerk, Game-Soundtracks aus den 80er und Prog-Rock aus
den 90er-Jahren.\n
[[http://pod.drs.ch/mp3/sounds/sounds_201109152355_10193717.mp3]]\n"; "* Die
belgischen Indie-Rock-Urgesteine mit neuer CD\n [2011-09-19 Mon 23:55]\n
dEUS, die belgische Indie-Rock-Institution, feiern in diesem Jahr ihr
20-jähriges Jubiläum. Mit den Alben \"Worst Case Scenario (1994) „In A Bar,
Under The Sea\"(1996) und „The Ideal Crash\" (1999) wurden sie auch
international zu einer festen Grösse. Übriggeblieben Tom Barman und der
Keyboarder Klaas Janzoons. Waren die Vielschichtig und trotzdem geradlinig
präsentiert sich die neue, 6.CD „Keep You Close „. Verzichtet wurde auf
elektronische Spielereien („Vintage Point\"), Dancefloor-orientierte
Beatlastigkeit („The Architect\") oder Zerfahrenheit (\"Pocket Revolution\").
Angesagt ist entspannter Pop-Rock mit Klavier, Gitarre Streicher und Bläser.
von der Urbesetzung sind allerdings nur noch der Sänger und Gitarrist Tom
Barman und der Keyboarder Klaas Janzoons.\n
[[http://pod.drs.ch/mp3/sounds/sounds_201109192355_10194329.mp3]]\n"; "*
Sounds!-Podcast - Mit Düsi durch die Plattenläden Londons\n [2011-09-20 Tue
23:55]\n Unser Mann in London, Hanspeter Düsi Künzler , stöberte einmal mehr
in den Regalen der Plattenläden in der englischen Hauptstadt. Gefunden hat er
ein paar heisse, bei uns noch nicht veröffentlichten Herbstneuheiten auf CD und
Vinyl. Zu hören sind u.a. Duke Spirit, Veronica Falls, Real Tuesday Weld oder
Peggy Sue.\n
[[http://pod.drs.ch/mp3/sounds/sounds_201109202355_10194271.mp3]]\n"; "*
Podcast: Charmanter Folk-Pop vom Duo Slow Club aus Sheffield\n [2011-09-21 Wed
23:55]\n Kennengelernt haben sich Rebeccca Taylor und Charles Watson während
der Schulzeit in Sheffield. Seit 2006 machen sie unter dem Name Slow Club
gemeinsam Musik. Ihr Debut-Album «Yeah So» war geprägt von einer charmanten
Mischung aus Folk und Pop , beschränkt auf Gesang und Gitarre. Auf der neuen CD
«Paradise» kommen noch Geige, Piano und E-Gitarre hinzu. Herzschmerz, Liebe
und Tod sind die zentralen Themen. \n
[[http://pod.drs.ch/mp3/sounds/sounds_201109212355_10194350.mp3]]\n"; "*
Sounds!-Podcast - Interview mit St. Vincent\n [2011-09-22 Thu 23:55]\n Hinter
dem Namen St. Vincent steckt die texanische Singer/Songwriterin und
Multiinstrumentalistin Annie Clark. Im Sounds!-Interview spricht sie u.a. über
ihre Affinität zu Jazz (John Coltrane, Charlie Mingus), die Bedeutung von Tom
Waits oder ihre ersten musikalischen Gehversuche auf dem Computer. Ausserdem
verrät sie uns ihre literarischen Vorlieben und gibt Auskunft über die neue CD
«Strange Mercy».\n
[[http://pod.drs.ch/mp3/sounds/sounds_201109222355_10194051.mp3]]\n";))
(progn (if new-handler (progn ... ...) (setq new-formatted ...))
(org-feed-add-items inbox-pos new-formatted))
(if new (progn (if new-handler ... ...) (org-feed-add-items inbox-pos
new-formatted)))
(when new (if new-handler (progn ... ...) (setq new-formatted ...))
(org-feed-add-items inbox-pos new-formatted))
(save-window-excursion (setq inbox-pos (org-feed-goto-inbox-internal file
headline)) (setq old-status (org-feed-read-previous-status inbox-pos drawer))
(setq entries (mapcar ... entries)) (dolist (e entries) (if ... ... ... ...))
(setq new (mapcar parse-entry new) changed (mapcar parse-entry changed)) (when
filter (setq new ... changed ...)) (when (not ...) (message "No new items in
feed %s" name) (throw ... 0)) (setq guid-alist (append ... ...)) (setq status
(mapcar ... entries)) (when new (if new-handler ... ...) (org-feed-add-items
inbox-pos new-formatted)) (when (and changed-handler changed) (goto-char
inbox-pos) (funcall changed-handler changed)) (org-feed-write-status inbox-pos
drawer status) (goto-char inbox-pos) (hide-subtree) (show-children)
(org-cycle-hide-drawers (quote children)) (when org-feed-save-after-adding
(save-buffer)) (message "Added %d new item%s from feed %s to file %s, heading
%s" (length new) (if ... "s" "") name (file-name-nondirectory file) headline)
(run-hooks (quote org-feed-after-adding-hook)) (length new))
(save-excursion (save-window-excursion (setq inbox-pos ...) (setq old-status
...) (setq entries ...) (dolist ... ...) (setq new ... changed ...) (when
filter ...) (when ... ... ...) (setq guid-alist ...) (setq status ...) (when
new ... ...) (when ... ... ...) (org-feed-write-status inbox-pos drawer status)
(goto-char inbox-pos) (hide-subtree) (show-children) (org-cycle-hide-drawers
...) (when org-feed-save-after-adding ...) (message "Added %d new item%s from
feed %s to file %s, heading %s" ... ... name ... headline) (run-hooks ...)
(length new)))
(let ((name ...) (url ...) (file ...) (headline ...) (filter ...) (formatter
...) (new-handler ...) (changed-handler ...) (template ...) (drawer ...)
(parse-feed ...) (parse-entry ...) feed-buffer inbox-pos new-formatted entries
old-status status new changed guid-alist e guid olds) (setq feed-buffer
(org-feed-get-feed url)) (unless (and feed-buffer ...) (error "Cannot get feed
%s" name)) (when retrieve-only (throw ... feed-buffer)) (setq entries (funcall
parse-feed feed-buffer)) (ignore-errors (kill-buffer feed-buffer))
(save-excursion (save-window-excursion ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ...)))
(catch (quote exit) (let (... ... ... ... ... ... ... ... ... ... ... ...
feed-buffer inbox-pos new-formatted entries old-status status new changed
guid-alist e guid olds) (setq feed-buffer ...) (unless ... ...) (when
retrieve-only ...) (setq entries ...) (ignore-errors ...) (save-excursion ...)))
org-feed-update(("podcast" "http://pod.drs.ch/sounds_mpx.xml"; "/tmp/feed.org"
"podcast"))
mapcar(org-feed-update (("podcast" "http://pod.drs.ch/sounds_mpx.xml";
"/tmp/feed.org" "podcast")))
(apply (quote +) (mapcar (quote org-feed-update) org-feed-alist))
(let ((nfeeds ...) (nnew ...)) (message "%s from %d %s" (cond ... ... ...)
nfeeds (if ... "feed" "feeds")))
org-feed-update-all()
eval((org-feed-update-all))
eval-last-sexp-1(nil)
eval-last-sexp(nil)
call-interactively(eval-last-sexp nil nil)
