(nnmail-split-fancy-with-parent): Correct `mapconcat'

syntax.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c828932..e50e0d8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-04  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * nnmail.el (nnmail-split-fancy-with-parent): Correct `mapconcat'
+       syntax.
+
 2001-08-03 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-util.el (mm-find-charset-region): Remove control-1.

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 20bb370..ff18422 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1484,7 +1484,10 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
         (references nil)
         (res nil)
         (regexp (if (consp nnmail-split-fancy-with-parent-ignore-groups)
-                    (mapconcat 'nnmail-split-fancy-with-parent-ignore-groups " *\\|")
+                    (mapconcat
+                     (lambda (x) (format "\\(%s\\)" x))
+                     nnmail-split-fancy-with-parent-ignore-groups
+                     "\\|")
                   nnmail-split-fancy-with-parent-ignore-groups)))
     (when refstr
       (setq references (nreverse (gnus-split-references refstr)))