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

[elisp/wanderlust.git] / elmo / elsp-bsfilter.el

diff --git a/elmo/elsp-bsfilter.el b/elmo/elsp-bsfilter.el
index 6ecf133..ab7f53d 100644 (file)
--- a/elmo/elsp-bsfilter.el
+++ b/elmo/elsp-bsfilter.el
@@ -94,7 +94,8 @@
         nil
         (append (if elmo-spam-bsfilter-shell-switch
                     (list elmo-spam-bsfilter-shell-switch))
-                (list elmo-spam-bsfilter-program)
+                (if elmo-spam-bsfilter-program
+                    (list elmo-spam-bsfilter-program))
                 elmo-spam-bsfilter-args
                 (if elmo-spam-bsfilter-database-directory
                     (list "--homedir" elmo-spam-bsfilter-database-directory))
@@ -116,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)))