X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fspam.el;h=39a6748e03402cbf3a1579a9f2d5b27086e51dd8;hb=e5ab2b48c63f436bb8222caa5e6aa63df093d1f2;hp=25521b4d943667f03505f38584e403611e52ce2e;hpb=4176c1a6a55e2ccddea026dbe2fee3e0d97191ce;p=elisp%2Fgnus.git-

diff --git a/lisp/spam.el b/lisp/spam.el
index 25521b4..39a6748 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -869,8 +869,11 @@ Will not return a nil score."
 
     ;; now we redo spam-mark-spam-as-expired-and-move-routine to only
     ;; expire spam, in case the above did not expire them
-    (gnus-message 6 "Marking spam as expired without moving it")
-    (spam-mark-spam-as-expired-and-move-routine nil)
+    (when (< 0 (spam-list-articles
+		gnus-newsgroup-articles
+		'spam))
+      (gnus-message 6 "Marking spam as expired without moving it")
+      (spam-mark-spam-as-expired-and-move-routine nil))
 
     (when (or (spam-group-ham-contents-p gnus-newsgroup-name)
 	      (and (spam-group-spam-contents-p gnus-newsgroup-name)