/*****
  $VER: RecentScript THOR Importer 1.0 (30.8.97) ŠArndt van der Molen


        RecentScript Importer for Newsreader THOR

  is a MUIRexx subapplication and can not be started directly.

  It is called only from RecentScript at the 'Import' button.

  This importer extracts the currently selected mail in the
  message list window to a file in T:. Than it delivers the
  filename as RETURN value. In any other error case no RETURN
  value must be given.

  Known 'Bugs':
   - Multiselection not supported
   - Supports only one running THOR instance with portname 'THOR.01'
   - Temporary file will not be deleted
*****/

OPTIONS RESULTS

PARSE ARG portname

ADDRESS VALUE portname

IF SHOW('P', 'THOR.01') = 0 THEN DO
  request ID RECSCRWIN TITLE '"Importer Error"' GADGETS '"_OK"' STRING 'You must start Thor first'
  RETURN
END

OPTIONS FAILAT 31
ADDRESS 'THOR.01' currentmsg stem msg
OPTIONS FAILAT 10

IF RC ~= 0 THEN DO
  request ID RECSCRWIN TITLE '"Importer Error"' GADGETS '"_OK"' STRING THOR.LASTERROR
  RETURN
END

OPTIONS FAILAT 31
ADDRESS 'THOR.01' savemessage CURRENT OVERWRITE FILE "T:RS.temp"
OPTIONS FAILAT 10

IF RC ~= 0 THEN DO
  request ID RECSCRWIN TITLE '"Importer Error"' GADGETS '"_OK"' STRING THOR.LASTERROR
  RETURN
END

RETURN "T:RS.temp"