ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>
This commit is contained in:
Julien Danjou 2010-12-14 19:32:18 +00:00 committed by Carsten Dominik
parent 32be74e098
commit 073391f5a7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org.el
View File

@ -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 %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'. will be \"to NAME\". See also the variable `org-from-is-user-regexp'.
%s subject %s subject
%d date
%m message-id. %m message-id.
You may use normal field width specification between the % and the letter. 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" (plist-get p :to))
(cons "%t" (or (plist-get p :toname) (plist-get p :toaddress) "?")) (cons "%t" (or (plist-get p :toname) (plist-get p :toaddress) "?"))
(cons "%s" (plist-get p :subject)) (cons "%s" (plist-get p :subject))
(cons "%d" (plist-get p :date))
(cons "%m" (plist-get p :message-id))))) (cons "%m" (plist-get p :message-id)))))
(when (string-match "%c" fmt) (when (string-match "%c" fmt)
;; Check if the user wrote this message ;; Check if the user wrote this message