(spam-mark-spam-as-expired-and-move-routine): ditto, use the process-mark

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c0b98d..7da1a7f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * spam.el (spam-ham-move-routine): use the process-mark instead of
        gnus-current-article when moving articles
+       (spam-mark-spam-as-expired-and-move-routine): ditto, use the process-mark
 
 2003-02-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/spam.el b/lisp/spam.el
index d39a946..6b24e49 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -421,8 +421,8 @@ your main source of newsgroup names."
       (when (eq (gnus-summary-article-mark article) gnus-spam-mark)
        (gnus-summary-mark-article article gnus-expirable-mark)
        (when (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-ham-move-routine (&optional group)
   (let ((articles gnus-newsgroup-articles)