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

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8bd2cd5..3557b55 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,8 +10,10 @@
 	Bogofilter interface
 	(spam-summary-prepare-exit): use the new Bogofilter functions
 	(spam-list-of-checks): added spam-use-bogofilter-headers
-	(gnus-summary-mode-map): removed the spam-bogofilter-score entries
-	for now
+	(spam-bogofilter-score): rewrote function
+	(spam-check-bogofilter): optional score parameter, uses
+	spam-check-bogofilter-headers better
+	(spam-check-bogofilter-headers): optional score parameter
 
 	* gnus.el (gnus-install-group-spam-parameters): new variable, t by
 	default, in the gnus-start customization group.  Used to disable
diff --git a/lisp/spam.el b/lisp/spam.el
index a3a13f6..37791aa 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -775,6 +775,8 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
 
 ;; return something sensible if the score can't be determined
 (defun spam-bogofilter-score ()
+  "Get the Bogofilter spamicity score"
+  (interactive)
   (or (spam-check-bogofilter t)
       0))