[gnus git] branch master updated: =1= (article-date-ut): Get the date from the Date header on `t'.

Lars Ingebrigtsen <[email protected]>
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  2fe73cf99f750f56c12e4c3ac6413dca4590d8ed (commit)
      from  5f7a3e3424bc0c9f6750b8a13b8dbae669bbd649 (commit)


- Log -----------------------------------------------------------------
commit 2fe73cf99f750f56c12e4c3ac6413dca4590d8ed
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Feb 13 18:07:44 2011 -0800

    (article-date-ut): Get the date from the Date header on `t'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7cb48a4..0d1ec1d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-14  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-art.el (article-date-ut): Get the date from the Date header on
+	`t'.
+
 2011-02-14  Katsumi Yamaoka  <[email protected]>
 
 	* auth-source.el (auth-source-search): Use copy-sequence instead of
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index d7c0d7a..3e16308 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3404,6 +3404,7 @@ possible values."
 	 (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
@@ -3427,6 +3428,9 @@ possible values."
 	    (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)))))))
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    5 +++++
 lisp/gnus-art.el |    4 ++++
 2 files changed, 9 insertions(+), 0 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.