(spam-ham-move-routine): use the process-mark instead of

gnus-current-article when moving articles

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72aa5c8..7c0b98d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-11  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * spam.el (spam-ham-move-routine): use the process-mark instead of
+       gnus-current-article when moving articles
+
 2003-02-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-topic.el (gnus-topic-expire-articles): Recursive.

diff --git a/lisp/spam.el b/lisp/spam.el
index ffecadf..d39a946 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -430,12 +430,11 @@ your main source of newsgroup names."
 
     (dolist (mark spam-ham-marks)
       (push (symbol-value mark) ham-mark-values))
-    
-    (dolist (article articles)
+    (dolist (article articles)      
       (when (and (memq (gnus-summary-article-mark article) ham-mark-values)
                 (stringp group))
-       (let ((gnus-current-article article))
-         (gnus-summary-move-article nil group))))))
+       (gnus-summary-set-process-mark article)
+       (gnus-summary-move-article nil group)))))
  
 (defun spam-generic-register-routine (spam-func ham-func)
   (let ((articles gnus-newsgroup-articles)