From: yoichi <yoichi>
Date: Sun, 27 Aug 2006 11:57:43 +0000 (+0000)
Subject: * elsp-bsfilter.el (elsp-bsfilter-call-bsfilter): Remove nil from args.
X-Git-Tag: wl-2_15_4~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=51735ab6a93528222d4897200dc26dc4ace6315d;p=elisp%2Fwanderlust.git

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

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