* elsp-bsfilter.el (elsp-bsfilter-call-bsfilter): Remove nil from args.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index bbe4206..9227c98 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-27  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * elsp-bsfilter.el (elsp-bsfilter-call-bsfilter): Remove nil from
+       args.
+
 2006-08-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elsp-bsfilter.el (elmo-spam-bsfilter-max-files-per-process)

diff --git a/elmo/elsp-bsfilter.el b/elmo/elsp-bsfilter.el
index 6ecf133..8cae0e7 100644 (file)
--- a/elmo/elsp-bsfilter.el
+++ b/elmo/elsp-bsfilter.el
@@ -92,13 +92,14 @@
         nil (if elmo-spam-bsfilter-debug
                 (get-buffer-create "*Debug ELMO Bsfilter*"))
         nil
-        (append (if elmo-spam-bsfilter-shell-switch
-                    (list elmo-spam-bsfilter-shell-switch))
-                (list elmo-spam-bsfilter-program)
-                elmo-spam-bsfilter-args
-                (if elmo-spam-bsfilter-database-directory
-                    (list "--homedir" elmo-spam-bsfilter-database-directory))
-                (elmo-flatten args))))
+        (delq nil
+              (append (if elmo-spam-bsfilter-shell-switch
+                          (list elmo-spam-bsfilter-shell-switch))
+                      (list elmo-spam-bsfilter-program)
+                      elmo-spam-bsfilter-args
+                      (if elmo-spam-bsfilter-database-directory
+                          (list "--homedir" elmo-spam-bsfilter-database-directory))
+                      (elmo-flatten args)))))
 
 (luna-define-method elmo-spam-buffer-spam-p ((processor elsp-bsfilter)
                                             buffer &optional register)