Commit d8cc10e1 authored by Dave Love's avatar Dave Love
Browse files

2000-11-06 John Wiegley <johnw@gnu.org>

	* 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  <zsh@cs.rochester.edu>

	* gnus-mlspl.el: Require cl when compiling.
parent 1464e703
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment