[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.
Regards,
Guy
--- 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))
(wl-summary-redisplay))
(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))
- [Orgmode] Org-mode 4.56 and Wanderlust 2.15.5,
Guy Haskin Fernald <=