Re: How to extract multiple email addresses in To: header

On Sat, May 14, 2005 at 12:36:44PM +0200, Dallman Ross wrote:
> Here is an improvement.  I still haven't solved the endless looping
> if the next address matches the one we just grabbed, though:
Now I have.


 ####################### start rcfile "get-addies.rc" #######################

 :0
 * HDRFLD ?? ^^()^^
 {
   HOSTCL      = [a-zA-Z0-9-]
   AHOST       = "($HOSTCL+[.])*$HOSTCL+"

   SPACE       = ' '
   TAB         = '      '
   NOTADDYCHRS = "][><)($SPACE$TAB,;:\"'@"


   HDRFLDNAME = ${HDRFLDNAME:-To}
   :0
   * $ ^$HDRFLDNAME:.*\/[^$SPACE$TAB].*
   { HDRFLD = $MATCH }
 }


 :0 
 * $  HDRFLD ?? ()\/[^$NOTADDYCHRS]+(_at_)$AHOST[(_dot_)][a-zA-Z]+
 {
    ADDRESS = $MATCH
    STRIPPED_ADDRESSES = "${STRIPPED_ADDRESSES:+$STRIPPED_ADDRESSES, }$ADDRESS"

    :0
    * $ HDRFLD ?? ()\<$\ADDRESS\/.*
    { HDRFLD = $MATCH }

    SWITCHRC = $_
 }

 ######################## end rcfile "get-addies.rc" ########################

-- 
dman

____________________________________________________________
procmail mailing list   Procmail homepage: http://www.procmail.org/
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail