home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / mail / thor / thor.lha / rexx / savemessage.thor < prev    next >
Text File  |  1994-08-06  |  872b  |  32 lines
  1. /*
  2. **
  3. ** savemessage.thor - save a message. Will fail if CURRENT is given and there's no current
  4. **                        message.
  5. **
  6. **    Will return 10 on failure and 0 on success.
  7. **
  8. **    Template:
  9. **
  10. **    BBSNAME=BBS,CONFNAME=CONF,MSGNUMBER=MSGNR/N,CURRENT/S,FILENAME=FILE,CLIPBOARD=CLIP/S,
  11. **    NOHEADER/S
  12. */
  13.  
  14. address THOR.01
  15.  
  16. /* Save the current message to a file without a header*/
  17.  
  18. SAVEMESSAGE CURRENT FILENAME '"ram:test"' NOHEADER
  19.  
  20. /* Save message number 2401 on the given BBS and the given conference to a file */
  21.  
  22. SAVEMESSAGE BBSNAME '"Ultima Thule BBS"' CONFNAME '"Post"' MSGNR 2401 FILENAME '"ram:test2"'
  23.  
  24. /* Save the current message to the clipboard without a header*/
  25.  
  26. SAVEMESSAGE CURRENT CLIPBOARD NOHEADER
  27.  
  28. /* Save message number 2401 on the given BBS and the given conference to the clipboard */
  29.  
  30. SAVEMESSAGE BBSNAME '"Ultima Thule BBS"' CONFNAME '"Post"' MSGNR 2401 CLIPBOARD
  31.  
  32.