From: yoichi <yoichi>
Date: Sun, 27 Aug 2006 12:28:27 +0000 (+0000)
Subject: (elsp-bsfilter-list-spam-files): Ditto.
X-Git-Tag: wl-2_15_4~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eaea8353ed9857d1921edbc0e72c3343fd4a7ce4;p=elisp%2Fwanderlust.git

(elsp-bsfilter-list-spam-files): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 9227c98..f9b9951 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -2,6 +2,7 @@
 
 	* elsp-bsfilter.el (elsp-bsfilter-call-bsfilter): Remove nil from
 	args.
+	(elsp-bsfilter-list-spam-files): Ditto.
 
 2006-08-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
diff --git a/elmo/elsp-bsfilter.el b/elmo/elsp-bsfilter.el
index 662b103..ab7f53d 100644
--- a/elmo/elsp-bsfilter.el
+++ b/elmo/elsp-bsfilter.el
@@ -117,8 +117,10 @@
    nil
    (append (if elmo-spam-bsfilter-shell-switch
 	       (list elmo-spam-bsfilter-shell-switch))
-	   (list elmo-spam-bsfilter-program "--list-spam")
+	   (if elmo-spam-bsfilter-program
+	       (list elmo-spam-bsfilter-program))
 	   elmo-spam-bsfilter-args
+	   (list "--list-spam")
 	   (if elmo-spam-bsfilter-database-directory
 	       (list "--homedir" elmo-spam-bsfilter-database-directory))
 	   targets)))