Splitting according to references/in-reply-to obeys the ignore-groups

variable, while splitting by sender and subject do not.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f151d29..7be4326 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-10-18  Andrew Cohen  <cohen@andy.bu.edu>
+
+       * gnus-registry.el (gnus-registry-split-fancy-with-parent): Splitting
+       according to references/in-reply-to obeys the ignore-groups variable,
+       while splitting by sender and subject do not.
+
 2010-10-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-article-dumbquotes-map): Make into a char/string

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 6c2233f..79080f2 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -551,8 +551,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                            key
                            gnus-registry-max-track-groups)))
               (dolist (group groups)
-                (push group found-full)
-                (setq found (append (list group) (delete group found)))))
+                (when (and group (gnus-registry-follow-group-p group))
+                  (push group found-full)
+                  (setq found (append (list group) (delete group found))))))
             (push key matches)
             (gnus-message
              ;; raise level of messaging if gnus-registry-track-extra
@@ -580,8 +581,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                            key
                            gnus-registry-max-track-groups)))
               (dolist (group groups)
-                (push group found-full)
-                (setq found (append (list group) (delete group found)))))
+                (when (and group (gnus-registry-follow-group-p group))
+                  (push group found-full)
+                  (setq found (append (list group) (delete group found))))))
             (push key matches)
             (gnus-message
              ;; raise level of messaging if gnus-registry-track-extra