[gnus git] branch master updated: n0-15-78-g30ad87c =1= Add ignored groups back.

       via  30ad87c1e3b03e7c0bf9a6c3b1269e753ba53955 (commit)
      from  1c149399d21d6a36c2ccf0b2e28addc52a4f926d (commit)


- Log -----------------------------------------------------------------
commit 30ad87c1e3b03e7c0bf9a6c3b1269e753ba53955
Author: Ted Zlatanov <[email protected]>
Date:   Wed Apr 20 15:48:24 2011 -0500

    Add ignored groups back.
    
    * gnus-registry.el (gnus-registry-ignored-groups): New variable.
    (gnus-registry-ignore-group-p): Use it.
    (gnus-registry-handle-action): Use `gnus-registry-ignore-group-p' and
    set the destination group to nil (same as delete) if it's ignored.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f23e8a3..0d2f6b6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,10 @@
 
 	* gnus-registry.el
 	(gnus-registry--split-fancy-with-parent-internal): Fix loop bugs.
+	(gnus-registry-ignored-groups): New variable.
+	(gnus-registry-ignore-group-p): Use it.
+	(gnus-registry-handle-action): Use `gnus-registry-ignore-group-p' and
+	set the destination group to nil (same as delete) if it's ignored.
 
 2011-04-20  David Engster  <[email protected]>
 
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 3dbffd9..21cec5f 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -137,6 +137,16 @@ nnmairix groups are specifically excluded because they are ephemeral."
   :group 'gnus-registry
   :type '(repeat regexp))
 
+(defcustom gnus-registry-ignored-groups
+  '("delayed$" "drafts$" "queue$" "INBOX$" "^nnmairix:" "archive")
+  "List of groups that the Gnus Registry will ignore.
+The group names are matched, they don't have to be fully
+qualified.
+
+nnmairix groups are specifically excluded because they are ephemeral."
+  :group 'gnus-registry
+  :type '(repeat regexp))
+
 (defcustom gnus-registry-install 'ask
   "Whether the registry should be installed."
   :group 'gnus-registry
@@ -341,6 +351,8 @@ This is not required after changing `gnus-registry-cache-file'."
    10
    "gnus-registry-handle-action %S" (list id from to subject sender recipients))
   (let ((db gnus-registry-db)
+        ;; if the group is ignored, set the destination to nil (same as delete)
+        (to (if (gnus-registry-ignore-group-p to) nil to))
         ;; safe if not found
         (entry (gnus-registry-get-or-make-entry id))
         (subject (gnus-string-remove-all-properties
@@ -643,6 +655,18 @@ Consults `gnus-registry-unfollowed-groups' and
                  group
                  nnmail-split-fancy-with-parent-ignore-groups)))))
 
+(defun gnus-registry-ignore-group-p (group)
+  "Determines if a group name should be ignored.
+Consults `gnus-registry-ignored-groups' and
+`nnmail-split-fancy-with-parent-ignore-groups'."
+  (and group
+       (not (or (gnus-grep-in-list
+                 group
+                 gnus-registry-ignored-groups)
+                (gnus-grep-in-list
+                 group
+                 nnmail-split-fancy-with-parent-ignore-groups)))))
+
 (defun gnus-registry-wash-for-keywords (&optional force)
   "Get the keywords of the current article.
 Overrides existing keywords with FORCE set non-nil."

-----------------------------------------------------------------------
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        |    4 ++++
 lisp/gnus-registry.el |   24 ++++++++++++++++++++++++
 2 files changed, 28 insertions(+), 0 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