(spam-ham-move-routine)

(spam-mark-spam-as-expired-and-move-routine): made the article
move conditional, so it's not called even if there's nothing to move

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 189f65d..9a8931a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-02-13  Teodor Zlatanov  <tzz@bwh.harvard.edu>
+
+       * spam.el (spam-ham-move-routine) 
+       (spam-mark-spam-as-expired-and-move-routine): made the article
+       move conditional, so it's not called even if there's nothing to move
+
 2003-02-13  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
        * message.el (message-unix-mail-delimiter): Accept any whitespace

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)