[gnus git] branch master updated: n0-15-14-g7280fef =1= Ignore "archive:sent" groups. Bail out early if enough matches are found while tracking the sender (the slowest registry search).

       via  7280feff116a662645fac9e08de3aef8403b780e (commit)
      from  de65ae06bf60c9a99b6e001575f14560ca5056d2 (commit)


- Log -----------------------------------------------------------------
commit 7280feff116a662645fac9e08de3aef8403b780e
Author: Ted Zlatanov <[email protected]>
Date:   Tue Mar 29 11:09:22 2011 -0500

    Ignore "archive:sent" groups.  Bail out early if enough matches are found while tracking the sender (the slowest registry search).
    
    * gnus-registry.el (gnus-registry-unfollowed-groups): Add
    "archive:sent" to the unfollowed group regex (for the recent Gnus
    archive:sent-YYYY-MM-DD groups).
    (gnus-registry-split-fancy-with-parent): Bail out early in sender
    tracking if there are more than `gnus-registry-max-track-groups'
    matches.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad8cf6e..59eb9d5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2011-03-29  Teodor Zlatanov  <[email protected]>
+
+	* gnus-registry.el (gnus-registry-unfollowed-groups): Add
+	"archive:sent" to the unfollowed group regex (for the recent Gnus
+	archive:sent-YYYY-MM-DD groups).
+	(gnus-registry-split-fancy-with-parent): Bail out early in sender
+	tracking if there are more than `gnus-registry-max-track-groups'
+	matches.
+
 2011-03-29  Stefan Monnier  <[email protected]>
 
 	* message.el (message--yank-original-internal): New function to do the
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index cef173c..db3cc06 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -124,7 +124,7 @@ display."
   :type 'symbol)
 
 (defcustom gnus-registry-unfollowed-groups
-  '("delayed$" "drafts$" "queue$" "INBOX$" "^nnmairix:")
+  '("delayed$" "drafts$" "queue$" "INBOX$" "^nnmairix:" "archive")
   "List of groups that gnus-registry-split-fancy-with-parent won't return.
 The group names are matched, they don't have to be fully
 qualified.  This parameter tells the Registry 'never split a
@@ -541,8 +541,10 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 		       user-mail-address)))
       (maphash
        (lambda (key value)
-	 (let ((this-sender (cdr
-			     (gnus-registry-fetch-extra key 'sender)))
+         ;; don't use more than gnus-registry-max-track-groups
+         (when (< (length found-full) gnus-registry-max-track-groups)
+           (let ((this-sender
+                  (cdr (gnus-registry-fetch-extra key 'sender)))
 	       matches)
 	   (when (and this-sender
 		      (equal sender this-sender))
@@ -558,7 +560,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 	      ;; raise level of messaging if gnus-registry-track-extra
 	      (if gnus-registry-track-extra 7 9)
 	      "%s (extra tracking) traced sender %s to groups %s (keys %s)"
-	      log-agent sender found matches))))
+                log-agent sender found matches)))))
        gnus-registry-hashtb)
       ;; filter the found groups and return them
       ;; the found groups are NOT the full groups

-----------------------------------------------------------------------
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        |    9 +++++++++
 lisp/gnus-registry.el |   40 +++++++++++++++++++++-------------------
 2 files changed, 30 insertions(+), 19 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