[gnus git] branch master updated: =1= (nnimap-update-info): Simplify split history test.

       via  fb8f2a30fdfc3d563268d94b5bc12faa34d2aa76 (commit)
      from  77b51da138680394f8cb5cef724e9af0cc78ba3d (commit)


- Log -----------------------------------------------------------------
commit fb8f2a30fdfc3d563268d94b5bc12faa34d2aa76
Author: Lars Ingebrigtsen <[email protected]>
Date:   Mon Feb 7 08:25:58 2011 -0800

    (nnimap-update-info): Simplify split history test.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6472b0..37b0707 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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  <[email protected]>
 
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 127082b..a6fe6b1 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1342,13 +1342,11 @@ textual parts.")
 	;; 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))
+	  (when (and active
+		     recent
+		     (> (car (last recent)) (cdr active)))
 		(push (list (cons (gnus-group-real-name group) 0))
-		      nnmail-split-history)
-		(setq recent nil))
-	      (pop recent))))
+		  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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    1 +
 lisp/nnimap.el |   12 +++++-------
 2 files changed, 6 insertions(+), 7 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project