From 51735ab6a93528222d4897200dc26dc4ace6315d Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 27 Aug 2006 11:57:43 +0000 Subject: [PATCH] * elsp-bsfilter.el (elsp-bsfilter-call-bsfilter): Remove nil from args. --- elmo/ChangeLog | 5 +++++ elmo/elsp-bsfilter.el | 15 ++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) 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 + + * elsp-bsfilter.el (elsp-bsfilter-call-bsfilter): Remove nil from + args. + 2006-08-25 Hiroya Murata * 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) -- 1.7.10.4