Replace infinitely many Date headers with a single one when called interactively.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0afb500..82b88c0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-art.el b/lisp/gnus-art.el
index 6399f7f..a76a71b 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3442,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