Hello. Recently, I have started using org-mode found it's very great tool.
I have a problem to access the 'wl' links in org-mode, where I uses Wanderlust to visit the imap folders. This is my patch to org.el 4.65 for Wanderlust 2.15.5. Thanks. --Tokuya --- org.el-4.65 Sat Feb 17 23:44:37 2007 +++ org.el Mon Feb 19 14:37:38 2007 @@ -9000,7 +9000,8 @@ (elmo-msgdb-overview-get-entity msgnum (wl-summary-buffer-msgdb)))) (from (wl-summary-line-from)) - (subject (wl-summary-line-subject))) ; FIXME: untested + (subject (let (wl-thr-indent-string wl-parent-message-entity) + (wl-summary-line-subject)))) (org-store-link-props :type "wl" :from from :to "???" :subject subject :message-id message-id) (setq message-id (org-remove-angle-brackets message-id)) @@ -10072,10 +10073,19 @@ (defun org-follow-wl-link (folder article) "Follow a Wanderlust link to FOLDER and ARTICLE." - (setq article (org-add-angle-brackets article)) + (if (and (string= folder "%") + article + (string-match "^\\([^#]+\\)\\(#\\(.*\\)\\)?" article)) + ;; XXX: imap-uw supports folders starting with '#' such as "#mh/inbox". + ;; Thus, we recompose folder and article ids. + (setq folder (format "%s#%s" folder (match-string 1 article)) + article (match-string 3 article))) + (if (not (elmo-folder-exists-p (wl-folder-get-elmo-folder folder))) + (error "No such folder: %s" folder)) (wl-summary-goto-folder-subr folder 'no-sync t nil t nil nil) - (if article (wl-summary-jump-to-msg-by-message-id article)) - (wl-summary-redisplay)) + (and article + (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article)) + (wl-summary-redisplay))) (defun org-follow-rmail-link (folder article) "Follow an RMAIL link to FOLDER and ARTICLE." _______________________________________________ Emacs-orgmode mailing list Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode