Appendix A.1	改造事例: Reply-To == MLで必要な時にはReply-Toを設定するコマンド


でもコマンドで実装しなくてもええやんか？メール本文の先頭に
Reply-To: address があったらそれを設定する。

$START_HOOK = q!
    local($pat) = '.*\s*reply-to:\s*';
    local($s);
    if ($Envelope{'Body'} =~ /^$pat(\S+)/i) {
	&DEFINE_FIELD_FORCED('reply-to', $s=$1);
        &Log("reply-to: <$s>");
	$Envelope{'Body'} =~ s/^$pat\S+\n//io;
    }
!;