From mboxrd@z Thu Jan 1 00:00:00 1970 From: Julien Danjou Subject: [PATCH 2/2] Allow to retrieve email link date Date: Tue, 14 Dec 2010 15:32:18 +0100 Message-ID: <1292337138-14321-2-git-send-email-julien@danjou.info> References: <1292337138-14321-1-git-send-email-julien@danjou.info> Return-path: Received: from [140.186.70.92] (port=40553 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PSVvV-0001uw-CA for emacs-orgmode@gnu.org; Tue, 14 Dec 2010 09:32:26 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PSVvR-0004jd-RU for emacs-orgmode@gnu.org; Tue, 14 Dec 2010 09:32:25 -0500 Received: from coquelicot-s.easter-eggs.com ([213.215.37.94]:45454) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PSVvR-0004jO-LN for emacs-orgmode@gnu.org; Tue, 14 Dec 2010 09:32:21 -0500 In-Reply-To: <1292337138-14321-1-git-send-email-julien@danjou.info> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Julien Danjou * org.el (org-email-link-description): Allow to retrieve email link date. Signed-off-by: Julien Danjou --- lisp/org.el | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 79c5bf8..7841198 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. @@ -8496,6 +8497,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 -- 1.7.2.3