From d8cc10e1d78e56a39958d83d8036afee2e01940e Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 6 Nov 2000 23:26:20 +0000 Subject: 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. --- lisp/gnus/gnus-mlspl.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp/gnus') diff --git a/lisp/gnus/gnus-mlspl.el b/lisp/gnus/gnus-mlspl.el index 2fbde2046c0..7b979d14710 100644 --- a/lisp/gnus/gnus-mlspl.el +++ b/lisp/gnus/gnus-mlspl.el @@ -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 @@ nnmail-pre-get-new-mail-hook." ;;;###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 @@ Calling (gnus-group-split-fancy nil nil \"mail.misc\") returns: (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)) -- cgit v1.2.3