(spam-summary-prepare-exit): oops, forgot (length)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec3cee1..9d377d5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-15  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * spam.el (spam-summary-prepare-exit): oops, forgot (length)
+
 2004-05-14  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-dup.el (gnus-dup-unsuppress-article): don't assume the mail

diff --git a/lisp/spam.el b/lisp/spam.el
index 7577a71..8fc286d 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -869,9 +869,9 @@ 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
-    (when (< 0 (spam-list-articles
-               gnus-newsgroup-articles
-               'spam))
+    (when (< 0 (length (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))