# HG changeset patch # User Dave Love # Date 973553180 0 # Node ID 93c83ac38c92f8821aca797e70f9bd411da1c129 # Parent d551fdccd8bcb6865aa2a3ed8b1793699b798990 2000-11-06 John Wiegley * 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 * gnus-mlspl.el: Require cl when compiling. diff -r d551fdccd8bc -r 93c83ac38c92 lisp/gnus/gnus-mlspl.el --- 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))