From: hmurata <hmurata>
Date: Sat, 24 Jan 2004 08:52:25 +0000 (+0000)
Subject: * elsp-bogofilter.el (elmo-spam-bogofilter-arguments-alist):
X-Git-Tag: wl-2_11_24~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b0d40e502123325977148212340c4281eadd959e;p=elisp%2Fwanderlust.git

* elsp-bogofilter.el (elmo-spam-bogofilter-arguments-alist):
Follow the options change of latest bogofilter.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4aacb66..48df703 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2004-01-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* elsp-bogofilter.el (elmo-spam-bogofilter-arguments-alist):
+	Follow the options change of latest bogofilter.
+
 	* elsp-bogofilter.el (elmo-spam-bogofilter-spam-switch): Abolish.
 	(elmo-spam-bogofilter-good-switch): Ditto.
 	(elmo-spam-bogofilter-arguments-alist): New user option.
diff --git a/elmo/elsp-bogofilter.el b/elmo/elsp-bogofilter.el
index 08de763..7000307 100644
--- a/elmo/elsp-bogofilter.el
+++ b/elmo/elsp-bogofilter.el
@@ -53,12 +53,10 @@
   :group 'elmo-spam-bogofilter)
 
 (defcustom elmo-spam-bogofilter-arguments-alist
-  '((classify . ("-v" "-2"
-		 (if register "-u")
+  '((classify . ((if register "-u")
 		 (if elmo-spam-bogofilter-database-directory
 		     (list "-d" elmo-spam-bogofilter-database-directory))))
-    (register . ("-v"
-		 (if spam "-s" "-n")
+    (register . ((if spam "-s" "-n")
 		 (if restore (if spam "-N" "-S"))
 		 (if elmo-spam-bogofilter-database-directory
 		     (list "-d" elmo-spam-bogofilter-database-directory)))))