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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ffc2129cb182516d71842758a37b15f96c35d112..9c94a2ba2fa2195c09fa9cb35619c4786be9c978 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus-art.el b/lisp/gnus/gnus-art.el
index a76a71be6496639df602ac140101faf91b0203b7..07eabd98a6d7131fd85c554a944f18cc5ab0ed46 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/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