[mew-dist 24221] Re: popfileによるSPAMの除去

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20031211.003843.23017855.ykondou at example.com>
  Date:       Thu, 11 Dec 2003 00:38:43 +0900 (JST)
  From:       Yuji KONDO <ykondou at example.com>
  Subject:    [mew-dist 24220] popfileによるSPAMの除去

  | 近藤と申します。
  | 
  | 最近、popfile(http://popfile.sourceforge.net/)というメールフィルタの存
  | 在を知りました。これを使うとメールに
  | 
  |   X-Text-Classification: denied

~/.mewにこんなのを書けばいいとおもいます。

(defun mew-spam-popfile (val)
  (let ((case-fold-search t))
    (if (string-match "yes" val) "+spam")))

(setq mew-scan-fields (delete mew-spam: mew-scan-fields))
(setq mew-spam: "X-Text-Classification:")
(setq mew-scan-fields (append mew-scan-fields (list mew-spam:)))

(setq mew-inbox-action-alist
      '(("X-Text-Classification:" mew-spam-popfile)))

--
鯉江英隆 <hide at example.com>