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; } !;