T-gnus 6.15.18 revision 00.

[elisp/gnus.git-] / lisp / spam.el

diff --git a/lisp/spam.el b/lisp/spam.el
index fc5b8c6..a64606d 100644 (file)
--- 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)