(gnus-registry-split-fancy-with-parent):

nnmail-split-fancy-with-parent-ignore-groups can be a single regex
in addition to a list of regexes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b919567..9456a3b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2003-05-08  Teodor Zlatanov  <tzz@lifelogs.com>
 
+       * gnus-registry.el (gnus-registry-split-fancy-with-parent):
+       nnmail-split-fancy-with-parent-ignore-groups can be a single regex
+       in addition to a list of regexes.
+
        * spam.el (spam-use-regex-headers): docstring fix.  From Niklas
        Morberg <niklas.morberg@axis.com>
 

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 9cc54cd..4da392c 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -134,8 +134,11 @@ see which group that message was put in.  This group is returned.
 See the Info node `(gnus)Fancy Mail Splitting' for more details."
   (let ((refstr (or (message-fetch-field "references")
                    (message-fetch-field "in-reply-to")))
-       (references nil)
-       (res nil))
+       (nnmail-split-fancy-with-parent-ignore-groups
+        (if (listp nnmail-split-fancy-with-parent-ignore-groups)
+            nnmail-split-fancy-with-parent-ignore-groups
+          (list nnmail-split-fancy-with-parent-ignore-groups)))
+       references res)
     (when refstr
       (setq references (nreverse (gnus-split-references refstr)))
       (mapcar (lambda (x)