[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] Org-mode 4.56 and Wanderlust 2.15.5

From: Guy Haskin Fernald
Subject: [Orgmode] Org-mode 4.56 and Wanderlust 2.15.5
Date: Mon, 20 Nov 2006 16:05:17 -0800
User-agent: SEMI/1.14.6 (Maruoka) FLIM/1.14.8 (Shij┼Ź) APEL/10.6 Emacs/22.0.90 (powerpc-apple-darwin8.8.0) MULE/5.0 (SAKAKI)

First of all, thanks for org-mode.  I've been using it for a little
while now and it has been great.

I'm also using Wanderlust 2.15.5 and I haven't been able to store and
follow links for Wanderlust messages with Org-mode 4.56.

The following patch to org.el seems to have fixed it for me.



--- org.el.orig 2006-11-20 15:55:19.000000000 -0800
+++ org.el      2006-11-20 15:55:00.000000000 -0800
@@ -10448,8 +10448,8 @@ onto the ring."
 (defun org-follow-wl-link (folder article)
   "Follow a Wanderlust link to FOLDER and ARTICLE."
   (setq article (org-add-angle-brackets article))
-  (wl-summary-goto-folder-subr folder 'no-sync t nil t)
-  (if article (wl-summary-jump-to-msg-by-message-id article ">"))
+  (wl-summary-goto-folder-subr folder 'no-sync t nil t nil nil)
+  (if article (wl-summary-jump-to-msg-by-message-id article))
 (defun org-follow-rmail-link (folder article)
@@ -10818,8 +10818,12 @@ For file links, arg negates `org-context
       (let* ((msgnum (wl-summary-message-number))
             (message-id (elmo-message-field wl-summary-buffer-elmo-folder
                                             msgnum 'message-id))
-            (wl-message-entity (elmo-msgdb-overview-get-entity
-                                msgnum (wl-summary-buffer-msgdb)))
+            (wl-message-entity
+             (if (fboundp 'elmo-message-entity)
+                 (elmo-message-entity
+                  wl-summary-buffer-elmo-folder msgnum)
+                 (elmo-msgdb-overview-get-entity
+                  msgnum (wl-summary-buffer-msgdb))))
             (author (wl-summary-line-from)) ; FIXME: correct?
             (subject "???"))   ; FIXME:
        (setq message-id (org-remove-angle-brackets message-id))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]