[PREVIOUS CHAPTER]

Appendix A Examles

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