From: yamaoka <yamaoka>
Date: Thu, 16 Jan 2003 00:26:59 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_14-00-quimby~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5c3fd303b3b63325c3ea8b86e2ce777c6dc10877;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/spam.el b/lisp/spam.el
index 37791aa..78a36ba 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -777,8 +777,9 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
 (defun spam-bogofilter-score ()
   "Get the Bogofilter spamicity score"
   (interactive)
-  (or (spam-check-bogofilter t)
-      0))
+  (let ((score (spam-check-bogofilter t)))
+    (message "Spamicity score %s" score)
+    (or score "0")))
 
 (defun spam-check-bogofilter (&optional score)
   "Check the Bogofilter backend for the classification of this message"