mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

gnus-art.el (article-date-ut): Replace infinitely many Date headers with a single one when called interactively.

Browse Source
This commit is contained in:
Lars Ingebrigtsen 2011-01-31 12:29:31 +00:00 committed by Katsumi Yamaoka
parent 5b9b62f152
commit 0c74b83871
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/gnus/ChangeLog
View File

@ -3,6 +3,8 @@
* gnus-art.el (article-transform-date): Rewrite to still work when
there are several rfc2822 parts.
(article-transform-date): Fix infinite recursion.
(article-date-ut): Replace infinitely many Date headers with a single
one when called interactively.
* nnimap.el (nnimap-wait-for-response): Wait for results in a more
secure manner.

7
lisp/gnus/gnus-art.el
View File

@ -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)
;; 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)
@ -1028,6 +1030,7 @@ on parts -- for instance, adding Vcard info to a database."
(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
@ -3439,8 +3442,8 @@ possible values."
(setq date (get-text-property (match-beginning 0) 'original-date))
(delete-region (point-at-bol) (progn
(gnus-article-forward-header)
(point)))
(article-transform-date date type bface eface)))))))
(point))))
(article-transform-date date type bface eface))))))
(defun article-transform-date (date type bface eface)
(dolist (this-type (cond