From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 31 Jan 2011 11:25:05 +0000 (-0800)
Subject: Replace infinitely many Date headers with a single one when called interactively.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=c9411643b863c43a6e89bf9a24783ca20f9496bf;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0afb500b1..82b88c0a7 100644
--- 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 6399f7f8e..a76a71be6 100644
--- 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