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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 9227c98..f9b9951 100644 (file)
--- 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 (file)
--- 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)))