[gnus git] branch master updated: =3= (nnimap-update-info): Clean up slightly. ; (nnimap-update-info): Tell Gnus whether there are any \Recent messages. ; * nnimap.el (nnimap-update-info): Refactor slightly.

       via  530c9fe9d00f3eb2e8ab4fee30d7161fd3fbb78d (commit)
       via  53a8390260d9772fb881cde237fab69ccfc80c88 (commit)
       via  765dbe6a3dfd742b7c874f2de416848bd8772c9b (commit)
      from  0bca1908b8a435b5ade1dbebeb9f98207e81d9c4 (commit)


- Log -----------------------------------------------------------------
commit 530c9fe9d00f3eb2e8ab4fee30d7161fd3fbb78d
Author: Lars Ingebrigtsen <[email protected]>
Date:   Mon Feb 7 02:21:39 2011 -0800

    (nnimap-update-info): Clean up slightly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb01408..73bee4b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* nnimap.el (nnimap-update-info): Refactor slightly.
 	(nnimap-update-info): Tell Gnus whether there are any \Recent messages.
+	(nnimap-update-info): Clean up slightly.
 
 2011-02-06  Lars Ingebrigtsen  <[email protected]>
 
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 44ee790..6de49eb 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1226,12 +1226,12 @@ textual parts.")
 	     (completep (and start-article
 			     (= start-article 1)))
 	     (active (or (gnus-active group)
-			 (cdr (assq 'active (gnus-info-params info)))))
-	     new-active)
+			 (cdr (assq 'active (gnus-info-params info))))))
 	(when uidnext
 	  (setq high (1- uidnext)))
 	;; First set the active ranges based on high/low.
-	(setq new-active
+	(gnus-set-active
+	 group
 	      (if (or completep
 		      (not (gnus-active group)))
 		  (cond
@@ -1252,7 +1252,6 @@ textual parts.")
 		    nil))
 		(cons (car active)
 		      (or high (1- uidnext)))))
-	(gnus-set-active group new-active)
 	;; See whether this is a read-only group.
 	(unless (eq permanent-flags 'not-scanned)
 	  (gnus-group-set-parameter

commit 53a8390260d9772fb881cde237fab69ccfc80c88
Author: Lars Ingebrigtsen <[email protected]>
Date:   Mon Feb 7 02:20:52 2011 -0800

    (nnimap-update-info): Tell Gnus whether there are any \Recent messages.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ba2338..bb01408 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-02-07  Lars Ingebrigtsen  <[email protected]>
 
 	* nnimap.el (nnimap-update-info): Refactor slightly.
+	(nnimap-update-info): Tell Gnus whether there are any \Recent messages.
 
 2011-02-06  Lars Ingebrigtsen  <[email protected]>
 
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index b1bbf4e..44ee790 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1316,6 +1316,16 @@ textual parts.")
 		    (when new-marks
 		      (push (cons (car type) new-marks) marks)))))
 	      (gnus-info-set-marks info marks t))))
+	;; 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))))
 	;; 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)

commit 765dbe6a3dfd742b7c874f2de416848bd8772c9b
Author: Lars Ingebrigtsen <[email protected]>
Date:   Mon Feb 7 02:04:12 2011 -0800

    * nnimap.el (nnimap-update-info): Refactor slightly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f5bfeb..8ba2338 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-02-07  Lars Ingebrigtsen  <[email protected]>
+
+	* nnimap.el (nnimap-update-info): Refactor slightly.
+
 2011-02-06  Lars Ingebrigtsen  <[email protected]>
 
 	* nntp.el (nntp-finish-retrieve-group-infos): Protect against the first
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index b50d656..b1bbf4e 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1226,13 +1226,14 @@ textual parts.")
 	     (completep (and start-article
 			     (= start-article 1)))
 	     (active (or (gnus-active group)
-			 (cdr (assq 'active (gnus-info-params info))))))
+			 (cdr (assq 'active (gnus-info-params info)))))
+	     new-active)
 	(when uidnext
 	  (setq high (1- uidnext)))
 	;; First set the active ranges based on high/low.
+	(setq new-active
 	(if (or completep
 		(not (gnus-active group)))
-	    (gnus-set-active group
 			     (cond
 			      (active
 			       (cons (min (or low (car active))
@@ -1248,11 +1249,10 @@ textual parts.")
 			       (cons start-article (1- start-article)))
 			      (t
 			       ;; No articles and no uidnext.
-			       nil)))
-	  (gnus-set-active
-	   group
+		    nil))
 	   (cons (car active)
 		 (or high (1- uidnext)))))
+	(gnus-set-active group new-active)
 	;; See whether this is a read-only group.
 	(unless (eq permanent-flags 'not-scanned)
 	  (gnus-group-set-parameter

-----------------------------------------------------------------------
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 |    6 ++++++
 lisp/nnimap.el |   51 ++++++++++++++++++++++++++++++---------------------
 2 files changed, 36 insertions(+), 21 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