Don't bug out when updating multiple headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79d6423..0bfa2b0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,6 +10,9 @@
 
 2011-02-14  Lars Ingebrigtsen  <larsi@gnus.org>
 
 
 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.
 
        * 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 3e16308..82ad497 100644 (file)
--- 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))
                 (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)))
                       (setq window-start nil))
                     (save-excursion
                       (article-date-ut type t (match-beginning 0)))