(spam-ham-move-routine)

[gnus] / lisp / spam.el

diff --git a/lisp/spam.el b/lisp/spam.el
index f0f828d..0f05657 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -426,7 +426,7 @@ your main source of newsgroup names."
     (when (stringp group)
       (dolist (article tomove)
        (gnus-summary-set-process-mark article))
-      (gnus-summary-move-article nil group))))
+      (when tomove (gnus-summary-move-article nil group)))))
  
 (defun spam-ham-move-routine (&optional group)
   (let ((articles gnus-newsgroup-articles)
@@ -443,7 +443,7 @@ your main source of newsgroup names."
       ;; now do the actual move
       (dolist (article tomove)
        (gnus-summary-set-process-mark article))
-      (gnus-summary-move-article nil group))))
+      (when tomove (gnus-summary-move-article nil group)))))
  
 (defun spam-generic-register-routine (spam-func ham-func)
   (let ((articles gnus-newsgroup-articles)