Appendix A.1 Example: set up Reply-To if required when Reply-To == $MAIL_LIST*** NOT TRANSLATE THIS CHAPTER FOR AN ADDITIONAL BONUS PROGRAM *** $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; } !;