From 2fe73cf99f750f56c12e4c3ac6413dca4590d8ed Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 13 Feb 2011 18:07:44 -0800 Subject: [PATCH] (article-date-ut): Get the date from the Date header on `t'. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7cb48a459..0d1ec1da6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-02-14 Lars Ingebrigtsen + + * gnus-art.el (article-date-ut): Get the date from the Date header on + `t'. + 2011-02-14 Katsumi Yamaoka * auth-source.el (auth-source-search): Use copy-sequence instead of diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index d7c0d7a72..3e1630804 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))))))) -- 2.25.1