diff options
author | David Maus <dmaus@ictsoc.de> | 2010-09-23 18:08:01 +0200 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2010-09-23 18:08:01 +0200 |
commit | fa93aa78f80581f3cd486ccac93a1079a071ed6a (patch) | |
tree | ab888e65fb425be57fdff5f11167c0c35517476e | |
parent | b82d6e9888f2c0d54c3a1204c9b31fe5e4084246 (diff) | |
download | org-mode-fa93aa78f80581f3cd486ccac93a1079a071ed6a.tar.gz |
Define properties %:date-timestamp and %:date-timestamp-inactive
* org-gnus.el (org-gnus-store-link): Define properties
%:date-timestamp and %:date-timestamp-inactive.
-rw-r--r-- | lisp/org-gnus.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 6491212..61bc6ff 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)) |