エラーメッセージのコレクション

入力は
	Mail::Message オブジェクトの形で

	入力の最大値は？ （
		4.0 では 1024”行 ”を保存している。
		ログを残すこともある。
		）

	エラーを起こした元のメールをどうとらえるか？
	例えば、そのエラーになった Received: の系列をどう扱うか

  ＊ 全体のメールのヘッダ：
	X-MLServer があったら無視（エラーメールではないとおもう）

	日本語部分は無視？

出力は
	ハッシュで {
		駄目そうなメールアドレス => 理由
	}


○ 日本語のトラップはどうするとよい？

### VERY FUNDAMENTAL CONFIG ###
$ErrorCodePat = '55\d|5\.\d\.\d';
$TrapWord     = 'unknown \S+|\S+ unknown|\S+ not known| not found';

# regexp
$RE_SJIS_C = '[\201-\237\340-\374][\100-\176\200-\374]';
$RE_SJIS_S = "($RE_SJIS_C)+";
$RE_EUC_C  = '[\241-\376][\241-\376]';
$RE_EUC_S  = "($RE_EUC_C)+";
$RE_JIN    = '\033\$[\@B]';
$RE_JOUT   = '\033\([BJ]';
###############################