From 8bba88d8ff914135dbeac96d1ad7d7f7ba313b12 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 14 Feb 2011 11:59:56 -0800 Subject: [PATCH] Don't bug out when updating multiple headers. --- lisp/ChangeLog | 3 +++ lisp/gnus-art.el | 9 +++++---- 2 files changed, 8 insertions(+), 4 deletions(-) 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 + * 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))) -- 2.25.1