From ac6c2157fc36f4faffa7aa1b01557559d286da90 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 16 May 2004 00:38:35 +0000 Subject: [PATCH] Synch to No Gnus 200405151836. --- lisp/ChangeLog | 4 ++++ lisp/spam.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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 + + * 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 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)) -- 1.7.10.4