diff options
author | Bastien Guerry <bzg@altern.org> | 2010-09-22 11:35:32 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2010-09-22 11:35:32 +0200 |
commit | d821c54aab037226027abdfc7a5283dfc6927032 (patch) | |
tree | f577c0bd037241782732b0ade35b4b0a5b2bdc10 | |
parent | 90cc0c36c790050f25db3c9306f4d3f086a293c9 (diff) | |
download | org-mode-d821c54aab037226027abdfc7a5283dfc6927032.tar.gz |
Allow %:org-date for Gnus links.
* org-capture.el (org-capture-templates): update docstring
to advertize %:org-date.
* org-remember.el (org-remember-templates): update docstring
to advertize %:org-date.
* org-gnus.el (org-gnus-store-link): define %:org-date.
This was suggested by Sébastien Vauban.
-rw-r--r-- | lisp/org-capture.el | 3 | ||||
-rw-r--r-- | lisp/org-gnus.el | 5 | ||||
-rw-r--r-- | lisp/org-remember.el | 3 |
3 files changed, 8 insertions, 3 deletions
diff --git a/lisp/org-capture.el b/lisp/org-capture.el index 5b917d8..bc750fd 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -231,7 +231,8 @@ vm, wl, mh, rmail | %:type %:subject %:message-id | %:from %:fromname %:fromaddress | %:to %:toname %:toaddress | %:fromto (either \"to NAME\" or \"from NAME\") -gnus | %:group, for messages also all email fields +gnus | %:group, for messages also all email fields and + | %:org-date (the Date: header in Org format) w3, w3m | %:type %:url info | %:type %:file %:node calendar | %:type %:date" diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 3503cfb..106b9d5 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -152,6 +152,8 @@ 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 (mail-header-date header)) + (org-date (format-time-string + (cdr org-time-stamp-formats) (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) @@ -167,7 +169,8 @@ If `org-store-link' was called with a prefix arg the meaning of (setq to (or to (gnus-fetch-original-field "To")) newsgroups (gnus-fetch-original-field "Newsgroups") x-no-archive (gnus-fetch-original-field "x-no-archive"))) - (org-store-link-props :type "gnus" :from from :subject subject :date date + (org-store-link-props :type "gnus" :from from :subject subject + :date date :org-date org-date :message-id message-id :group group :to to) (setq desc (org-email-link-description) link (org-gnus-article-link diff --git a/lisp/org-remember.el b/lisp/org-remember.el index 0fea935..0ce7da5 100644 --- a/lisp/org-remember.el +++ b/lisp/org-remember.el @@ -167,7 +167,8 @@ vm, wl, mh, rmail | %:type %:subject %:message-id | %:from %:fromname %:fromaddress | %:to %:toname %:toaddress | %:fromto (either \"to NAME\" or \"from NAME\") -gnus | %:group, for messages also all email fields +gnus | %:group, for messages also all email fields and + | %:org-date (the Date: header in Org format) w3, w3m | %:type %:url info | %:type %:file %:node calendar | %:type %:date" |