// From 
// To:
// CC:
// Subject:
// Date:

BoF

// Extract the headers

Search("|<From |* |D|D:|D|D:|D|D", NOERR+ERRBREAK)

while(! At_EoF){
  while(Match("|<|N") != 0){     // walk through the header lines
    Line(1, NOERR+ERRBREAK)
  }
  Line(1, NOERR+ERRBREAK)        // the dividing empty line
  
  while(Match("|<From |* |D|D:|D|D:|D|D") != 0){  // delete mail body
    Del_Line(1)
    if(At_EoF){ break }
  }
}


// only get some wanted header lines

BoF

while(! At_EoF){
  if(Match("|{From ,To:,CC:,Subject:,Date:,|N}") != 0){
    Del_Line(1)
  }else{
    Line(1, ERRBREAK)
  }
}


//


BoF

while(! At_EoF){
  BB(CP)
  while(Match("|<|N") != 0){     // walk through the header lines
    Line(1, NOERR+ERRBREAK)
  }
  Line(1, NOERR+ERRBREAK)        // the dividing empty line
  BE(CP)
  RCB(99, BB, BE)
  #104=Buf_Num
  Buf_Switch(XBUF1)
  Buf_Empty(OK)
  RI(99)
  BoF
  Search("ziemski" ,NOERR)
  if(EM){
    BS(6)    // real spam
    RI(99)
  }else{
    Search("ziemski@cww" ,NOERR)
    if(!EM){
      BS(7)    // CWW
      RI(99)
    }else{
      Search("ziemski@bigfoot", NOERR)
      if(!EM){
        BS(8)    // bigfoot
        RI(99)
      }else{
        Search("ziemski@cityweb", NOERR)
        if(!EM){
          BS(9)    // cityweb
          RI(99)
        }else{
          BS(10)    // Rest ...
          RI(99)
        }
      }
    }
  }
  BS(#104)
}