summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJulien Danjou <julien@danjou.info>2010-12-14 19:32:18 +0000
committerCarsten Dominik <carsten.dominik@gmail.com>2010-12-16 14:17:54 +0100
commit073391f5a794d3d085774c3c4130966246f0b9c4 (patch)
treefdf40b2624a6453a70460e251802c06a22196006
parent32be74e098ebcbc0c31b347d45c18cd00a9e97bd (diff)
downloadorg-mode-073391f5a794d3d085774c3c4130966246f0b9c4.tar.gz
Allow to retrieve email link date
* org.el (org-email-link-description): Allow to retrieve email link date. Signed-off-by: Julien Danjou <julien@danjou.info>
-rw-r--r--lisp/org.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/org.el b/lisp/org.el
index ee47118..53039e4 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -1321,6 +1321,7 @@ The following %-escapes will be replaced by corresponding information:
%c correspondent. Usually \"from NAME\", but if you sent it yourself, it
will be \"to NAME\". See also the variable `org-from-is-user-regexp'.
%s subject
+%d date
%m message-id.
You may use normal field width specification between the % and the letter.
@@ -8497,6 +8498,7 @@ according to FMT (default from `org-email-link-description-format')."
(cons "%T" (plist-get p :to))
(cons "%t" (or (plist-get p :toname) (plist-get p :toaddress) "?"))
(cons "%s" (plist-get p :subject))
+ (cons "%d" (plist-get p :date))
(cons "%m" (plist-get p :message-id)))))
(when (string-match "%c" fmt)
;; Check if the user wrote this message