Synch to No Gnus 200504250650.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc0f801..424409a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,7 +5,8 @@
        skip headers in which the original date value is empty.
        (gnus-article-date-value): New function.
        (gnus-article-save-original-date): Abolish.
-       (gnus-display-mime): Save original date after doing all treatments.
+       (gnus-display-mime): Save original date after doing all treatments
+       as well.
 
 2005-04-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 5a4c15f..14d0144 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3277,6 +3277,9 @@ The buffer is expected to be narrowed to just the header of the article."
 (defmacro gnus-article-save-original-date (&rest forms)
   "Save the original date as a text property."
   `(let ((date (,(symbol-function 'gnus-article-date-value))))
+     (goto-char (point-max))
+     (skip-chars-backward "\n")
+     (put-text-property (point-min) (point) 'original-date date)
      ,@forms
      (goto-char (point-max))
      (skip-chars-backward "\n")