/* FlagLet.Spot by Anthony Brice - anthony@backyard.demon.co.uk */

/* Will go through every area in your Spot window and clear the
   flags to all messages for what option you choose. I use this
   because I hate having to see all these 'U' chars set in the areas
   for Unreplied messages....                                        */

address SPOT
options results

'requestresponse TITLE "Flaglet 1.0 by Anthony Brice!" PROMPT "Process which flag on all messages ?" GADGETS "_Unreplied|_Keep|_Export|_ABORT" center'
Flag=RC

If Flag=1 then Flag='UNREPLIED'
If Flag=2 then Flag='KEEP'
If Flag=3 then Flag='EXPORT'

If Flag=0 then Exit 0

'lockgui'
'getnumareas'
Areas=RESULT
Area=1
'firstarea'

do until Area=Areas
  'messagelist'
  'includeflag ALL'  
  'clearflags 'Flag''
  'nextarea'
  Area=Area+1
  End 
'unlockgui'

Exit 0