(spam-bogofilter-score): check bogofilter headers before

[gnus] / lisp / spam.el

diff --git a/lisp/spam.el b/lisp/spam.el
index a286a16..e39524b 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -980,7 +980,8 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
   (save-window-excursion
     (gnus-summary-show-article t)
     (set-buffer gnus-article-buffer)
-    (let ((score (spam-check-bogofilter t)))
+    (let ((score (or (spam-check-bogofilter-headers t)
+                    (spam-check-bogofilter t))))
       (message "Spamicity score %s" score)
       (or score "0"))))