X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-mlspl.el;h=afeb41c0b6a3b210af9e32ddce99527c61a0c558;hb=e2f5f4bf46edb79df800d76be3b2ef31f8af9f7d;hp=73c7e168982b5245371dc6ec2fa36ec4cccfbf1d;hpb=178fc161c59aebf50ba3042c6aecb56888cb4d49;p=gnus

diff --git a/lisp/gnus-mlspl.el b/lisp/gnus-mlspl.el
index 73c7e1689..afeb41c0b 100644
--- a/lisp/gnus-mlspl.el
+++ b/lisp/gnus-mlspl.el
@@ -179,8 +179,12 @@ Calling (gnus-group-split-fancy nil nil \"mail.misc\") returns:
 			 (list 'any split-regexp)
 			 ;; Generate RESTRICTs for SPLIT-EXCLUDEs.
 			 (if (listp split-exclude)
-			     (mapcon (lambda (arg) (cons '- arg))
-				     split-exclude)
+			     (let ((seq split-exclude)
+				   res)
+			       (while seq
+				 (push (cons '- (pop seq))
+				       res))
+			       (apply #'nconc (nreverse res)))
 			   (list '- split-exclude))
 			 (list group-clean))
 			split)