Re: [Orgmode] org-store-link with wanderlust

[Bastien]

"Hans Halvorson" <address@hidden> writes:

> When I try 'M-x org-store-link' in the wanderlust summary buffer, I
> get an error (have tried with many messages).  For example:
>
> Debugger entered--Lisp error: (error "Invalid address: (Brad Pitt
> <address@hidden>)")
>   signal(error ("Invalid address: (Brad Pitt <address@hidden>)"))
>   error("Invalid address: %s" ("Brad Pitt <address@hidden>"))
>   mail-extract-address-components(("Brad Pitt <address@hidden>"))
>   org-store-link-props(:type "wl" :from "Jolie, Angelina" :to ("Brad
> Pitt <address@hidden>") :subject "RE: u r hot" :message-id
> "<address@hidden>")
>   org-store-link(nil)
>   call-interactively(org-store-link)
>   execute-extended-command(nil)
>   call-interactively(execute-extended-command)
>
> The address reported in the backtrace has, of course, been changed ...
> but it is structurally original to the original valid address.

Looks like wl-summary-line-from return a list, not a string.

Please check the following patch against Org 5.17a.  

diff -u /home/guerry/elisp/testing/org/ /home/guerry/elisp/testing/bzg/org.el
--- /home/guerry/elisp/testing/org/org.el       2007-12-20 14:38:42.000000000 
+0100
+++ /home/guerry/elisp/testing/bzg/org.el       2007-12-29 14:50:20.000000000 
+0100
@@ -11762,7 +11762,7 @@
                   wl-summary-buffer-elmo-folder msgnum)
                  (elmo-msgdb-overview-get-entity
                   msgnum (wl-summary-buffer-msgdb))))
-            (from (wl-summary-line-from))
+            (from (car (wl-summary-line-from)))
             (to (elmo-message-entity-field wl-message-entity 'to))
             (subject (let (wl-thr-indent-string wl-parent-message-entity)
                        (wl-summary-line-subject))))

Diff finished.  Sat Dec 29 14:50:25 2007

-- 
Bastien