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