From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 14 Feb 2011 19:59:56 +0000 (-0800)
Subject:  Don't bug out when updating multiple headers.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=8bba88d8ff914135dbeac96d1ad7d7f7ba313b12;hp=c66426e1fb22d2f7767c57015af4ea5eff9fa6ea

 Don't bug out when updating multiple headers.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79d64232b..0bfa2b078 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,6 +10,9 @@
 
 2011-02-14  Lars Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-art.el (article-update-date-lapsed): Don't bug out when updating
+	multiple headers.
+
 	* nnimap.el (nnimap-inhibit-logging): New variable.
 	(nnimap-log-command): Don't log login commands.
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 3e1630804..82ad4974f 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3641,10 +3641,11 @@ function and want to see what the date was before converting."
 		 (let ((type (get-text-property (match-beginning 0)
 						'gnus-date-type)))
 		   (when (memq type '(lapsed combined-lapsed user-format))
-		     (unless (= window-start
-				(save-excursion
-				  (forward-line 1)
-				  (point)))
+		     (when (and window-start
+				(not (= window-start
+					(save-excursion
+					  (forward-line 1)
+					  (point)))))
 		       (setq window-start nil))
 		     (save-excursion
 		       (article-date-ut type t (match-beginning 0)))