(article-date-ut): Protect against articles with no Date header.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54f5c3b..f24ce7f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-01  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-art.el (article-date-ut): Protect against articles with no Date
+       header.
+
        * gnus-start.el (gnus-read-active-file-1): Remove dead parameter infos.
 
 2011-01-31  Lars Ingebrigtsen  <larsi@gnus.org>

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a76a71b..07eabd9 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3443,7 +3443,8 @@ possible values."
            (delete-region (point-at-bol) (progn
                                            (gnus-article-forward-header)
                                            (point))))
-         (article-transform-date date type bface eface))))))
+         (when date
+           (article-transform-date date type bface eface)))))))
 
 (defun article-transform-date (date type bface eface)
   (dolist (this-type (cond