[Mew-dist 1818] get header in Scan.pm

[TSUMURA Tomoaki ( 津邑公暁 )]

つむら＠京大 です。

先日あるところから受けとった mail の imls での日付表示が 01/01 に
なってしまうので少し調べましたところ、header 部の一部が以下のように
なっていました。

---- ここから
References: <.....> <.....>
	                           ← タブひとつだけからなる行
Date: Fri, 29 Aug 1997 22:36:12 +0900
From: .....
---- ここまで

で、Scan.pm の store_header() 内の 
	$header =~ s/\n\s+/ /g;
で、

----
References: <.....> <.....> Date: Fri, 29 Aug 1997 22:36:12 +0900
From: .....
----

このように置換されてしまったため、Date: が取得できなかったようです。
\s は [ \r\t\n\f] だから \n にも match してしまいます。
＃ ...と考えるとタブの有無は関係ありませんね。

これは、もとの header 部が illegal と考えるべきなんでしょうか。
それとも
	$header =~ s/\n[ \t]+/ /g;
などと直すべきなのでしょうか？
＃ RFC を読みなさいと言われそうですが...。
--
``The paths of glory lead but to the grave.''
                                    津邑 公暁＠情報工学専攻.京大
                                      tsumura at example.com
                    http://www.lab3.kuis.kyoto-u.ac.jp/~tsumura/