(rmail-spam-filter): Let-bind message-spam-status.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c23b2155300adba7e60bd0413d5680d0894e621..11ce4304280d805a2ecd8c6c8e4188a7956fb1d9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-02-14  Glenn Morris  <rgm@gnu.org>
 
+       * mail/rmail-spam-filter.el (rmail-spam-filter): Let-bind
+       message-spam-status.
+
        * mail/smtpmail.el (password-cache-add): Declare as function.
 
 2008-02-14  Justus Piater <Justus-bulk@Piater.name>  (tiny change)

diff --git a/lisp/mail/rmail-spam-filter.el b/lisp/mail/rmail-spam-filter.el
index 8cc2e04e9328092fcb871aefe9e0c330b29955ec..339abbebbf3f08892fbcb243d7829799d083dcd9 100644 (file)
--- a/lisp/mail/rmail-spam-filter.el
+++ b/lisp/mail/rmail-spam-filter.el
@@ -256,6 +256,7 @@ it from rmail file.  Called for each new message retrieved by
        (message-recipients)
        (message-subject)
        (message-content-type)
+       (message-spam-status)
        (num-spam-definition-elements)
        (num-element 0)
        (exit-while-loop nil)