/*****
  $VER: RecentScript THOR PlugIn 1.1 (18.4.98) ŠArndt van der Molen

        RecentScript PlugIn for news/email reader THOR.

  Starts the MUIRexx application 'RecentScript' with the
  currently selected article in the message list window
  as argument.

  Installation:

  Select menu 'ARexx Scripts/Add Script' and choose a (free)
  function key number. In the following filerequester select
  this script.

  Known 'Bugs':
   - THOR V2.4 seems to have problems with long pathnames for
     ARexx scripts. If you get an information requester telling
     "The ARexx program failed with these return codes: ..." at
     execution of the script, edit the file THOR:THOR.macros and
     replace the full path with the MUIRexx: assign or copy this
     script to the 'THOR:rexx/' directory and reassign the
     function key to it.
   - Multiselection not supported
   - Supports only one running THOR instance with portname 'THOR.01'
   - Temporary file will not be deleted
*****/

OPTIONS RESULTS

OPTIONS FAILAT 31
currentmsg stem msg
OPTIONS FAILAT 10

IF RC ~= 0 THEN DO
  SAY THOR.LASTERROR
  EXIT
END

OPTIONS FAILAT 31
savemessage CURRENT OVERWRITE FILE "T:RS.temp"
OPTIONS FAILAT 10

IF RC ~= 0 THEN DO
  SAY THOR.LASTERROR
  EXIT
END

PRAGMA("STACK", 15000)

ADDRESS COMMAND 'run <>NIL: MUIRexx:MUIRexx "MUIRexx:RecentScript/RecentScript.rexx T:RS.temp" PORT RECENTSCRIPT'

EXIT