From: yamaoka <yamaoka>
Date: Mon, 25 Apr 2005 06:53:28 +0000 (+0000)
Subject: Synch to No Gnus 200504250650.
X-Git-Tag: t-gnus-6_17_4-quimby-~497
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b2271d6b25a6a34a3983555cb863f415753faacc;p=elisp%2Fgnus.git-

Synch to No Gnus 200504250650.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc0f801..424409a 100644
--- 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
--- 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")