Re: Sorting several lists into a common folder -- with a nice pretty nam

Toen wij Bob George kietelden, kwam er dit uit:
> Ruud H.G. van Tol:
> >   match2folder = "
${TAB}listname(_at_)yahoogroups(_dot_)com${TAB}<mailto:listname-unsubscribe(_at_)${TAB}f
older1
> >
${TAB}otherlist(_at_)yahoogroups(_dot_)com${TAB}<mailto:otherlist-unsubscribe(_at_)${TAB
}folder2
> > "
> Let me rephrase my question better: Won't LINEBUF impose a limit
> (default 2048) on the size of $match2folder? Admittedly, that is
> still a lot (about 40 lists using a short example), and LINEBUF can be
> increased. But verbose List-Id: headers might cause problems, no?
A lot less if you shrink things first (as I already suggested).

    OR = "9876543210^0"
    List_Name # unset

    :0
    *$ $OR ^(Sender:[   ]*owner-|X-BeenThere:[  ]*|\
             Delivered-To:[     ]*mailing list )\/[-a-z0-9_+]+
    *$ $OR ^(List-Post:[        ]*(<mailto:)?|\
             X-LSV-ListID:[     ]*|\
             List-Owner:[       ]*(<mailto:)?owner-)\/[-a-z0-9_+]+
    *$ $OR ^Sender:.* List"? <(mailto:)?\/[-a-z0-9_+]+
    { List_Name = "$MATCH" }

    :0E
    * ^Sender:[         ]*\/[-a-z0-9_+]+-owner
    {
      :0
      * MATCH ?? ^^\/.*-
      * MATCH ?? ^^\/[^-]+(-+[^-]+)*
      { List_Name = "$MATCH" }

      :0E
      * MATCH ?? ^^\/.*-
      * MATCH ?? ^^\/[^-]+(-+[^-]+)*
      { List_Name = "$MATCH" }
    }

    # here: convert List_Name to its destiny

    :0
    * List_Name ?? .
    IN.list.${List_Name}

-- 
Grtz, Ruud


____________________________________________________________
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