From mboxrd@z Thu Jan  1 00:00:00 1970
From: jemarch@gnu.org
Subject: [patch] Fix wanderlust in `org-store-link'
Date: Sat, 06 Oct 2007 22:48:45 +0200
Message-ID: <868x6gezpu.wl%jemarch@gnu.org>
Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka")
Content-Type: text/plain; charset=US-ASCII
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1IeGfL-0003de-PO
	for emacs-orgmode@gnu.org; Sat, 06 Oct 2007 16:54:27 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1IeGfL-0003cw-9W
	for emacs-orgmode@gnu.org; Sat, 06 Oct 2007 16:54:27 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1IeGfL-0003ci-3S
	for emacs-orgmode@gnu.org; Sat, 06 Oct 2007 16:54:27 -0400
Received: from 129.pool85-54-39.dynamic.orange.es ([85.54.39.129]
	helo=termi.gnu.org) by monty-python.gnu.org with esmtpa (Exim 4.60)
	(envelope-from <jemarch@gnu.org>) id 1IeGfK-0007tF-IV
	for emacs-orgmode@gnu.org; Sat, 06 Oct 2007 16:54:26 -0400
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org


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