[mew-dist 26633] bsfilter with Mew

[Mitsugu SAKAMOTO]

坂本です。

　最近SPAMが激しいので、我慢ができなくなってbsfilterを導入しました。
Windows XPSP2 + Meadow mew 4.2.53の環境です。
http://www.bsfilter.org/
からbsfilter-1.0.9.tgzを取ってきて中に書いてあるようにやってみました。
で、これなんですが、ソースの中のmua/mew4/*を自分の.emacsと.mew.elに書いているので
すが、"bm"すると
let: Symbol's function definition is void: mew-summary-pick-body
と出てmew-summary-bsfilter-mark-regionが働きません。
何か間違っているのでしょうか？
bsfilterはpop proxyとして常駐しています。
;; .emacs
(setq mew-spam: "X-Spam-Flag:")

;; .mew.el
(defun mew-spam-bsfilter (val)
  (let ((case-fold-search t))
    (if (string-match "yes" val) ?D)))

; put "o +sapm" at inc
;(defun mew-spam-bsfilter (val)
;  (let ((case-fold-search t))
;    (if (string-match "yes" val) "+spam")))

(setq mew-inbox-action-alist
      '(("X-Spam-Flag:" mew-spam-bsfilter)))

; for "ls" (learn-spam)
(setq mew-spam-prog "bsfilter")
(setq mew-spam-prog-args '("-C" "-s" "-u"))

; for "lh" (learn-ham)
(setq mew-ham-prog "bsfilter")
(setq mew-ham-prog-args '("-c" "-S" "-u"))

; for "bm" (mark-spam)
(define-key mew-summary-mode-map "bm" 'mew-summary-bsfilter-mark-region)

(defun mew-summary-bsfilter-mark-region (&optional arg)
  "study/judge the region and put the '*' mark onto spams.
need to re-learn if judgment of bsfilter is wrong"
  (interactive "P")
  (mew-pickable
   (let ((func 'mew-summary-pick-with-cmd)
	 (mew-inherit-grep-cmd "bsfilter -a --list-spam"))
     (mew-summary-pick-body func t nil 'nopattern))))

; show X-Spam-Flag and X-Spam-Probability in message buffer
(setq mew-field-spec
      (reverse (append (list (car (reverse mew-field-spec)))
		       '(("^X-Spam-Probability:$" t)
			 ("^X-Spam-Flag:$" t))
		       (cdr (reverse mew-field-spec)))))

--
Mitsugu SAKAMOTO, ARGV
mitsugu at example.com
Powered by Meadow2 and BEP for Windows: http://www.argv.org/bep/