diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2011-01-13 18:31:34 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-01-13 18:31:34 +0100 |
commit | bc841dcf235290b95947b9287e2553b25eef6b99 (patch) | |
tree | e99da10603180d5c68d1f537ed461a37a106d74c | |
parent | 47537dcda8709793bdea5f2e43f3dd8d4c4f86b9 (diff) | |
download | org-mode-bc841dcf235290b95947b9287e2553b25eef6b99.tar.gz |
Revert "Fix org-store-link in GNUS messages with date"
This reverts commit e599234d5c0245dfc53037a6dc0128349b197627.
-rw-r--r-- | lisp/org-gnus.el | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index ae5dc52..32641bf 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -152,16 +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 (org-trim (mail-header-date header))) - (date-ts (and date - (condition-case nil - (format-time-string - (org-time-stamp-format t) - (date-to-time date))))) - (date-ts-ia (and date - (condition-case nil - (format-time-string - (org-time-stamp-format t t) - (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) |