diff options
| author | David Maus <dmaus@ictsoc.de> | 2010-09-23 18:04:47 +0200 |
|---|---|---|
| committer | David Maus <dmaus@ictsoc.de> | 2010-09-23 18:04:47 +0200 |
| commit | b82d6e9888f2c0d54c3a1204c9b31fe5e4084246 (patch) | |
| tree | 61c356adcff3bd2856bb28c4f9f51750f6337706 | |
| parent | 9ec705cb57b77595dd9aeb17f9168fb1db9ac908 (diff) | |
| download | org-mode-b82d6e9888f2c0d54c3a1204c9b31fe5e4084246.tar.gz | |
Handle empty date header field
* org-gnus.el (org-gnus-store-link): Handle empty date header field.
| -rw-r--r-- | lisp/org-gnus.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 106b9d5..6491212 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -170,8 +170,9 @@ If `org-store-link' was called with a prefix arg the meaning of newsgroups (gnus-fetch-original-field "Newsgroups") x-no-archive (gnus-fetch-original-field "x-no-archive"))) (org-store-link-props :type "gnus" :from from :subject subject - :date date :org-date org-date :message-id message-id :group group :to to) + (when date + (org-add-link-props :date date :org-date org-date)) (setq desc (org-email-link-description) link (org-gnus-article-link group newsgroups message-id x-no-archive)) |