summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2010-09-22 11:35:32 +0200
committerBastien Guerry <bzg@altern.org>2010-09-22 11:35:32 +0200
commitd821c54aab037226027abdfc7a5283dfc6927032 (patch)
treef577c0bd037241782732b0ade35b4b0a5b2bdc10
parent90cc0c36c790050f25db3c9306f4d3f086a293c9 (diff)
downloadorg-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.el3
-rw-r--r--lisp/org-gnus.el5
-rw-r--r--lisp/org-remember.el3
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"