From b2271d6b25a6a34a3983555cb863f415753faacc Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 25 Apr 2005 06:53:28 +0000 Subject: [PATCH] Synch to No Gnus 200504250650. --- lisp/ChangeLog | 3 ++- lisp/gnus-art.el | 3 +++ 2 files changed, 5 insertions(+), 1 deletion(-) 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 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") -- 1.7.10.4