home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / comm / fido / spot / rexx / areadone.spot < prev    next >
Text File  |  1993-12-21  |  1KB  |  43 lines
  1. /* $VER: AreaDone.spot 1.1 (30.6.93) */
  2. /* Marc Duponcheel */
  3.  
  4. /* will clear unread flag for unread messages in current message list */
  5. /* usually done when one has finished reading an area */
  6. /* therefore called 'AreaDone' (some call it Catch Up) */
  7.  
  8. /* history : 1.1 */
  9. /* if the user currently is NOT in a any messagelist */
  10. /* a requester ask to confirm the action before going to the messagelist */
  11. /* some people may want to leave out that part */
  12.  
  13. address spot
  14. options results
  15.  
  16. /* trace results */
  17.  
  18. CR = '0d'x
  19.  
  20. /* check if we are in a messagelist */
  21. 'ismessagelist'
  22. if rc = 5 then
  23. /* if not go to messagelist, but first ask permission */
  24.  do
  25.   'messagelist'
  26.   'getareausername'
  27.   areaname = RESULT
  28. /* user might want to cancel */
  29.   prompt = '"' || "Area" || CR || areaname || '"'
  30.   'requestresponse TITLE " Done " PROMPT 'prompt''
  31.  end
  32.  
  33. if rc ~= 5
  34.  then
  35.   do
  36.    'excludeflag ALL'      /* clear any selection */
  37.    'includeflag UNREAD'   /* select unread messages */
  38.    'clearflags UNREAD'    /* make them 'read' */
  39.    'excludeflag ALL'      /* clear any selection */
  40.   end
  41.  
  42. exit /* done here ... */
  43.