From 886f8fec7f3ff15e6f6517ce688d9228876ee32e Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Wed, 21 Apr 2004 15:55:24 +0000 Subject: [PATCH] =?utf8?q?(spam-summary-prepare-exit):=20logic=20and=20mes?= =?utf8?q?sage=20fix.=20Reported=20by=20bojohan+news@dd.chalmers.se=20(Joh?= =?utf8?q?an=20Bockg=C3=A5rd).?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ChangeLog | 5 +++++ lisp/spam.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d913a49ce..abd9713fe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-04-21 Teodor Zlatanov + + * spam.el (spam-summary-prepare-exit): logic and message fix. + Reported by bojohan+news@dd.chalmers.se (Johan Bockg,Ae(Brd). + 2004-04-17 Jesper Harder * gnus-sum.el (gnus-set-global-variables) diff --git a/lisp/spam.el b/lisp/spam.el index 111f67100..5eeb08a58 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -733,7 +733,8 @@ Respects the process/prefix convention." ;; call spam-register-routine with specific articles to unregister, ;; when there are articles to unregister and the check is enabled (when (and unregister-list (symbol-value check)) - (spam-register-routine classification check t unregister-list)))))) + (spam-register-routine + classification check t unregister-list)))))) ;; find all the spam processors applicable to this group (dolist (processor-param spam-list-of-processors) @@ -745,9 +746,10 @@ Respects the process/prefix convention." (spam-register-routine classification check)))) (unless (and spam-move-spam-nonspam-groups-only - (not (spam-group-spam-contents-p gnus-newsgroup-name))) + (spam-group-spam-contents-p gnus-newsgroup-name)) (gnus-message 5 "Marking spam as expired and moving it to %s" - gnus-newsgroup-name) + (gnus-parameter-spam-process-destination + gnus-newsgroup-name)) (spam-mark-spam-as-expired-and-move-routine (gnus-parameter-spam-process-destination gnus-newsgroup-name))) -- 2.25.1