[Emacs-diffs] /srv/bzr/emacs/trunk r103185: nnimap.el (nnimap-update-info): Simplify split history test.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103185
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2011-02-07 22:49:38 +0000
message:
  nnimap.el (nnimap-update-info): Simplify split history test.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-02-07 13:03:22 +0000
+++ b/lisp/gnus/ChangeLog       2011-02-07 22:49:38 +0000
@@ -7,6 +7,7 @@
        characters.
        (nnimap-process-quirk): Renamed function to avoid collision.
        (nnimap-update-info): Fix macrology bug-out.
+       (nnimap-update-info): Simplify split history test.
 
 2011-02-06  Lars Ingebrigtsen  <address@hidden>
 

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2011-02-07 13:03:22 +0000
+++ b/lisp/gnus/nnimap.el       2011-02-07 22:49:38 +0000
@@ -1342,13 +1342,11 @@
        ;; Tell Gnus whether there are any \Recent messages in any of
        ;; the groups.
        (let ((recent (cdr (assoc '%Recent flags))))
-         (when (and active recent)
-           (while recent
-             (when (> (car recent) (cdr active))
-               (push (list (cons (gnus-group-real-name group) 0))
-                     nnmail-split-history)
-               (setq recent nil))
-             (pop recent))))
+         (when (and active
+                    recent
+                    (> (car (last recent)) (cdr active)))
+           (push (list (cons (gnus-group-real-name group) 0))
+                 nnmail-split-history)))
        ;; Note the active level for the next run-through.
        (gnus-group-set-parameter info 'active (gnus-active group))
        (gnus-group-set-parameter info 'uidvalidity uidvalidity)