summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTassilo Horn <tassilo@member.fsf.org>2011-01-13 19:28:07 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2011-01-13 19:48:45 +0100
commit0dfde2da72f9c46fc7c0270a9e1fb608d0633415 (patch)
tree39005f984bff8e1179fb4fa5d91c3bf170134f8c
parentbc841dcf235290b95947b9287e2553b25eef6b99 (diff)
downloadorg-mode-0dfde2da72f9c46fc7c0270a9e1fb608d0633415.tar.gz
org-store-link on gnus message fails
Carsten Dominik <carsten.dominik@gmail.com> writes: Hi Carsten, > is that patch on the patchwork server? If you find it, can you please > send me the ID? No, I cannot find it there. I'll attach it to this mail. From 4a0fe0bfd4aafed16f658e963fc10e966601d651 Mon Sep 17 00:00:00 2001 From: Tassilo Horn <tassilo@member.fsf.org> Date: Thu, 13 Jan 2011 19:25:04 +0100 Subject: [PATCH 3/3] * org-gnus.el (org-gnus-store-link): Don't error out if mail has no or bogus Date: header.
-rw-r--r--lisp/org-gnus.el15
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el
index 32641bf..e543f0e 100644
--- a/lisp/org-gnus.el
+++ b/lisp/org-gnus.el
@@ -152,11 +152,16 @@ 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 (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))))
+ (date-ts (and date
+ (ignore-errors
+ (format-time-string
+ (org-time-stamp-format t)
+ (date-to-time date)))))
+ (date-ts-ia (and date
+ (ignore-errors
+ (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)