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

[Hans Halvorson]

After applying the patch, and trying M-x org-store-link on your
messasge, I get the new error:

Debugger entered--Lisp error: (wrong-type-argument listp "Bastien")
  car("Bastien")
  (let* ((msgnum ...) (message-id ...) (wl-message-entity ...) (from
...) (to ...) (subject ...)) (org-store-link-props :type "wl" :from
from :to to :subject subject :message-id message-id) (setq message-id
(org-remove-angle-brackets message-id)) (setq cpltxt
(org-email-link-description)) (setq link (org-make-link "wl:"
wl-summary-buffer-folder-name "#" message-id)))
  (cond ((run-hook-with-args-until-success ...) (setq link ... desc
...)) ((eq major-mode ...) (let ... ... ...)) ((eq major-mode ...)
(setq link ...) (setq cpltxt ...) (org-store-link-props :type "info"
:file Info-current-file :node Info-current-node)) ((eq major-mode ...)
(let ... ... ...)) ((or ... ...) (and ... ...)
(vm-follow-summary-cursor) (save-excursion ... ...)) ((eq major-mode
...) (let* ... ... ... ... ...)) ((or ... ...) (let ... ... ... ...))
((eq major-mode ...) (save-excursion ...)) ((eq major-mode ...) (let
... ... ... ...)) ((memq major-mode ...) (and ... ...) (let* ... ...
... ...)) ((eq major-mode ...) (setq cpltxt ... link ...)
(org-store-link-props :type "w3" :url ...)) ((eq major-mode ...) (setq
cpltxt ... link ...) (org-store-link-props :type "w3m" :url ...))
((setq search ...) (setq link ...) (setq cpltxt ...)) ((eq major-mode
...) (setq cpltxt ... link ...) (org-store-link-props :type "image"
:file buffer-file-name)) ((eq major-mode ...) (setq cpltxt ... link
...)) ((and buffer-file-name ...) (setq cpltxt ...) (when ... ...) (if
... ...) (setq link ...)) ((buffer-file-name ...) (setq cpltxt ...)
(when ... ... ...) (setq link ...)) ((interactive-p) (error "Cannot
link to a buffer which is not visiting a file")) (t (setq link nil)))
  (let (link cpltxt desc description search txt) (cond (... ...) (...
...) (... ... ... ...) (... ...) (... ... ... ...) (... ...) (... ...)
(... ...) (... ...) (... ... ...) (... ... ...) (... ... ...) (... ...
...) (... ... ...) (... ...) (... ... ... ... ...) (... ... ... ...)
(... ...) (t ...)) (if (consp link) (setq cpltxt ... link ...)) (setq
link (or link cpltxt) desc (or desc cpltxt)) (if (equal desc "NONE")
(setq desc nil)) (if (and ... link) (progn ... ...) (and link ...)))
  org-store-link(nil)
  call-interactively(org-store-link t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)


On Dec 29, 2007 8:52 AM, Bastien <address@hidden> wrote:
>
> > 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.
>
>
> --
> Bastien
>
>