From: Lars Magne Ingebrigtsen Date: Mon, 18 Oct 2010 19:04:24 +0000 (+0200) Subject: Splitting according to references/in-reply-to obeys the ignore-groups X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=3552c087f76ecce4c38cc5b2e3824811711856c6;p=gnus 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 f151d292f..7be4326eb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-10-18 Andrew Cohen + + * 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 * 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 6c2233f9c..79080f21b 100644 --- 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