[mew-dist 24120] Re: spam again

[Kazu Yamamoto ( 山本和彦 )]

From: moto kawasaki <kawasaki at example.com>
Subject: [mew-dist 24078] Re: spam again

> いわずもがなかとは思いますが、"ssh bogofilter -s < spam-mail" のコマン
> ドラインをカスタマイズできると嬉しいです。
> ええと、直観的には
>     ssh コマンド           ssh
>     ssh オプション         -C
>     bogofilter コマンド    sudo bogofilter
>     bogofilter オプション  -svd /path/to/system/wide/wordlist.db
> くらいのカスタマイズ変数があれば、などと思っております。
> ＃ あったら嬉しいのは無論のことであります。

とりあえず、以下のように実装してみました。

(defvar mew-spam-prog "bogofilter")
(defvar mew-spam-prog-args '("-s"))

(defvar mew-ham-prog "bogofilter")
(defvar mew-ham-prog-args '("-n"))

(defun mew-summary-learm-spam ()
  (interactive)
  (mew-summary-msg
   (let* ((fld (mew-summary-folder-name))
	  (msg (mew-summary-message-number))
	  (file (mew-expand-folder fld msg)))
     (apply 'call-process mew-spam-prog file nil nil mew-spam-prog-args)
     (message "Learned as spam"))))

(defun mew-summary-learm-ham ()
  (interactive)
  (mew-summary-msg
   (let* ((fld (mew-summary-folder-name))
	  (msg (mew-summary-message-number))
	  (file (mew-expand-folder fld msg)))
     (apply 'call-process mew-ham-prog file nil nil mew-ham-prog-args)
     (message "Learned as ham"))))

ssh 経由にしたい場合は、
	(setq mew-spam-prog "ssh")
	(setq mew-spam-prog-args '("SERVER" "bogofilter" "-s"))
のようにして下さい。

一般的には、パスワードなしで SERVER に入れるようにしておく必要がありま
す。

NetBSD だと、パスワードを入力する必要がある場合、x11-ssh-askpass がダイ
アログを出してくれます。:-)

config に対応しないといけないかなぁと思案中。

なお、キー割り当てを絶賛募集中です。

> 1,2 ヶ月上のような手作業を続けた僕の体験では、ham への対応はとりあえず
> はなくても困らないと思います。ham なのに spam と認識した誤認識は覚えて
> いる限りでは 0 件（日量 100-200 通、主に国内のメイリングリスト購読）で
> した。

僕は人からルールをもらったんですが、結構な確率で間違います。ので、ham も
さっくりと作ってみました。:-)

P.S.

bogofilter は、spam/ham を学ばしても、何もメッセージを返さないので、本
当に学んだか不安。X-(

--かず