(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 <shields@msrl.com>)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5c742c..a56814c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-04-05  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * 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 <shields@msrl.com>)
+
 2003-04-05  Steve Youngs  <youngs@xemacs.org>
 
        * gnus-sum.el: XEmacs doesn't support the 5th arg to 'load', so

diff --git a/lisp/spam.el b/lisp/spam.el
index 7ba3503..ff63026 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -473,8 +473,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
@@ -595,7 +595,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)
@@ -612,7 +612,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)