diff options
| author | Dave Love <fx@gnu.org> | 2000-11-06 23:26:20 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-11-06 23:26:20 +0000 |
| commit | d8cc10e1d78e56a39958d83d8036afee2e01940e (patch) | |
| tree | dbb1884fa4584798aa4fc76926c30bf96664135b /lisp/gnus/gnus-mlspl.el | |
| parent | 1464e703ba2d7d9549571563626437c4ccf2fc55 (diff) | |
| download | emacs-d8cc10e1d78e56a39958d83d8036afee2e01940e.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/gnus-mlspl.el')
| -rw-r--r-- | lisp/gnus/gnus-mlspl.el | 8 |
1 files changed, 5 insertions, 3 deletions
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)) |