* 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>
(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)