[gnus git] branch master updated: n0-15-82-g33cae6a =1= Fix registry ignored groups format and a logic bug.

       via  33cae6a34818350f826ad9015e4fd2518064c88a (commit)
      from  9b3dee79e6c18985d91b5bf43eba52b609a9f1dd (commit)


- Log -----------------------------------------------------------------
commit 33cae6a34818350f826ad9015e4fd2518064c88a
Author: Ted Zlatanov <[email protected]>
Date:   Thu Apr 21 11:27:39 2011 -0500

    Fix registry ignored groups format and a logic bug.
    
    * gnus-registry.el (gnus-registry-ignored-groups): Adjust defaults to
    match the parameter.
    (gnus-registry-ignore-group-p): Adjust to take either a group/topic
    parameter list or a string list in `gnus-registry-ignored-groups'.  Fix
    logic error.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f6c19d5..cff9d06 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2011-04-21  Teodor Zlatanov  <[email protected]>
+
+	* gnus-registry.el (gnus-registry-ignored-groups): Adjust defaults to
+	match the parameter.
+	(gnus-registry-ignore-group-p): Adjust to take either a group/topic
+	parameter list or a string list in `gnus-registry-ignored-groups'.  Fix
+	logic error.
+
 2011-04-21  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* shr.el (shr-expand-url): Protect against null urls.
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 21cec5f..672ef9c 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -138,14 +138,16 @@ nnmairix groups are specifically excluded because they are ephemeral."
   :type '(repeat regexp))
 
 (defcustom gnus-registry-ignored-groups
-  '("delayed$" "drafts$" "queue$" "INBOX$" "^nnmairix:" "archive")
+  (mapcar (lambda (g) (list g t))
+          '("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))
+  :type '(repeat (list regexp (choice (const :tag "Do not ignore" nil)
+                                      (const :tag "Ignore" t)))))
 
 (defcustom gnus-registry-install 'ask
   "Whether the registry should be installed."
@@ -660,12 +662,17 @@ Consults `gnus-registry-unfollowed-groups' and
 Consults `gnus-registry-ignored-groups' and
 `nnmail-split-fancy-with-parent-ignore-groups'."
   (and group
-       (not (or (gnus-grep-in-list
+       (or (gnus-grep-in-list
                  group
-                 gnus-registry-ignored-groups)
+            (delq nil (mapcar (lambda (g)
+                                (cond
+                                 ((stringp g) g)
+                                 ((and (listp g) (nth 1 g))
+                                  (nth 0 g))
+                                 (t nil))) gnus-registry-ignored-groups)))
                 (gnus-grep-in-list
                  group
-                 nnmail-split-fancy-with-parent-ignore-groups)))))
+            nnmail-split-fancy-with-parent-ignore-groups))))
 
 (defun gnus-registry-wash-for-keywords (&optional force)
   "Get the keywords of the current article.

-----------------------------------------------------------------------
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        |    8 ++++++++
 lisp/gnus-registry.el |   23 +++++++++++++++--------
 2 files changed, 23 insertions(+), 8 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