[Mew-dist 1148] requests for IM::Scan (Re: imsort-alpha )

[FUJIMOTO Kensaku / 藤本謙作]

IMをインストールして&my_get_msgで遊んでいたので
まだMew-1.85の方は試していませんが、

;; In message <199707011259.VAA24049 at example.com>
;;   ukai at example.com said:

ukai> --- Scan.pm.orig	Tue Jul  1 20:27:30 1997
ukai> +++ Scan.pm	Tue Jul  1 20:59:57 1997
ukai> @@ -222,6 +222,9 @@
ukai>  	##
ukai>  	## Date
ukai>  	##
ukai> +	## XXX: save original date
ukai> +	$Head{'date:'} = $Head{'date'};
ukai> +
ukai>  	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
ukai>  		localtime((stat($path))[9]);
ukai>  	my $stamp = sprintf "%s%d/%s%d*", 

こういうのもなんなので、
get_headerの中で加工したものは、
元の名前でなく、例えば
$Head{'date:monmday}
とかなんとか、
別の名前に格納する方がよくないですか。
$Head{'date'}は常に元の"Date:"を保存することにする。
referencesとかその他も同様。
でないとmy_get_msgなどで元の内容を使いたい時困る。

IM::Scanに対する要望ついでに、
get_headerの中から呼ばれるhookもあるといいですね。

 --
 FUJIMOTO Kensaku <fujimoto at example.com>
                  <fujimoto at example.com>