[mew-dist 23322] Re: spamassassin

[Kazu Yamamoto ( 山本和彦 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 23315] Re: spamassassin

> > あと、任意のヘッダの文字列による簡単なフィルタリングくらいまでは mew
> > でサービスするとして(^o^)
> 
> UA 838 の機内でひらめいたので、現在実装中です。

とりあえず、D マークは付けられるようにしました。

現在の変数は、mew-spam-alist のみです。(inc 時に refile もできるように
なる予定なので、名前を変えるかも。)

例1) spamassassin の人

(defun mew-spam-assassin (val)
  (let ((case-fold-search t))
    (if (string-match "yes" val) mew-mark-delete)))

(setq mew-spam-alist '(("X-Spam-Flag:" mew-spam-assassin)))

例2) Mew に判断させたい人

(setq mew-spam-alist
      `(("Subject:"
	 (,mew-mark-delete "アダルト" "未承諾広告"))
	("Content-Type:"
	 (,mew-mark-delete "big5" "gb2312" "ks_c_5601-1987" "euc-kr"))))

--かず＠ねむい