home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Internet / Mail / YToolsNG.lha / ytoolsng.v1.2 / YTCreformat.rexx < prev    next >
OS/2 REXX Batch file  |  1998-03-01  |  3KB  |  61 lines
  1. /******************************************************************************/
  2. /*                                                                            */
  3. /*                             YTCreformat.rexx                               */
  4. /*                      Copyright ⌐1998 by Dick Whiting                       */
  5. /*                                                                            */
  6. /*----------------------------------------------------------------------------*/
  7. /* Modify variables YTCPATH and ARUN for your system configuration.           */
  8. /*----------------------------------------------------------------------------*/
  9. /* This one determines which mail is selected in YAM and calls YTCreformat    */
  10. /* with the full filename as an argument. YTCreformat allows for fixing mail  */
  11. /* with badly wrapped lines, editing individual body and header lines,        */
  12. /* and inserting MUI control codes in mail.                                   */
  13. /*----------------------------------------------------------------------------*/
  14. /*                                                                            */
  15. /* Standard Disclaimer: I wrote it, it works for me, I don't guarantee        */
  16. /* that it will do anything productive for anyone else, etc. etc. ;-)         */
  17. /*                                                                            */
  18. /*HOWEVER, if you DO find a use for it: I homeschool my kids and they         */
  19. /*would love a postcard from where EVER you live.                             */
  20. /*                                                                            */
  21. /*Instant GEOGRAPHY lesson;)                                                  */
  22. /*                                                                            */
  23. /*                                                                            */
  24. /*POSTCARDS:    Dick Whiting                                                  */
  25. /*              28590 S. Beavercreek Rd.                                      */
  26. /*              Mulino, Oregon 97042                                          */
  27. /*              USA                                                           */
  28. /*                                                                            */
  29. /*----------------------------------------------------------------------------*/
  30. /*                                                                            */
  31. /*               Address Bug Reports or Comments to:                          */
  32. /*                Dick Whiting <dwhiting@europa.com>                          */
  33. /*                          17 Feb 1998                                       */
  34. /*                                                                            */
  35. /******************************************************************************/
  36. /*
  37. $VER: 1.0 Copyright ⌐1998 by Dick Whiting
  38. $AUTHOR: Dick Whiting
  39. $DESCRIPTION: Call YTCreformat for the selected YAM mail.      
  40. */
  41.  
  42. YTCPATH="YAM:rexx/"
  43. ARUN="C:RUN >NIL: "
  44.  
  45. options results
  46.  
  47. address YAM 'GETMAILINFO ' filename
  48. mailfile=result
  49.  
  50. if mailfile='RESULT' then do
  51.     Adress YAM 'REQUEST "Select a mail to reformat" "Okay"'
  52.     exit
  53. end
  54.  
  55. pragma('STACK',8192)
  56. pragma('D',YTCPATH)
  57.  
  58. Address Command ARUN YTCPATH"YTCreformat MAIL="mailfile
  59.  
  60. exit
  61.