From fa93aa78f80581f3cd486ccac93a1079a071ed6a Mon Sep 17 00:00:00 2001 From: David Maus Date: Thu, 23 Sep 2010 18:08:01 +0200 Subject: [PATCH] Define properties %:date-timestamp and %:date-timestamp-inactive * org-gnus.el (org-gnus-store-link): Define properties %:date-timestamp and %:date-timestamp-inactive. --- lisp/org-gnus.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 64912121b..61bc6ffd6 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -152,8 +152,11 @@ 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))) + (date-ts (and date (format-time-string + (org-time-stamp-format t) (date-to-time date)))) + (date-ts-ia (and date (format-time-string + (org-time-stamp-format t t) + (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) @@ -172,7 +175,8 @@ If `org-store-link' was called with a prefix arg the meaning of (org-store-link-props :type "gnus" :from from :subject subject :message-id message-id :group group :to to) (when date - (org-add-link-props :date date :org-date org-date)) + (org-add-link-props :date date :date-timestamp date-ts + :date-timestamp-inactive date-ts-ia)) (setq desc (org-email-link-description) link (org-gnus-article-link group newsgroups message-id x-no-archive)) -- 2.11.4.GIT