Forcing "Reply-To: Sender" in SmartList

I have been asking questions about this for a while to little avail, but I
did manage to fix it (or at least kludge it) today and it turned out to be
so simple that...maybe that's why very few people answer my questions, come
to think of it. ;)

To force SmartList to display a "Reply-To" line with the address of the
original sender in it, edit rc.submit thusly:

     # Put the sender's address in a variable

     REPLYTO=`formail -xFrom:`

     # Add the field if it doesn't already exist, the last ingredient
     # in this recipe

     :0 wfh
     | formail -b -IFrom\  -IReceived: -IReturn-Receipt-To: -IErrors-To: \
        -IX-Pmrqc: -IX-Confirm-Reading-To: -IX-Ack: -IAcknowledge-To: \
        -IRead-Receipt-To: -IReturn-Receipt-Requested: -IX-Diagnostic: \
        -iStatus: -iReturn-Path: -iX-Envelope-To: -iX-Envelope-From: \
        -I"Precedence: list" -I"Resent-Sender: $listreq" \
        -uDate: -aMessage-ID: -aResent-Message-ID: \
        -a"To: $listaddr" -a"Resent-From: $listaddr" -A"X-Loop: $listaddr" \
        -a"Subject: Unidentified subject!" ${reply_to:+"-a$reply_to"} \
        -a"X-Mailing-List: <$listaddr> $ARCHIVE" -a"Reply-To: $REPLYTO"

I expect some of you procmail geniuses could have done this in 12-15
seconds, but there it is anyway if somebody else needs it.


--Ken
           68 Westy, Admin -- type2 -- The VW Bus Mailing List