From: yamaoka <yamaoka>
Date: Sun, 16 May 2004 00:38:35 +0000 (+0000)
Subject: Synch to No Gnus 200405151836.
X-Git-Tag: t-gnus-6_17_4-quimby-~933
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ac6c2157fc36f4faffa7aa1b01557559d286da90;p=elisp%2Fgnus.git-

Synch to No Gnus 200405151836.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec3cee1..9d377d5 100644
--- 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 39a6748..1634027 100644
--- 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))