Org-mode 4.56 and Wanderlust 2.15.5

Org-mode 4.56 and Wanderlust 2.15.5

[Guy Haskin Fernald]

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))

Re: Org-mode 4.56 and Wanderlust 2.15.5

[Carsten Dominik]

Thanks for the fix.  I am not using Wanderlust, so I cannot test this.
Is there anyone else on this group who can confirm the problem and test
the patch?  If not, I will simply apply it for 4.57.

Thanks a lot.

- Carsten

On Nov 21, 2006, at 1:05, Guy Haskin Fernald wrote:

> 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))
>
>
>
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>

--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477