# ~/pm/listmail.rc

  :0
  *$ $OR ^(X-)?List-[^:]+:
  *$ $OR ^Precedence:.*(bulk|junk|list)
  *$ $OR ^X-Mailer: Accucast
  { ListMsg = 'T' }

  :0E
  {
    List_Cvt_From = "\
`sed \
-e 's/^[      ]+//; /^#/d; /:/!d' \
 $CFG_dir/listmail.cfg`$List_Cvt_From"

    RegEx = "\
`sed \
-e '/^[         ]*$/d; /^[      ]*#/d' \
-e :a -e '$!N; s/\n/~/; ta' \
-e 's/^/~/' \
-e 's/~#[^~]*/~/g' \
-e 's/:[^~]*~/~/g' \
-e 's/~@/~[^@]+@/g' \
-e 's/\./\\\./g' \
-e 's/^~\{1,\}//; s/~\{1,\}$//; s/~\{1,\}/|/g' \
 $CFG_dir/listmail.cfg`"
# Still need to change that, I have learned a lot of sed 
# after I coded that.

    :0
    *$ From_Addr ?? $RegEx
    { ListMsg = 'T' }

    :0E
    * ^Mail-System-Version: Broadc@st HTML[ ]
    * ^X-Sender:
    * ^X-OriginalArrivalTime:
    { ListMsg = 'T' }
  }

  :0
  * ListMsg ?? T
  * Use_List_Name ?? ^^(T|Y)
  {
    :0
    *$ 1^1 ^(Sender:[   ]*owner-|X-BeenThere:[  ]*|\
             Delivered-To:[     ]*mailing list )\/[-a-z0-9_+]+
    *$ $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"
      ToLOG = "$ToLOG $$${TAB}List.a: $List_Name$NL"
    }

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

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

    }

    :0
    * List_Name ?? ^^^^
    {
      :0
      *$ List_Cvt_From ?? (^| | )@$\From_Domain:\/[^    ]*
      {
        List_Name = "$MATCH"
        ToLOG = "$ToLOG $$${TAB}List.d: $List_Name$NL"
      }


      :0E
      *$ List_Cvt_From ?? (^| | )$\From_Addr:\/[^       ]*
      {
        List_Name = "$MATCH"
        ToLOG = "$ToLOG $$${TAB}List.e: $List_Name$NL"
      }
    }

    :0
    *$ List_Cvt ?? (^| |        )$\List_Name:\/[^       ]*
    {
      List_Name = "$MATCH"
      ToLOG = "$ToLOG $$${TAB}List.f: $List_Name$NL"
    }

    :0
    * List_Name ?? .
    { List_Box = "$List_Box.$List_Name" }
  }


  # ~/listmail.cfg
  @borland.com:tech
  @lists.eyrie.org
  @ibm.email-publisher.com:ibm
  @([-a-z0-9]+\.)+ibm.com:ibm
  @mail.imc.org:tech
  @nl.internet.com:tech
  @lockergnome.com:tech
  @newsletters.microsoft.com:microsoft
  @newsletters.online.com:jars
  @neuralware.com:tech
  @oracle-mail.com:tech
  [-a-z0-9=.]@srs.perfora.net:tech
  @(bounce.)?phpclasses.org:php
  @mlm.phplens.com:php
  @(gborg|svr3).postgresql.org:postgres
  @lists.rwth-aachen.de:tech
  bounce-[0-9]+-[0-9]+@mail.ryanairmail.com
  @sans.org:sans
  slashdot@slashdot.org:slashdot
  (nobody@devnull|service@admin).spamcop.net:spamcop
  @spamvrij.nl:spamvrij
  @[-a-z0-9]+.b.tep1.com:ibm
  @thinkgeek.com:tech
  @([a-z0-9]+.)*vmware.com:tech
  @vpro.nl
  @respond.whatcounts.com:tech
  @wilmott.com:tech
  www@mail2.wspc.com.sg:tech
  announce@xs4all.nl:xs4all
  @returns.groups.yahoo.com:yahoo
  @lists.zend.com:php