Browse Source

Fix org-store-link in GNUS messages with date

* lisp/org-gnus.el (org-gnus-store-link):

org-store-link on gnus message fails
Tassilo Horn 14 years ago
parent
commit
e599234d5c
1 changed files with 10 additions and 5 deletions
  1. 10 5
      lisp/org-gnus.el

+ 10 - 5
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
+			 (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)))))
 	   (subject (copy-sequence (mail-header-subject header)))
 	   (to (cdr (assq 'To (mail-header-extra header))))
 	   newsgroups x-no-archive desc link)