org-store-link with wanderlust

org-store-link with wanderlust

[Hans Halvorson]

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
<bpitt@Elites.COM>)")
  signal(error ("Invalid address: (Brad Pitt <bpitt@Elites.COM>)"))
  error("Invalid address: %s" ("Brad Pitt <bpitt@Elites.COM>"))
  mail-extract-address-components(("Brad Pitt <bpitt@Elites.COM>"))
  org-store-link-props(:type "wl" :from "Jolie, Angelina" :to ("Brad
Pitt <bpitt@Elites.COM>") :subject "RE: u r hot" :message-id
"<664F5EF544B264BEFE154B2FE40A770279053@CREXUSER08.foobar.com>")
  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.

Thanks,
Hans

Re: org-store-link with wanderlust

[Bastien]

[-- Attachment #1: Type: text/plain, Size: 1088 bytes --]

"Hans Halvorson" <cstaralgebra@gmail.com> 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
> <bpitt@Elites.COM>)")
>   signal(error ("Invalid address: (Brad Pitt <bpitt@Elites.COM>)"))
>   error("Invalid address: %s" ("Brad Pitt <bpitt@Elites.COM>"))
>   mail-extract-address-components(("Brad Pitt <bpitt@Elites.COM>"))
>   org-store-link-props(:type "wl" :from "Jolie, Angelina" :to ("Brad
> Pitt <bpitt@Elites.COM>") :subject "RE: u r hot" :message-id
> "<664F5EF544B264BEFE154B2FE40A770279053@CREXUSER08.foobar.com>")
>   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.  


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org.el.patch --]
[-- Type: text/x-diff, Size: 667 bytes --]

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

[-- Attachment #3: Type: text/plain, Size: 13 bytes --]


-- 
Bastien

[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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

Re: 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 <bzg@altern.org> 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
> > <bpitt@Elites.COM>)")
> >   signal(error ("Invalid address: (Brad Pitt <bpitt@Elites.COM>)"))
> >   error("Invalid address: %s" ("Brad Pitt <bpitt@Elites.COM>"))
> >   mail-extract-address-components(("Brad Pitt <bpitt@Elites.COM>"))
> >   org-store-link-props(:type "wl" :from "Jolie, Angelina" :to ("Brad
> > Pitt <bpitt@Elites.COM>") :subject "RE: u r hot" :message-id
> > "<664F5EF544B264BEFE154B2FE40A770279053@CREXUSER08.foobar.com>")
> >   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
>
>

Re: org-store-link with wanderlust

[Hans Halvorson]

On Dec 29, 2007 8:52 AM, Bastien <bzg@altern.org> 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
> > <bpitt@Elites.COM>)")
> >   signal(error ("Invalid address: (Brad Pitt <bpitt@Elites.COM>)"))
> >   error("Invalid address: %s" ("Brad Pitt <bpitt@Elites.COM>"))
> >   mail-extract-address-components(("Brad Pitt <bpitt@Elites.COM>"))
> >   org-store-link-props(:type "wl" :from "Jolie, Angelina" :to ("Brad
> > Pitt <bpitt@Elites.COM>") :subject "RE: u r hot" :message-id
> > "<664F5EF544B264BEFE154B2FE40A770279053@CREXUSER08.foobar.com>")
> >   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
>
>

The problem is not with the "from" field, but with the "to" field.  I
find that it works to change 11766 as follows:

	     (to (car (elmo-message-entity-field wl-message-entity 'to)))

-Hans

Re: org-store-link with wanderlust

[Carsten Dominik]

I applied this patch, thanks.

  Carsten

On Dec 29, 2007, at 8:55 PM, Hans Halvorson wrote:

> On Dec 29, 2007 8:52 AM, Bastien <bzg@altern.org> 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
>>> <bpitt@Elites.COM>)")
>>>  signal(error ("Invalid address: (Brad Pitt <bpitt@Elites.COM>)"))
>>>  error("Invalid address: %s" ("Brad Pitt <bpitt@Elites.COM>"))
>>>  mail-extract-address-components(("Brad Pitt <bpitt@Elites.COM>"))
>>>  org-store-link-props(:type "wl" :from "Jolie, Angelina" :to ("Brad
>>> Pitt <bpitt@Elites.COM>") :subject "RE: u r hot" :message-id
>>> "<664F5EF544B264BEFE154B2FE40A770279053@CREXUSER08.foobar.com>")
>>>  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
>>
>>
>
> The problem is not with the "from" field, but with the "to" field.  I
> find that it works to change 11766 as follows:
>
> 	     (to (car (elmo-message-entity-field wl-message-entity 'to)))
>
> -Hans
>
>
> _______________________________________________
> 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

org-store-link with wanderlust

[Hans Halvorson]

I am having some trouble with org-store-link on some messages in
Wanderlust.  The common feature of these messages is that their
"message id" is broken across two lines, as in:

Message-id:
 <7ECF51285C5B5D4AB0CAF90015A3CB260270BBAA@EXCLUSTER.pu.win.princeton.edu>

Here is what I get when I do "org-store-link" and then
"org-insert-link"

[[wl:%Saved%20Messages#
%20<7ECF51285C5B5D4AB0CAF90015A3CB260270B9E0@EXCLUSTER.pu.win.princeton.edu][Email from Foo Bar: RE: appointments memo]]

If I then do C-c C-o on this link, it doesn't do anything ... in fact,
the cursor just jumps down a couple of lines.  On the other hand, if I
remove the line break from the link, then C-c C-o does not find the
message.

Thanks,
Hans