* [bug] org-store-link on gnus message fails
@ 2011-01-12 13:58 Eric S Fraga
2011-01-12 16:36 ` Tassilo Horn
2011-01-12 16:45 ` Tassilo Horn
0 siblings, 2 replies; 8+ messages in thread
From: Eric S Fraga @ 2011-01-12 13:58 UTC (permalink / raw)
To: Emacs Org mode mailing list
Hello,
Trying to store a link to a gnus email message (=org-store-link=) when
the cursor is on a particular message in a gnus Summary mode window, I
get:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Invalid date: ")
signal(error ("Invalid date: "))
error("Invalid date: %s" "")
byte-code("\300\301\302\217\207" [nil (byte-code "\301\302\303\304\b!!\"\207" [date apply encode-time parse-time-string timezone-make-date-arpa-standard] 5) ((error ...))] 3)
date-to-time("")
(format-time-string (org-time-stamp-format t) (date-to-time date))
(and date (format-time-string (org-time-stamp-format t) (date-to-time date)))
(let* ((group gnus-newsgroup-name) (header ...) (from ...) (message-id ...) (date ...) (date-ts ...) (date-ts-ia ...) (subject ...) (to ...) newsgroups x-no-archive desc link) (set-text-properties 0 (length subject) nil subject) (when (org-xor current-prefix-arg org-gnus-prefer-web-links) (save-window-excursion ...) (setq to ... newsgroups ... x-no-archive ...)) (org-store-link-props :type "gnus" :from from :subject subject :message-id message-id :group group :to to) (when date (org-add-link-props :date date :date-timestamp date-ts :date-timestamp-inactive date-ts-ia)) (setq desc (org-email-link-description) link (org-gnus-article-link group newsgroups message-id x-no-archive)) (org-add-link-props :link link :description desc) link)
(cond ((eq major-mode ...) (let* ... ...)) ((memq major-mode ...) (let* ... ... ... ... ... ... ... link)))
org-gnus-store-link()
run-hook-with-args-until-success(org-gnus-store-link)
(cond ((run-hook-with-args-until-success ...) (setq link ... desc ...)) ((equal ... "*Org Edit Src Example*") (let ... ... ... ... ... ... ... ...)) ((equal ... ...) (let ... ...)) ((eq major-mode ...) (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 ...) (let ... ... ...)) ((and ... ...) (setq custom-id ...) (cond ... ... ...)) ((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 ((outline-regexp ...) link cpltxt desc description search txt custom-id agenda-link) (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 ... ... ...) (or agenda-link ...)))
org-store-link(nil)
call-interactively(org-store-link nil nil)
--8<---------------cut here---------------end--------------->8---
Any hints as to what could be wrong (i.e. have I misconfigured
something)?
Thanks,
eric
--
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 23.2.1
: using Org-mode version 7.4 (release_7.4.166.gf7a7)
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [bug] org-store-link on gnus message fails
2011-01-12 13:58 [bug] org-store-link on gnus message fails Eric S Fraga
@ 2011-01-12 16:36 ` Tassilo Horn
2011-01-12 16:45 ` Tassilo Horn
1 sibling, 0 replies; 8+ messages in thread
From: Tassilo Horn @ 2011-01-12 16:36 UTC (permalink / raw)
To: emacs-orgmode
Eric S Fraga <e.fraga@ucl.ac.uk> writes:
> Trying to store a link to a gnus email message (=org-store-link=) when
> the cursor is on a particular message in a gnus Summary mode window, I
> get:
What's the Date: header of that mail?
Bye,
Tassilo
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [bug] org-store-link on gnus message fails
2011-01-12 13:58 [bug] org-store-link on gnus message fails Eric S Fraga
2011-01-12 16:36 ` Tassilo Horn
@ 2011-01-12 16:45 ` Tassilo Horn
2011-01-12 20:23 ` Eric S Fraga
2011-01-13 11:53 ` [Accepted] " Carsten Dominik
1 sibling, 2 replies; 8+ messages in thread
From: Tassilo Horn @ 2011-01-12 16:45 UTC (permalink / raw)
To: emacs-orgmode
Hi Eric,
this patch should do the trick. I think the issue was a malformed Date:
header that couldn't be converted to a timestamp.
--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el
index 32641bf..ae5dc52 100644
--- a/lisp/org-gnus.el
+++ b/lisp/org-gnus.el
@@ -152,11 +152,16 @@ If `org-store-link' was called with a prefix arg the meaning of
(from (mail-header-from header))
(message-id (org-remove-angle-brackets (mail-header-id header)))
(date (org-trim (mail-header-date header)))
- (date-ts (and date (format-time-string
- (org-time-stamp-format t) (date-to-time date))))
- (date-ts-ia (and date (format-time-string
- (org-time-stamp-format t t)
- (date-to-time date))))
+ (date-ts (and date
+ (condition-case nil
+ (format-time-string
+ (org-time-stamp-format t)
+ (date-to-time date)))))
+ (date-ts-ia (and date
+ (condition-case nil
+ (format-time-string
+ (org-time-stamp-format t t)
+ (date-to-time date)))))
(subject (copy-sequence (mail-header-subject header)))
(to (cdr (assq 'To (mail-header-extra header))))
newsgroups x-no-archive desc link)
--8<---------------cut here---------------end--------------->8---
Bye,
Tassilo
^ permalink raw reply related [flat|nested] 8+ messages in thread
* Re: Re: [bug] org-store-link on gnus message fails
2011-01-12 16:45 ` Tassilo Horn
@ 2011-01-12 20:23 ` Eric S Fraga
2011-01-13 8:38 ` Sébastien Vauban
2011-01-13 11:53 ` [Accepted] " Carsten Dominik
1 sibling, 1 reply; 8+ messages in thread
From: Eric S Fraga @ 2011-01-12 20:23 UTC (permalink / raw)
To: Tassilo Horn; +Cc: emacs-orgmode
Tassilo Horn <tassilo@member.fsf.org> writes:
> Hi Eric,
>
> this patch should do the trick. I think the issue was a malformed Date:
> header that couldn't be converted to a timestamp.
Actually, I am curious about this. What is the point of extracting the
date in any case? It's used to store link properties but I don't
understand where these properties can be used? I'm asking in case I'm
missing a useful functionality I hadn't thought of...
Thanks,
eric
--
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 23.2.1
: using Org-mode version 7.4 (release_7.4.166.gf7a7.dirty)
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [bug] org-store-link on gnus message fails
2011-01-12 20:23 ` Eric S Fraga
@ 2011-01-13 8:38 ` Sébastien Vauban
2011-01-14 8:48 ` Eric S Fraga
0 siblings, 1 reply; 8+ messages in thread
From: Sébastien Vauban @ 2011-01-13 8:38 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
Hi Eric,
Eric S Fraga wrote:
> Tassilo Horn <tassilo-IGUgQLVVQiRCV4ILt04nZQ@public.gmane.org> writes:
>> this patch should do the trick. I think the issue was a malformed Date:
>> header that couldn't be converted to a timestamp.
>
> Actually, I am curious about this. What is the point of extracting the date
> in any case? It's used to store link properties but I don't understand where
> these properties can be used? I'm asking in case I'm missing a useful
> functionality I hadn't thought of...
Well, I often (now) keep extracts of mail in my Org buffers. Via a capture
template[1], these get a TODO keyword, a SCHEDULED date (by default, set to
today), a link to the Gnus message (or http link to Gmane) and the date of the
mail.
Why keeping the date of the original mail? Because it's interested to see,
when scanning which emails I still have to answer on, when they've been
issued -- without having to follow on the link.
It is an indication of the age of the mail, that could serve as well for
sorting the subtrees (if I'm not wrong -- I don't use that feature but...).
Does this answer your question?
Best regards,
Seb
Footnotes:
[1] Reference code...
#+begin_src emacs-lisp
(setq org-capture-templates
`(("m" "Mail" entry
(file+headline "~/Personal/refile.org" "Tasks")
"* TODO %:subject%? (from %:fromname) :mail:
%:date-timestamp-inactive
SCHEDULED: %t
#+begin_verse
%i
#+end_verse
From %a"
:empty-lines 1 :immediate-finish)))
#+end_src
--
Sébastien Vauban
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
^ permalink raw reply [flat|nested] 8+ messages in thread
* [Accepted] Re: [bug] org-store-link on gnus message fails
2011-01-12 16:45 ` Tassilo Horn
2011-01-12 20:23 ` Eric S Fraga
@ 2011-01-13 11:53 ` Carsten Dominik
2011-01-13 13:38 ` Tassilo Horn
1 sibling, 1 reply; 8+ messages in thread
From: Carsten Dominik @ 2011-01-13 11:53 UTC (permalink / raw)
To: emacs-orgmode
Patch 533 (http://patchwork.newartisans.com/patch/533/) is now "Accepted".
Maintainer comment: No comment
This relates to the following submission:
http://mid.gmane.org/%3C87bp3moyua.fsf%40member.fsf.org%3E
Here is the original message containing the patch:
> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] Re: [bug] org-store-link on gnus message fails
> Date: Wed, 12 Jan 2011 21:45:17 -0000
> From: Tassilo Horn <tassilo@member.fsf.org>
> X-Patchwork-Id: 533
> Message-Id: <87bp3moyua.fsf@member.fsf.org>
> To: emacs-orgmode@gnu.org
>
> Hi Eric,
>
> this patch should do the trick. I think the issue was a malformed Date:
> header that couldn't be converted to a timestamp.
>
> --8<---------------cut here---------------start------------->8---
> --8<---------------cut here---------------end--------------->8---
>
> Bye,
> Tassilo
>
>
> diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el
> index 32641bf..ae5dc52 100644
> --- a/lisp/org-gnus.el
> +++ b/lisp/org-gnus.el
> @@ -152,11 +152,16 @@ If `org-store-link' was called with a prefix arg the meaning of
> (from (mail-header-from header))
> (message-id (org-remove-angle-brackets (mail-header-id header)))
> (date (org-trim (mail-header-date header)))
> - (date-ts (and date (format-time-string
> - (org-time-stamp-format t) (date-to-time date))))
> - (date-ts-ia (and date (format-time-string
> - (org-time-stamp-format t t)
> - (date-to-time date))))
> + (date-ts (and date
> + (condition-case nil
> + (format-time-string
> + (org-time-stamp-format t)
> + (date-to-time date)))))
> + (date-ts-ia (and date
> + (condition-case nil
> + (format-time-string
> + (org-time-stamp-format t t)
> + (date-to-time date)))))
> (subject (copy-sequence (mail-header-subject header)))
> (to (cdr (assq 'To (mail-header-extra header))))
> newsgroups x-no-archive desc link)
>
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [Accepted] Re: [bug] org-store-link on gnus message fails
2011-01-13 11:53 ` [Accepted] " Carsten Dominik
@ 2011-01-13 13:38 ` Tassilo Horn
0 siblings, 0 replies; 8+ messages in thread
From: Tassilo Horn @ 2011-01-13 13:38 UTC (permalink / raw)
To: Carsten Dominik; +Cc: emacs-orgmode
Carsten Dominik <cdominik@newartisans.com> writes:
Hi Carsten,
> Patch 533 (http://patchwork.newartisans.com/patch/533/) is now "Accepted".
The patch below was wrong. The patch in the next mail that used
`ignore-errors' instead of `condition-case' is the right one.
Bye,
Tassilo
>> diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el
>> index 32641bf..ae5dc52 100644
>> --- a/lisp/org-gnus.el
>> +++ b/lisp/org-gnus.el
>> @@ -152,11 +152,16 @@ If `org-store-link' was called with a prefix arg the meaning of
>> (from (mail-header-from header))
>> (message-id (org-remove-angle-brackets (mail-header-id header)))
>> (date (org-trim (mail-header-date header)))
>> - (date-ts (and date (format-time-string
>> - (org-time-stamp-format t) (date-to-time date))))
>> - (date-ts-ia (and date (format-time-string
>> - (org-time-stamp-format t t)
>> - (date-to-time date))))
>> + (date-ts (and date
>> + (condition-case nil
>> + (format-time-string
>> + (org-time-stamp-format t)
>> + (date-to-time date)))))
>> + (date-ts-ia (and date
>> + (condition-case nil
>> + (format-time-string
>> + (org-time-stamp-format t t)
>> + (date-to-time date)))))
>> (subject (copy-sequence (mail-header-subject header)))
>> (to (cdr (assq 'To (mail-header-extra header))))
>> newsgroups x-no-archive desc link)
>>
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Re: [bug] org-store-link on gnus message fails
2011-01-13 8:38 ` Sébastien Vauban
@ 2011-01-14 8:48 ` Eric S Fraga
0 siblings, 0 replies; 8+ messages in thread
From: Eric S Fraga @ 2011-01-14 8:48 UTC (permalink / raw)
To: Sébastien Vauban; +Cc: emacs-orgmode
Sébastien Vauban <wxhgmqzgwmuf@spammotel.com> writes:
> Hi Eric,
>
> Eric S Fraga wrote:
>> Tassilo Horn <tassilo@member.fsf.org> writes:
>>> this patch should do the trick. I think the issue was a malformed Date:
>>> header that couldn't be converted to a timestamp.
>>
>> Actually, I am curious about this. What is the point of extracting the date
>> in any case? It's used to store link properties but I don't understand where
>> these properties can be used? I'm asking in case I'm missing a useful
>> functionality I hadn't thought of...
>
> Well, I often (now) keep extracts of mail in my Org buffers. Via a capture
> template[1], these get a TODO keyword, a SCHEDULED date (by default, set to
> today), a link to the Gnus message (or http link to Gmane) and the date of the
> mail.
>
> Why keeping the date of the original mail? Because it's interested to see,
> when scanning which emails I still have to answer on, when they've been
> issued -- without having to follow on the link.
>
> It is an indication of the age of the mail, that could serve as well for
> sorting the subtrees (if I'm not wrong -- I don't use that feature but...).
>
> Does this answer your question?
Seb,
it does indeed. Many thanks, and also for the emacs lisp code that
shows how to use the extra link information. I wouldn't need to use
this information in the way you do because my capture template for task
creation, which is usually what I do as a result of emails, is based on
a date tree... but it's still very useful to see other ways of handling
the information overflow we have!
Thanks again,
eric
--
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 23.2.1
: using Org-mode version 7.4 (release_7.4.174.g163cd)
^ permalink raw reply [flat|nested] 8+ messages in thread
end of thread, other threads:[~2011-01-14 10:05 UTC | newest]
Thread overview: 8+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-01-12 13:58 [bug] org-store-link on gnus message fails Eric S Fraga
2011-01-12 16:36 ` Tassilo Horn
2011-01-12 16:45 ` Tassilo Horn
2011-01-12 20:23 ` Eric S Fraga
2011-01-13 8:38 ` Sébastien Vauban
2011-01-14 8:48 ` Eric S Fraga
2011-01-13 11:53 ` [Accepted] " Carsten Dominik
2011-01-13 13:38 ` Tassilo Horn
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).