(gnus-registry-unfollowed-groups): Add INBOX to the

list of groups not followed by default.  Fix type to be regexp.
(gnus-registry-grep-in-list): Fix inverted parameters to string-match.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 70bd923..0f83c08 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-09-12  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-registry.el (gnus-registry-unfollowed-groups): Add INBOX to the
+       list of groups not followed by default.  Fix type to be regexp.
+       (gnus-registry-grep-in-list): Fix inverted parameters to string-match.
+
 2007-09-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-start.el (gnus-gnus-to-newsrc-format): Use a unibyte buffer and

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 3cfc3d5..f6b862a 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -76,14 +76,14 @@
                              :test 'equal)
   "*The article registry by Message ID.")
 
-(defcustom gnus-registry-unfollowed-groups '("delayed" "drafts" "queue")
+(defcustom gnus-registry-unfollowed-groups '("delayed$" "drafts$" "queue$" "INBOX$")
   "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
 message into a group that matches one of these, regardless of
 references.'"
   :group 'gnus-registry
-  :type '(repeat string))
+  :type '(repeat regexp))
 
 (defcustom gnus-registry-install nil
   "Whether the registry should be installed."
@@ -584,7 +584,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
          (mapcar 'not
                  (mapcar
                   (lambda (x)
-                    (string-match x word))
+                    (string-match word x))
                   list)))))
 
 (defun gnus-registry-fetch-extra (id &optional entry)