From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Problem pushing to org-mobile Date: Fri, 8 Jan 2010 06:56:28 +0100 Message-ID: <0582C14D-CF2C-4343-A762-BF7E94D9C37B@gmail.com> References: Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NT7pt-0005e4-1X for emacs-orgmode@gnu.org; Fri, 08 Jan 2010 00:56:37 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NT7po-0005ds-Ck for Emacs-orgmode@gnu.org; Fri, 08 Jan 2010 00:56:36 -0500 Received: from [199.232.76.173] (port=40652 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NT7po-0005dp-6h for Emacs-orgmode@gnu.org; Fri, 08 Jan 2010 00:56:32 -0500 Received: from ey-out-1920.google.com ([74.125.78.150]:6118) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NT7pn-0008JY-Db for Emacs-orgmode@gnu.org; Fri, 08 Jan 2010 00:56:31 -0500 Received: by ey-out-1920.google.com with SMTP id 4so2896540eyg.34 for ; Thu, 07 Jan 2010 21:56:30 -0800 (PST) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Cameron Horsburgh Cc: Emacs-orgmode@gnu.org Hi Cameron, one of your own custom agenda commands seems to not work properly. Please try all the commands listed when calling `org-agenda' (`C-c a') one by one to identify the trouble maker. Then fix the regular expression you are using in the skip function. HTH - Carsten On Jan 8, 2010, at 4:05 AM, Cameron Horsburgh wrote: > > Hi folks, > > For the last week I haven't been able to push to my WebDAV account. > When I run M-x org-mobile-push it seems to get stuck creating an > agenda file and fails with the message 'org-agenda-skip-if: Invalid > regexp: "Unmatched [ or [^" ' > > I've tried a few things to nail the problem down. I've removed > (most) of my files from the agenda list, leaving only files I know > have worked recently. I've run git-bisect against a version I know > to have worked and the same error appears every time, including the > known good one. So I'm going to assume I have a problem with my set > up. > > Here's my config, and I've included a backtrace at the end if anyone > finds it useful. Thanks for your help! > > current state: > ============== > (setq > org-export-latex-after-initial-vars-hook '(org-beamer-after-initial- > vars) > org-agenda-custom-commands '(("X" "SUMO" > ((agenda nil ((org-agenda-title-append "KEYS=a > TITLE: Agenda "))) > (alltodo nil ((org-agenda-title-append "KEYS=t TITLE: ALL > TODO "))) > (todo #("DELEGATED" 0 9 (face org-warning)) > ((org-agenda-title-append > #("KEYS=d TITLE: todo DELEGATED" 26 35 (face > org-warning))) > ) > ) > (todo #("DONE|DEFERRED|CANCELLED" 0 23 (face org-warning)) > ((org-agenda-title-append > #("KEYS=c TITLE: todo DONE|DEFERRED|CANCELLED" > 26 49 (face org-warning)) > ) > ) > ) > (todo #("WAITING" 0 7 (face org-warning)) > ((org-agenda-title-append > #("KEYS=w TITLE: todo WAITING" 26 33 (face org- > warning))) > ) > ) > (agenda "" > ((org-agenda-title-append "KEYS=W TITLE: agenda after>") (org-agenda-ndays 21))) > (agenda "" > ((org-agenda-title-append "KEYS=A TITLE: agenda ") > (org-agenda-skip-function > (lambda nil (org-agenda-skip-entry-if (quote notregexp) "\\=.* > \\[#A\\]"))) > (org-agenda-ndays 1) (org-agenda-overriding-header "Today's > Priority #A tasks: ")) > ) > (alltodo "" > ((org-agenda-title-append "KEYS=u TITLE: alltodo after>") > (org-agenda-skip-function > (lambda nil > (org-agenda-skip-entry-if (quote scheduled) (quote deadline) > (quote regexp) "<[^> >")) > ) > (org-agenda-overriding-header "Unscheduled TODO entries: ")) > ) > ) > ((org-agenda-compact-blocks nil)) ("/home/cameron/mnt/ > mydisk/org/agendas.org")) > ) > org-agenda-files '("~/gtd/diary.org" "~/gtd/Band/Band.org" "~/gtd/ > rsa/RSA.org" "~/gtd/JuniorYouthGroup/YouthGroup.org" > "~/gtd/Netball/Netball.org" "~/gtd/todo.org") > org-blocker-hook '(org-block-todo-from-children-or-siblings-or- > parent) > org-agenda-show-inherited-tags nil > org-after-todo-state-change-hook '(org-clock-out-if-current) > org-agenda-remove-tags t > org-startup-folded nil > org-deadline-warning-days 7 > org-export-latex-format-toc-function 'org-export-latex-format-toc- > default > org-agenda-skip-scheduled-if-done t > org-stuck-projects '("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") > ("Info") "") > org-export-preprocess-hook '(org-export-blocks-preprocess) > org-mobile-inbox-for-pull "~/gtd/from-mobile.org" > org-tab-first-hook '(org-hide-block-toggle-maybe) > org-src-mode-hook '(org-src-mode-configure-edit-buffer) > org-confirm-shell-link-function 'yes-or-no-p > org-export-first-hook '(org-beamer-initialize-open-trackers) > org-agenda-before-write-hook '(org-agenda-add-entry-text) > org-default-notes-file "~/gtd/notes.org" > org-agenda-skip-function '(lambda nil > (org-agenda-skip-entry-if (quote scheduled) (quote deadline) > (quote regexp) "<[^> >")) > org-directory "~/gtd/" > org-export-docbook-xslt-proc-command "java > org.apache.xalan.xslt.Process -out %s -in %s -xsl /usr/share/xml/ > docbook/stylesheet/docbook-xsl/xhtml-1_1/docbook.xsl" > org-blank-before-new-entry '((heading) (plain-list-item)) > org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide- > drawers org-cycle-show-empty-lines > org-optimize-window-after-visibility-change) > org-export-preprocess-before-normalizing-links-hook '(org-remove- > file-link-modifiers) > org-mode-hook '((lambda nil > (org-add-hook (quote change-major-mode-hook) (quote org-show- > block-all) (quote append) (quote local))) > #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode- > hook org-show-block-all append local] > 5] > ) > org-confirm-elisp-link-function 'yes-or-no-p > org-fast-tag-selection-single-key 'expert > org-agenda-start-on-weekday nil > org-enforce-todo-dependencies t > org-agenda-skip-deadline-if-done t > org-reverse-note-order t > org-occur-hook '(org-first-headline-recenter) > org-from-is-user-regexp "\\" > org-mobile-directory "~/mnt/mydisk/org/" > org-export-preprocess-before-selecting-backend-code-hook '(org- > beamer-select-beamer-code) > org-export-docbook-xsl-fo-proc-command "fop %s %s" > org-remember-templates '(("" 116 "* TODO %?" "~/gtd/todo.org" > "Unfiled items") > ("" 110 "* %u %?" "~/gtd/notes.org" "Notes") > ("My diary entry" 100 "* Diary entry: %?\n %^T" "~/gtd/ > diary.org" "Diary date") > ("" 119 "* %u %c %:region" "~/gtd/bookmarks.org" "Web links")) > org-export-latex-final-hook '(org-beamer-amend-header org-beamer- > fix-toc org-beamer-auto-fragile-frames > org-beamer-place-default-actions-for-lists) > ) > > =============Backtrace > > Debugger entered--Lisp error: (invalid-regexp "Unmatched [ or [^") > re-search-forward("<[^> >" 641 t) > (and (setq m (memq ... conditions)) (stringp (nth 1 m)) (re-search- > forward (nth 1 m) end t)) > (or (and (memq ... conditions) (re-search-forward org-scheduled- > time-regexp end t)) (and (memq ... conditions) (not ...)) (and > (memq ... conditions) (re-search-forward org-deadline-time-regexp > end t)) (and (memq ... conditions) (not ...)) (and (memq ... > conditions) (re-search-forward org-ts-regexp end t)) (and (memq ... > conditions) (not ...)) (and (setq m ...) (stringp ...) (re-search- > forward ... end t)) (and (setq m ...) (stringp ...) (not ...))) > (and (or (and ... ...) (and ... ...) (and ... ...) (and ... ...) > (and ... ...) (and ... ...) (and ... ... ...) (and ... ... ...)) end) > (let (beg end m) (org-back-to-heading t) (setq beg (point) end (if > subtree ... ...)) (goto-char beg) (and > (or ... ... ... ... ... ... ... ...) end)) > org-agenda-skip-if(nil (scheduled deadline regexp "<[^> >")) > org-agenda-skip-entry-if(scheduled deadline regexp "<[^> >") > (lambda nil (org-agenda-skip-entry-if (quote scheduled) (quote > deadline) (quote regexp) "<[^> >"))() > funcall((lambda nil (org-agenda-skip-entry-if (quote scheduled) > (quote deadline) (quote regexp) "<[^> >"))) > (if fp (funcall org-agenda-skip-function) (eval org-agenda-skip- > function)) > (progn (if fp (funcall org-agenda-skip-function) (eval org-agenda- > skip-function))) > (unwind-protect (progn (if fp ... ...)) (set-match-data save-match- > data-internal (quote evaporate))) > (let ((save-match-data-internal ...)) (unwind-protect (progn ...) > (set-match-data save-match-data-internal ...))) > (save-match-data (if fp (funcall org-agenda-skip-function) (eval > org-agenda-skip-function))) > (save-excursion (save-match-data (if fp ... ...))) > (setq to (save-excursion (save-match-data ...))) > (and (or (setq fp ...) (consp org-agenda-skip-function)) (setq to > (save-excursion ...))) > (if (and (or ... ...) (setq to ...)) (progn (goto-char to) > (throw :skip t))) > (when (and (or ... ...) (setq to ...)) (goto-char to) (throw :skip > t)) > (let ((p ...) to fp) (and org-agenda-skip-archived-trees (not org- > agenda-archives-mode) (get-text-property p :org-archived) (org-end- > of-subtree t) (throw :skip t)) (and org-agenda-skip-comment-trees > (get-text-property p :org-comment) (org-end-of-subtree t) > (throw :skip t)) (if (equal ... 35) (throw :skip t)) (when > (and ... ...) (goto-char to) (throw :skip t))) > org-agenda-skip() > (catch :skip (save-match-data (beginning-of-line) (setq beg ... > end ...) (when ... ... ... ...)) (goto-char beg) (org-agenda-skip) > (goto-char (match-beginning 1)) (setq marker (org-agenda-new- > marker ...) category (org-get-category) txt (match-string 1) tags > (org-get-tags-at ...) txt (org-format-agenda-item "" txt category > tags) priority (1+ ...) todo-state (org-get-todo-state)) (org-add- > props txt props (quote org-marker) marker (quote org-hd-marker) > marker (quote priority) priority (quote org-category) category > (quote type) "todo" (quote todo-state) todo-state) (push txt ee) (if > org-agenda-todo-list-sublevels (goto-char ...) (org-end-of- > subtree ...))) > (while (re-search-forward regexp nil t) (catch :skip (save-match- > data ... ... ...) (goto-char beg) (org-agenda-skip) (goto-char ...) > (setq marker ... category ... txt ... tags ... txt ... priority ... > todo-state ...) (org-add-props txt props ... marker ... marker ... > priority ... category ... "todo" ... todo-state) (push txt ee) (if > org-agenda-todo-list-sublevels ... ...))) > (let* ((props ...) (regexp ...) marker priority category tags todo- > state ee txt beg end) (goto-char (point-min)) (while (re-search- > forward regexp nil t) (catch :skip ... ... ... ... ... ... ... ...)) > (nreverse ee)) > org-agenda-get-todos() > (setq rtn (org-agenda-get-todos)) > (cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq > arg :timestamp) (setq rtn ...) (setq results ...) (setq rtn ...) > (setq results ...)) ((eq arg :sexp) (setq rtn ...) (setq > results ...)) ((eq arg :scheduled) (setq rtn ...) (setq > results ...)) ((eq arg :closed) (setq rtn ...) (setq results ...)) > ((eq arg :deadline) (setq rtn ...) (setq deadline-results ...) (setq > results ...))) > (while (setq arg (pop args)) (cond (... ... ...) > (... ... ... ... ...) (... ... ...) (... ... ...) (... ... ...) > (... ... ... ...))) > (save-restriction (if org-agenda-restrict (narrow-to-region org- > agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq > arg ...) (cond ... ... ... ... ... ...))) > (save-excursion (save-restriction (if org-agenda-restrict ... ...) > (while ... ...))) > (let ((case-fold-search nil)) (save-excursion (save- > restriction ... ...))) > (save-current-buffer (set-buffer buffer) (unless (org-mode-p) > (error "Agenda file %s is not in `org-mode'" file)) (let (...) (save- > excursion ...)) results) > (with-current-buffer buffer (unless (org-mode-p) (error "Agenda > file %s is not in `org-mode'" file)) (let (...) (save- > excursion ...)) results) > (if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file > %s" file)) (with-current-buffer buffer (unless ... ...) > (let ... ...) results)) > (let* ((org-startup-folded nil) (org-startup-align-all-tables nil) > (buffer ...) arg results rtn deadline-results) (if (not buffer) > (list ...) (with-current-buffer buffer ... ... results))) > org-agenda-get-day-entries("~/gtd/Band/Band.org" (1 8 2010) :todo) > (setq rtn (org-agenda-get-day-entries file date :todo)) > (catch (quote nextfile) (org-check-agenda-file file) (setq rtn > (org-agenda-get-day-entries file date :todo)) (setq rtnall (append > rtnall rtn))) > (while (setq file (pop files)) (catch (quote nextfile) (org-check- > agenda-file file) (setq rtn ...) (setq rtnall ...))) > (let* ((today ...) (date ...) (kwds org-todo-keywords-for-agenda) > (completion-ignore-case t) (org-select-this-todo-keyword ...) rtn > rtnall files file pos) (when (equal arg ...) (setq org-select-this- > todo-keyword ...)) (and (equal 0 arg) (setq org-select-this-todo- > keyword nil)) (org-set-local (quote org-last-arg) arg) (setq org- > agenda-redo-command (quote ...)) (setq files (org-agenda-files > nil ...) rtnall nil) (while (setq file ...) (catch ... ... ... ...)) > (if org-agenda-overriding-header (insert ... "\n") (insert "Global > list of TODO items of type: ") (add-text-properties ... ... ...) > (org-agenda-mark-header-line ...) (setq pos ...) (insert ... "\n") > (add-text-properties pos ... ...) (setq pos ...) (unless org-agenda- > multi ... ... ...) (add-text-properties pos ... ...)) (org-agenda- > mark-header-line (point-min)) (when rtnall (insert ... "\n")) (goto- > char (point-min)) (or org-agenda-multi (org-fit-agenda-window)) (add- > text-properties (point-min) (point-max) (quote ...)) (org-finalize- > agenda) (setq buffer-read-only t)) > org-todo-list(nil) > call-interactively(org-todo-list) > (let ((org-agenda-title-append "KEYS=u TITLE: alltodo after>") (org-agenda-skip-function ...) (org-agenda-overriding- > header "Unscheduled TODO entries: ")) (call-interactively (quote org- > todo-list))) > (let ((org-agenda-compact-blocks nil)) (let (... ... ...) (call- > interactively ...))) > eval((let ((org-agenda-compact-blocks nil)) (let (... ... ...) > (call-interactively ...)))) > org-let2(((org-agenda-compact-blocks nil)) ((org-agenda-title- > append "KEYS=u TITLE: alltodo ") (org-agenda-skip- > function (lambda nil ...)) (org-agenda-overriding-header > "Unscheduled TODO entries: ")) (call-interactively (quote org-todo- > list))) > (cond ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...) > (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 gprops > lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)) ((eq > type ...) (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 > gprops lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)) > ((fboundp type) (org-let2 gprops lprops ...)) (t (error "Invalid > type in command series"))) > (while (setq cmd (pop cmds)) (setq type (car cmd) match (eval ...) > lprops (nth 2 cmd)) (cond (... ...) (... ...) (... ...) (... ...) > (... ...) (... ...) (... ...) (... ...) (t ...))) > (let* ((org-agenda-multi t) (redo ...) (cmds ...) (gprops ...) > match cmd type lprops) (while (setq cmd ...) (setq type ... > match ... lprops ...) (cond ... ... ... ... ... ... ... ... ...)) > (widen) (setq org-agenda-redo-command redo) (goto-char (point-min))) > org-run-agenda-series("SUMO" (((agenda nil ...) (alltodo nil ...) > (todo #("DELEGATED" 0 9 ...) ...) (todo #("DONE|DEFERRED|CANCELLED" > 0 23 ...) ...) (todo #("WAITING" 0 7 ...) ...) (agenda "" ...) > (agenda "" ...) (alltodo "" ...)) ((org-agenda-compact-blocks nil)) > ("/home/cameron/mnt/mydisk/org/agendas.org"))) > (if (or (symbolp ...) (functionp ...)) (progn (setq type ... > match ... lprops ...) (put ... ... lprops) > (cond ... ... ... ... ... ... ... ... ... ... ... ... ...)) (org-run- > agenda-series (nth 1 entry) (cddr entry))) > (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq > org-agenda-custom-commands org-agenda-custom-commands-orig) > (customize-variable ...)) ((equal keys "a") (call- > interactively ...)) ((equal keys "s") (call-interactively ...)) > ((equal keys "t") (call-interactively ...)) ((equal keys "T") (org- > call-with-arg ... ...)) ((equal keys "m") (call-interactively ...)) > ((equal keys "M") (org-call-with-arg ... ...)) ((equal keys "e") > (call-interactively ...)) ((equal keys "?") (org-tags-view nil > "+FLAGGED") (org-add-hook ... ... t t)) ((equal keys "L") > (unless ... ...) (unless restriction ... ...)) ((equal keys "#") > (call-interactively ...)) ((equal keys "/") (call- > interactively ...)) ((equal keys "!") (customize-variable ...)) (t > (error "Invalid agenda key"))) > (let* ((prefix-descriptions nil) (org-agenda-window-setup ...) > (org-agenda-custom-commands-orig org-agenda-custom-commands) (org- > agenda-custom-commands ...) (buf ...) (bfn ...) entry key type match > lprops ans) (unless org-agenda-overriding-restriction > (unless ... ...) (setq org-agenda-restrict nil) (move-marker org- > agenda-restrict-begin nil) (move-marker org-agenda-restrict-end > nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) > (setq org-agenda-last-dispatch-buffer (current-buffer)) (unless keys > (setq ans ... keys ... restriction ...)) (when (and ... restriction) > (put ... ... ...) (cond ... ...)) (require (quote calendar)) (cond > (... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) > (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ...) > (... ...) (... ...) (t ...))) > (catch (quote exit) (let* (... ... ... ... ... ... entry key type > match lprops ans) (unless org-agenda-overriding- > restriction ... ... ... ...) (put ... ... nil) (setq org-agenda-last- > dispatch-buffer ...) (unless keys ...) (when ... ... ...) > (require ...) > (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) > org-agenda(nil "X") > (let ((org-agenda-compact-blocks nil)) (org-agenda nil "X")) > eval((let ((org-agenda-compact-blocks nil)) (org-agenda nil "X"))) > (progn (eval (list ... ... ...)) (set-buffer org-agenda-buffer- > name) (while files (eval ...)) (and (get-buffer org-agenda-buffer- > name) (kill-buffer org-agenda-buffer-name))) > (if files (progn (eval ...) (set-buffer org-agenda-buffer-name) > (while files ...) (and ... ...))) > (when files (eval (list ... ... ...)) (set-buffer org-agenda- > buffer-name) (while files (eval ...)) (and (get-buffer org-agenda- > buffer-name) (kill-buffer org-agenda-buffer-name))) > (while cmds (setq cmd (pop cmds) thiscmdkey (car cmd) cmd-or-set > (nth 2 cmd) opts (nth ... cmd) files (nth ... cmd)) (if (stringp > files) (setq files ...)) (when files (eval ...) (set-buffer org- > agenda-buffer-name) (while files ...) (and ... ...))) > (save-window-excursion (while cmds (setq cmd ... thiscmdkey ... > cmd-or-set ... opts ... files ...) (if ... ...) (when > files ... ... ... ...))) > (let ((cmds ...) (pop-up-frames nil) (dir default-directory) pars > cmd thiscmdkey files opts cmd-or-set) (while parameters (push ... > pars)) (setq pars (reverse pars)) (save-window-excursion (while > cmds ... ... ...))) > (lambda (&rest parameters) "Run all custom agenda commands that > have a file argument." (let (... ... ... pars cmd thiscmdkey files > opts cmd-or-set) (while parameters ...) (setq pars ...) (save-window- > excursion ...)))() > (org-batch-store-agenda-views) > eval((org-batch-store-agenda-views)) > org-store-agenda-views() > (progn (org-store-agenda-views)) > (if sumo (progn (org-store-agenda-views))) > (when sumo (org-store-agenda-views)) > (let* ((file ...) (sumo ...) (org-agenda-custom-commands ...) (org- > mobile-creating-agendas t)) (unless (file-writable-p file) (error > "Cannot write to file %s" file)) (when sumo (org-store-agenda-views))) > org-mobile-create-sumo-agenda() > (let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda)) > (save-window-excursion (org-mobile-check-setup) (org-mobile- > prepare-file-lists) (run-hooks (quote org-mobile-pre-push-hook)) > (message "Creating agendas...") (let (...) (org-mobile-create-sumo- > agenda)) (message "Creating agendas...done") (org-save-all-org- > buffers) (message "Copying files...") (org-mobile-copy-agenda-files) > (message "Writing index file...") (org-mobile-create-index-file) > (message "Writing checksums...") (org-mobile-write-checksums) (run- > hooks (quote org-mobile-post-push-hook))) > (save-excursion (save-window-excursion (org-mobile-check-setup) > (org-mobile-prepare-file-lists) (run-hooks ...) (message "Creating > agendas...") (let ... ...) (message "Creating agendas...done") (org- > save-all-org-buffers) (message "Copying files...") (org-mobile-copy- > agenda-files) (message "Writing index file...") (org-mobile-create- > index-file) (message "Writing checksums...") (org-mobile-write- > checksums) (run-hooks ...))) > (let ((org-agenda-buffer-name "*SUMO*") (org-agenda-filter org- > agenda-filter) (org-agenda-redo-command org-agenda-redo-command)) > (save-excursion (save-window- > excursion ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) > (let ((a-buffer ...)) (let (... ... ...) (save-excursion ...)) > (redraw-display) (when (and a-buffer ...) (if ... ... ...))) > org-mobile-push() > call-interactively(org-mobile-push nil nil) > > > -- > > > Cameron Horsburgh > blog: http://spiritcry.wordpress.com > _______________________________________________ > Emacs-orgmode mailing list > Please use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode - Carsten