[patch] Fix wanderlust in `org-store-link'

[patch] Fix wanderlust in `org-store-link'

[jemarch]

Hello.

This tiny patch (against org version 5.10b, i didnt found a suitable
CVS repository to get non-released code) fixes `org-store-link' for
wanderlust summary mode. 

In both the latest wanderlust version (2.14.0) and in CVS wanderlust
the function `elmo-message-entity-field' do not return a list, but a
string containing the field contents.


2007-10-06  Jose E. Marchesi  <jemarch@gnu.org>

	* org.el (org-store-link): Expect a string from the call to
	`elmo-message-entity-field' instead of a list.



--- org.el	2007-10-04 22:34:15.000000000 +0200
+++ org-foo.el	2007-10-06 22:44:10.000000000 +0200
@@ -10969,7 +10969,7 @@
 		  (elmo-msgdb-overview-get-entity
 		   msgnum (wl-summary-buffer-msgdb))))
 	     (from (wl-summary-line-from))
-	     (to (car (elmo-message-entity-field wl-message-entity 'to)))
+	     (to (elmo-message-entity-field wl-message-entity 'to))
 	     (subject (let (wl-thr-indent-string wl-parent-message-entity)
 			(wl-summary-line-subject))))
 	(org-store-link-props :type "wl" :from from :to to

Re: [patch] Fix wanderlust in `org-store-link'

[Carsten Dominik]

applied, thanks.

- Carsten
On Oct 6, 2007, at 22:48, jemarch@gnu.org wrote:

>
> Hello.
>
> This tiny patch (against org version 5.10b, i didnt found a suitable
> CVS repository to get non-released code) fixes `org-store-link' for
> wanderlust summary mode.
>
> In both the latest wanderlust version (2.14.0) and in CVS wanderlust
> the function `elmo-message-entity-field' do not return a list, but a
> string containing the field contents.
>
>
> 2007-10-06  Jose E. Marchesi  <jemarch@gnu.org>
>
> 	* org.el (org-store-link): Expect a string from the call to
> 	`elmo-message-entity-field' instead of a list.
>
>
>
> --- org.el	2007-10-04 22:34:15.000000000 +0200
> +++ org-foo.el	2007-10-06 22:44:10.000000000 +0200
> @@ -10969,7 +10969,7 @@
>  		  (elmo-msgdb-overview-get-entity
>  		   msgnum (wl-summary-buffer-msgdb))))
>  	     (from (wl-summary-line-from))
> -	     (to (car (elmo-message-entity-field wl-message-entity 'to)))
> +	     (to (elmo-message-entity-field wl-message-entity 'to))
>  	     (subject (let (wl-thr-indent-string wl-parent-message-entity)
>  			(wl-summary-line-subject))))
>  	(org-store-link-props :type "wl" :from from :to to
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the 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