* nnshimbun.el (nnshimbun-request-expire-articles): Don't refer to the

[elisp/gnus.git-] / lisp / gnus-mlspl.el

diff --git a/lisp/gnus-mlspl.el b/lisp/gnus-mlspl.el
index 46ccc99..126c7d2 100644 (file)
--- a/lisp/gnus-mlspl.el
+++ b/lisp/gnus-mlspl.el
@@ -196,12 +196,9 @@ Calling (gnus-group-split-fancy nil nil \"mail.misc\") returns:
                         (list 'any split-regexp)
                         ;; Generate RESTRICTs for SPLIT-EXCLUDEs.
                         (if (listp split-exclude)
-                            (let ((seq split-exclude)
-                                  res)
-                              (while seq
-                                (push (cons '- (pop seq))
-                                      res))
-                              (apply #'nconc (nreverse res)))
+                             (apply #'append 
+                                    (mapcar (lambda (arg) (list '- arg))
+                                            split-exclude))
                           (list '- split-exclude))
                         (list group-clean))
                        split)