'vacation' program to check for 'reply-to' (Alan?)

Hey folks, I'm not sure if my vacation message spammed the procmail list,  
but it came close.

Here's what happened: Philip Guenther sent a message to me and cc'd it to  
the procmail list (a reply to a question I asked awhile ago).

Philip set the Reply-To the procmail list (as I often do), and since the  
message was To|Cc me, my vacation program thought it was the right thing to  
do to send the reply.  But, since he had set his replies to the list, the  
reply was directed not at Philip, but at the list.

I thought I saw something like this a good while back, but my procmail  
mailbox is actually getting too large for its own good (26megs).

What types of things can I do to make sure this doesn't happen again? Here  
is what I am using:


REPLYTO=`formail -rtzxTo:`

# the list of people who have already been ACK'd
NOTIFIED=$VACDIR/replied_to.txt

# the list of people to never ACK
NOACK=$VACDIR/noack.txt

# the file to control whether the program is on or not
TOUCHME=$VACDIR/vacation-program-is-active

# the text of the vacation message
MESSAGE=$VACDIR/message.txt

:0ch
* ^(To|Cc):.*(luomat|next-ftp)
* ? test -f $TOUCHME
* ! ? fgrep -s "$REPLYTO" $NOTIFIED
* ! ? fgrep -s "$REPLYTO" $NOACK
* ! ^X-Processing: autoreply
* ! ^X-SpamChecker:
* ! ^FROM_DAEMON
* ! ^Subject:.*(Read Receipt|\
        Mottagarkvitto|\
        Empfangsbestaetigung|\
        NeXT_FTP_Report|\
        auto-response|\
        Your Mail to Support|\
        Returned|\
        I am away|\
        ACK)
* ! ^(Sender: nextppp(_at_)chinx1(_dot_)ThoughtPort(_dot_)COM|\
        X-Mailing-List:|\
        Reply-To: bestserv-replies(_at_)antigone(_dot_)com|\
        X-Loop: TopTen(_at_)pobox(_dot_)com)
* ! ^Precedence:.*(list|bulk|spam|none|junk)
* ! ^Resent-(Date|From|To|Message-ID|Message-Id):
* ! ^Auto-Submitted: auto-generated \(failure\)
* ! ^From:.*(Majordomo|\
        remove|\
        abuse|\
        spam|\
        support|\
        Owner)
* ! ^From .*@(lists\.best\.com|\
        netmind.com|\
        antigone\.com)
|( formail -rt -I"From: $FROMSIG" \
        -I"Subject: Re:${SUBJECT} (auto-response)" \
        -I"X-Loop: $MY_ADDR" \
        -I"X-Processing: autoreply" \
        -I"Reply-To: nobody(_at_)peak(_dot_)org" \
        -I"Bcc: luomat(_at_)peak(_dot_)org" \
        -I"X-YourMessageID: $ID" \
        -I"Precedence: junk" \
        ; echo " " \
        ; echo " ########################################### " \
        ; echo " #                                         # " \
        ; echo " # THIS IS AN AUTOMATED RESPONSE EMAIL     # " \
        ; echo " # PLEASE DO NOT REPLY TO THIS MESSAGE     # " \
        ; echo " #                                         # " \
        ; echo " # YOU SHOULD ONLY RECEIVE ONE COPY OF     # " \
        ; echo " # THIS EMAIL PER ADDRESS                  # " \
        ; echo " #                                         # " \
        ; echo " ########################################### " \
        ; echo " " \
        ; echo " I received your email message regarding '$SUBJECT'" \
        ; echo " at $DATE and it was automatically " \
        ; echo " filed it to my $FOLDER mailbox.  Neat, eh?" \
        ; echo " " \
        ; cat "${MESSAGE}" \
        ) | $SENDMAIL -oi -t

:0ahi: notified.lock
|echo "$REPLYTO" >> $NOTIFIED