[mew-dist 24983] Re: 最近良く来る不正なメール

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki Ozaki <hideyuki.ozaki at example.com> さん曰く
Subject: [mew-dist 24981] Re: 最近良く来る不正なメール
Message-ID: <20040601.183713.100831041.hideyuki.ozaki at example.com>
Date: Tue, 01 Jun 2004 18:37:13 +0900 (JST)

流行っているかどうかわかりませんが、

> >Message-Id: <200406010131.i511VOw21224 at example.com>
> >
> >From: Hee Reksten <iqmkwfruoa at example.com>

ぼくのところでは、

Received: by jazz.mei.co.jp (8.12.10/3.7W/jazz) with SMTP id i4SEAB60009404;
	Fri, 28 May 2004 23:10:12 +0900 (JST)
Message-Id: <200405281410.i4SEAB60009404 at example.com>
-path: <lysgsyleoy at example.com>
From: Harrison Gourdine <lysgsyleoy at example.com>

のように MTA が -path: ってつけているようです。これが無かったら
尾崎さんと同じ状況です。

> こういう状態で来るので、Mewはヘッダ部分の解析が出来ない状態なんです。

手動で "-path:" を外すとそうですね。
設定を失敗しちゃうと危ないような気もするのですが、

(setq mew-refile-guess-alist
      '(("From:"
         (nil . "+spam"))
   .....

というように「From: が無い奴は Spam だ」的な形式を受け付けられる
ようにしたらどうでしょうか？

(defun mew-refile-guess-by-alist1 (rule)
 <<snip>>
       ((setq header (mew-header-get-value key))
	(while alist
 <<snip>>
	  (setq alist (cdr alist))))
       ((and (null header) (null (car (car alist))))
	(setq ent (cdr (car alist)))
	(when (stringp ent)
	  (mew-addq ret ent))))
      (setq rule (cdr rule)))
    (nreverse ret)))

な感じ。

3分で考えたので、まったく手抜きなコードですが。

-- 
白井秀行＠ぼくの From を騙った Spam のバウンスだらけ。。。;_;