* org-store-link with wanderlust
@ 2008-01-05 13:42 Hans Halvorson
0 siblings, 0 replies; 6+ messages in thread
From: Hans Halvorson @ 2008-01-05 13:42 UTC (permalink / raw)
To: emacs-orgmode
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
^ permalink raw reply [flat|nested] 6+ messages in thread
* org-store-link with wanderlust
@ 2007-12-12 15:21 Hans Halvorson
2007-12-29 13:52 ` Bastien
0 siblings, 1 reply; 6+ messages in thread
From: Hans Halvorson @ 2007-12-12 15:21 UTC (permalink / raw)
To: emacs-orgmode
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
^ permalink raw reply [flat|nested] 6+ messages in thread* Re: org-store-link with wanderlust
2007-12-12 15:21 Hans Halvorson
@ 2007-12-29 13:52 ` Bastien
2007-12-29 18:55 ` Hans Halvorson
2007-12-29 19:55 ` Hans Halvorson
0 siblings, 2 replies; 6+ messages in thread
From: Bastien @ 2007-12-29 13:52 UTC (permalink / raw)
To: emacs-orgmode; +Cc: Hans Halvorson
[-- 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
^ permalink raw reply [flat|nested] 6+ messages in thread* Re: org-store-link with wanderlust
2007-12-29 13:52 ` Bastien
@ 2007-12-29 18:55 ` Hans Halvorson
2007-12-29 19:55 ` Hans Halvorson
1 sibling, 0 replies; 6+ messages in thread
From: Hans Halvorson @ 2007-12-29 18:55 UTC (permalink / raw)
To: Bastien; +Cc: emacs-orgmode
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
>
>
^ permalink raw reply [flat|nested] 6+ messages in thread* Re: org-store-link with wanderlust
2007-12-29 13:52 ` Bastien
2007-12-29 18:55 ` Hans Halvorson
@ 2007-12-29 19:55 ` Hans Halvorson
2008-01-02 22:13 ` Carsten Dominik
1 sibling, 1 reply; 6+ messages in thread
From: Hans Halvorson @ 2007-12-29 19:55 UTC (permalink / raw)
To: Bastien; +Cc: emacs-orgmode
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
^ permalink raw reply [flat|nested] 6+ messages in thread* Re: org-store-link with wanderlust
2007-12-29 19:55 ` Hans Halvorson
@ 2008-01-02 22:13 ` Carsten Dominik
0 siblings, 0 replies; 6+ messages in thread
From: Carsten Dominik @ 2008-01-02 22:13 UTC (permalink / raw)
To: Hans Halvorson; +Cc: emacs-orgmode
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
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2008-01-05 13:40 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-01-05 13:42 org-store-link with wanderlust Hans Halvorson
-- strict thread matches above, loose matches on Subject: below --
2007-12-12 15:21 Hans Halvorson
2007-12-29 13:52 ` Bastien
2007-12-29 18:55 ` Hans Halvorson
2007-12-29 19:55 ` Hans Halvorson
2008-01-02 22:13 ` Carsten Dominik
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).