From 0c74b838718955f7989a76f1e829af6fc8e25e61 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 31 Jan 2011 12:29:31 +0000 Subject: [PATCH] gnus-art.el (article-date-ut): Replace infinitely many Date headers with a single one when called interactively. --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/gnus-art.el | 7 +++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 34314ad8479..f9bcd902cd9 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -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. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index a0eb43eff61..a76a71be649 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/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) + ;; 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 -- 2.39.5