/* PreviewMsg.ged by Troels Walsted Hansen
** $VER: PreviewMsg.ged v1.00 (09.06.95)
**
** An ARexx script that shows you (in THOR's messagetext listview)
** what your message will look like when read by others in THOR.
*/

options results

/* needs GoldED and THOR functions */

if(substr(address(),1,6) ~= "GOLDED") then
do
	say "This script should only be started from inside GoldED."
	exit 20
end
else gedport = address()

p = address() || ' ' || show('P',,)
thorport = pos('THOR.',p)

if thorport > 0 then thorport = word(substr(p,thorport),1)
else
do
	say 'No THOR port found!'
	exit 10
end

/* preview msg text in THOR */

address(gedport)
QUERY DOC VAR OLDNAME
SAVE ALL NAME '"t:PreviewMsg.fse.temp.file"'
NAME NEW oldname

address(thorport)
THORTOFRONT
SHOWTEXT 't:PreviewMsg.fse.temp.file'
if(rc ~= 0) then REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'

/* cleanup and exit */

address command
'delete >nil: t:PreviewMsg.fse.temp.file'
exit