[mew-dist 24524] Re: spamcを使ってSPAMメールに D マークを付けたい

[Tatsuya Kinoshita]

On January 28, 2004, [mew-dist 24417],
Kazu Yamamoto <kazu at example.com> wrote:

> > 「X-Spam-Flag: Yes」が付いたメールと同じように、メールの取り込み時に
> > D マーク(mew-mark-delete)をつけるためには、.emacsにどのような記述を
> > すれば良いのでしょうか？
> 
> 23292 の 2) は捨てられました。

この機能、復活させてもよさそうな気がしています。spamcではなく
bogofilterを使うと、速度の低下は、非同期の機能が台無しにならない
程度で収まりそうな感じです。

とりあえず下記のコードで試しています。(+inboxでのscan時に、spamに
`D'マークが付きます)

-----
;;; A sample ~/.mew.el for Mew 4 + bogofilter
;; This file is written by Tatsuya Kinoshita.  Copyright is disclaimed.

(setq my-mew-summary-form-mark-spam t) ;; If non-nil, the mark specified by 'my-mew-mark-spam' is automatically put on spam messages.

(setq my-mew-mark-spam mew-mark-delete)
(setq my-mew-prog-bogofilter "bogofilter")

(defadvice mew-summary-form-mark (after mark-spam activate)
  (let ((fld (MEW-FLD))
	file)
    (if (and my-mew-summary-form-mark-spam
	     (mew-folder-inboxp fld)
	     (not (string= ad-return-value (char-to-string my-mew-mark-spam)))
	     (mew-which-exec my-mew-prog-bogofilter)
	     (setq file (mew-expand-folder fld (MEW-NUM)))
	     (file-exists-p file)
	     (= (call-process my-mew-prog-bogofilter file nil nil)
		0))
	(setq ad-return-value (char-to-string my-mew-mark-spam)))))
-----

-- 
木下達也