スパムメール対策

Yahoo!には、迷惑メールフィルタープラス（ベータ版）というスパムフィルターのサービスがあることを知りました。スパムメールが多くて困っていたので助かります。これで、僕のスパムメール対策は、

自宅

Yahoo!の迷惑メールフィルタープラス（ベータ版）+ Mew

職場

bsfilter + Mew

に固まりました。

Mewでメールを受信したときに、spamフォルダにリファイルするには以下のような設定をすればOKです。

;; Yahoo Filter
(setq mew-spam: "X-YahooFilteredBulk:")
; put "o +spam" at inc
(defun mew-spam-yahoofilter (val)
  (let ((case-fold-search t))
    (if (string-match "yes" val) "+spam")))
(setq mew-inbox-action-alist
	  '(("X-YahooFilteredBulk:" mew-spam-yahoofilter)))