RE: Mew4 のバージョンに注意 (2005-12-11 15:58 by emon #18435)
ちょっと無理矢理なやり方かもしれませんが,bsfilter/mua/mew4/mew.el に以下のような修正をして使っています.
bm の後に enter を二回押さないといけないので,ちょっと使い勝手が悪いかもしれませんが.
*** 28,37 ****
"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
--- 28,36 ----
"study/judge the region and put the '*' mark onto spams.
need to re-learn if judgment of bsfilter is wrong"
(interactive "P")
! (let ((mew-prog-grep "bsfilter")
! (mew-prog-grep-opts '("-a" "--list-spam")))
! (mew-summary-pick)))
; show X-Spam-Flag and X-Spam-Probability in message buffer
(setq mew-field-spec