From 7c60e4f9b2599039f5fc8fbc5bf4ade4120113b7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sat, 5 Apr 2003 14:27:04 +0000 Subject: [PATCH] Synch to Oort Gnus 200304051403. --- lisp/ChangeLog | 6 ++++++ lisp/spam.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f5c742c..a56814c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-04-05 Teodor Zlatanov + + * spam.el (spam-split): (save-excursion) around (widen) + (spam-ham-move-routine): Use spam-group-ham-mark-p, not + spam-group-spam-mark-p (from Michael Shields ) + 2003-04-05 Steve Youngs * gnus-sum.el: XEmacs doesn't support the 5th arg to 'load', so diff --git a/lisp/spam.el b/lisp/spam.el index fc5b8c6..a64606d 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -470,8 +470,8 @@ your main source of newsgroup names." (when (stringp group) ; this routine will do nothing ; without a valid group (dolist (article articles) - (when (spam-group-spam-mark-p gnus-newsgroup-name - (gnus-summary-article-mark article)) + (when (spam-group-ham-mark-p gnus-newsgroup-name + (gnus-summary-article-mark article)) (push article tomove))) ;; now do the actual move @@ -592,7 +592,7 @@ example like this: (: spam-split) See the Info node `(gnus)Fancy Mail Splitting' for more details." (interactive) - + (save-excursion (dolist (check spam-list-of-statistical-checks) (when (symbol-value check) (widen) @@ -609,7 +609,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (setq decision (funcall (cdr pair)))))) (if (eq decision t) nil - decision))) + decision)))) (defun spam-setup-widening () (dolist (check spam-list-of-statistical-checks) -- 1.7.10.4