(article-date-ut): Get the date from the Date header on `t'.
authorLars Ingebrigtsen <larsi@gnus.org>
Mon, 14 Feb 2011 02:07:44 +0000 (18:07 -0800)
committerLars Ingebrigtsen <larsi@gnus.org>
Mon, 14 Feb 2011 02:07:44 +0000 (18:07 -0800)
lisp/ChangeLog
lisp/gnus-art.el

index 7cb48a4..0d1ec1d 100644 (file)
@@ -1,3 +1,8 @@
+2011-02-14  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (article-date-ut): Get the date from the Date header on
+       `t'.
+
 2011-02-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * auth-source.el (auth-source-search): Use copy-sequence instead of
 2011-02-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * auth-source.el (auth-source-search): Use copy-sequence instead of
index d7c0d7a..3e16308 100644 (file)
@@ -3404,6 +3404,7 @@ possible values."
         (inhibit-read-only t)
         (inhibit-point-motion-hooks t)
         (first t)
         (inhibit-read-only t)
         (inhibit-point-motion-hooks t)
         (first t)
+        (visible-date (mail-fetch-field "Date"))
         pos date bface eface)
     (save-excursion
       (save-restriction
         pos date bface eface)
     (save-excursion
       (save-restriction
@@ -3427,6 +3428,9 @@ possible values."
            (delete-region (point-at-bol) (progn
                                            (gnus-article-forward-header)
                                            (point))))
            (delete-region (point-at-bol) (progn
                                            (gnus-article-forward-header)
                                            (point))))
+         (when (and (not date)
+                    visible-date)
+           (setq date visible-date))
          (when date
            (article-transform-date date type bface eface)))))))
 
          (when date
            (article-transform-date date type bface eface)))))))