projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c85ff27
)
Add comment.
author
Lars Magne Ingebrigtsen
<larsi@gnus.org>
Mon, 31 Jan 2011 10:49:14 +0000
(
02:49
-0800)
committer
Lars Magne Ingebrigtsen
<larsi@gnus.org>
Mon, 31 Jan 2011 10:49:14 +0000
(
02:49
-0800)
lisp/gnus-art.el
patch
|
blob
|
history
diff --git
a/lisp/gnus-art.el
b/lisp/gnus-art.el
index
a0eb43e
..
6399f7f
100644
(file)
--- a/
lisp/gnus-art.el
+++ b/
lisp/gnus-art.el
@@
-1018,6
+1018,8
@@
on parts -- for instance, adding Vcard info to a database."
(let ((types '(ut local english lapsed combined-lapsed
iso8601 original user-defined))
default)
(let ((types '(ut local english lapsed combined-lapsed
iso8601 original user-defined))
default)
+ ;; Try to respect the legacy `gnus-treat-date-*' variables, if
+ ;; they're set.
(dolist (type types)
(let ((variable (intern (format "gnus-treat-date-%s" type))))
(when (and (boundp variable)
(dolist (type types)
(let ((variable (intern (format "gnus-treat-date-%s" type))))
(when (and (boundp variable)
@@
-1028,6
+1030,7
@@
on parts -- for instance, adding Vcard info to a database."
(memq 'lapsed default))
(setq default (delq 'lapsed default)))
(or default
(memq 'lapsed default))
(setq default (delq 'lapsed default)))
(or default
+ ;; If they weren't set, we default to `combined-lapsed'.
'(combined-lapsed)))
"A list of Date header formats to display.
Valid formats are `ut' (universal time), `local' (local time
'(combined-lapsed)))
"A list of Date header formats to display.
Valid formats are `ut' (universal time), `local' (local time