From 12d2584661c10b36a2deb51ced7c8e3ea96b8d1f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 18 Apr 2003 09:43:36 +0000 Subject: [PATCH] Synch to Oort Gnus 200304180403. --- lisp/ChangeLog | 5 +++++ lisp/spam.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9492a9a..e1a03f0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-04-18 Teodor Zlatanov + + * spam.el (spam-split): allow a particular check as a parameter, + e.g. (: spam-split 'spam-use-bogofilter) + 2003-04-17 Teodor Zlatanov * gnus.el (gnus-group-short-name, gnus-group-prefixed-p): new functions diff --git a/lisp/spam.el b/lisp/spam.el index 531af73..2240641 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -596,10 +596,10 @@ definitely a spam.") "The spam-list-of-statistical-checks list contains all the mail splitters that need to have the full message body available.") -(defun spam-split () +(defun spam-split (&rest specific-checks) "Split this message into the `spam' group if it is spam. This function can be used as an entry in `nnmail-split-fancy', for -example like this: (: spam-split) +example like this: (: spam-split). It can take checks as parameters. See the Info node `(gnus)Fancy Mail Splitting' for more details." (interactive) @@ -616,7 +616,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." decision) (while (and list-of-checks (not decision)) (let ((pair (pop list-of-checks))) - (when (symbol-value (car pair)) + (when (and (symbol-value (car pair)) + (or (null specific-checks) + (memq (car pair) specific-checks))) (gnus-message 5 "spam-split: calling the %s function" (symbol-name (cdr pair))) (setq decision (funcall (cdr pair)))))) (if (eq decision t) -- 1.7.10.4