projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d28cba2
)
Synch to No Gnus 200504250650.
author
yamaoka
<yamaoka>
Mon, 25 Apr 2005 06:53:28 +0000
(06:53 +0000)
committer
yamaoka
<yamaoka>
Mon, 25 Apr 2005 06:53:28 +0000
(06:53 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-art.el
patch
|
blob
|
history
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.
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>
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))))
(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")
,@forms
(goto-char (point-max))
(skip-chars-backward "\n")