changeset 33270:93c83ac38c92

2000-11-06 John Wiegley <[e-mail]> * gnus-mlspl.el (gnus-group-split-update): Check the value of `nnmail-crosspost', and use it to set the `no-crosspost' argument when calling `gnus-group-split-fancy'. Otherwise, it assumes that cross-posting is always OK, no matter what `nmail-crosspost' is set to. (gnus-group-split-fancy): The argument order in the second-to-last `push' call was wrong, but since `no-crosspost' was always nil, it was never being triggered. 2000-11-06 ShengHuo ZHU <[e-mail]> * gnus-mlspl.el: Require cl when compiling.

--- a/lisp/gnus/gnus-mlspl.el	Mon Nov 06 23:14:25 2000 +0000
+++ b/lisp/gnus/gnus-mlspl.el	Mon Nov 06 23:26:20 2000 +0000
@@ -22,6 +22,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+(eval-when-compile (require 'cl))
 (require 'gnus)
 (require 'gnus-sum)
 (require 'gnus-group)
@@ -55,11 +56,12 @@
 ;;;###autoload
 (defun gnus-group-split-update (&optional catch-all)
   "Computes nnmail-split-fancy from group params.
-It does this by calling \(gnus-group-split-fancy nil nil DEFAULTGROUP)."
+It does this by calling \(gnus-group-split-fancy nil CROSSPOST DEFAULTGROUP)."
   (interactive)
   (setq nnmail-split-fancy
 	(gnus-group-split-fancy
-	 nil nil (or catch-all gnus-group-split-default-catch-all-group)))
+	 nil (null nnmail-crosspost)
+	 (or catch-all gnus-group-split-default-catch-all-group)))
   (run-hooks 'gnus-group-split-updated-hook))
 
 ;;;###autoload
@@ -195,7 +197,7 @@
 		    (setq catch-all nil)))))))))
     ;; Add catch-all if not crossposting
     (if (and catch-all no-crosspost)
-	(push split catch-all))
+	(push catch-all split))
     ;; Move it to the tail, while arranging that SPLITs appear in the
     ;; same order as groups.
     (setq split (reverse split))