From 8e1bbc73fd650c0b821b9bd1d4bd25ed4ecd8631 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Sat, 15 May 2004 18:36:01 +0000 Subject: [PATCH] (spam-summary-prepare-exit): oops, forgot (length) --- lisp/ChangeLog | 4 ++++ lisp/spam.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ec3cee11b..9d377d5f3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-05-15 Teodor Zlatanov + + * spam.el (spam-summary-prepare-exit): oops, forgot (length) + 2004-05-14 Teodor Zlatanov * gnus-dup.el (gnus-dup-unsuppress-article): don't assume the mail diff --git a/lisp/spam.el b/lisp/spam.el index 7577a7100..8fc286d19 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)) -- 2.34.1