//
// mail_del_phish_volksbank.vdm          Christian Ziemski  21.11.2005
//
// deletes all Volksbank phishing mails out of Thunderbird mail file
//
//
BoF
#104=0

repeat(ALL) {
  search("|<From: Volksbanken Raiffeisenbanken", ERRBREAK)
  #103=Cur_Pos
  search("|<|N", REVERSE+NOERR)
  if (Error_Match) {
     if (! At_BoF) {
       Dialog_Input_1(104,"`Problem`,
       `No preceeding mail found! Break.`", WORKAREA+CENTER,0,0)
       break
     }
  }
  if (! At_BoF) {
    Line(1)
  }
  Block_Begin(Cur_Pos)

  search("|N|N|<From - ", NOERR)
  if (Error_Match) {
     Block_Begin(CLEAR)
     Dialog_Input_1(104,"`Problem`,
     `No end-of-mail found! Ignoring this one. Up to EoF???`", WORKAREA+CENTER,0,0)
     Goto_Pos(#103)
     Line(1)
     continue
  }
  Del_Block(BB,Cur_Pos)
  Block_Begin(CLEAR)
  #104++
}

ItoA(#104, 104)
Dialog_Input_1(104,"`Info`,
`|@(104) mails deleted`", WORKAREA+CENTER,0,0)

Block_Begin(CLEAR)