elsp-bsfilter.el、C-oでspam判定はしてくれるのだけれど-aがbsfilterに
渡っていないっぽい。どこが悪いの？
(require 'elmo-spam)
(require 'luna)
(defgroup elmo-spam-bsfilter nil
"Spam bsfilter configuration."
:group 'elmo-spam)
(defcustom elmo-spam-bsfilter-program "bsfilter"
"*Program name of the bsfilter."
:type '(string :tag "Program name of the bsfilter")
:group 'elmo-spam-bsfilter)
(eval-and-compile
(luna-define-class elsp-bsfilter (elsp-generic)))
(defsubst elsp-bsfilter-call-bsfilter (&rest args)
(apply #'call-process-region
(point-min) (point-max)
elmo-spam-bsfilter-program
nil nil nil
))
(luna-define-method elmo-spam-buffer-spam-p ((processor elsp-bsfilter)
buffer &optional register)
(with-current-buffer buffer
(elsp-bsfilter-call-bsfilter
"-a"
)))
(require 'product)
(product-provide (provide 'elsp-bsfilter) (require 'elmo-version))