THOR's asynchronous message editing is extremely useful, but there is
a disadvantage. If you Send Events while a message is being edited,
the unedited version is sent and the file you save is lost.

SafeEdit.thor is the solution. It freezes the event before starting the
editor and activates it when you exit the editor, while still
retaining all the advantages of asynchronous editing.

With version 1.1 you also get a warning if you leave the editor
without saving. You have the choice of re-editing the message,
leaving it or deleting the event. This removes the need for scripts
like CancelEvent.ged.


Installation
============

Copy SafeEdit.thor to {THORPath}/rexx
Go into Global Config/Message options and set the external editor to
Run >NIL: rexx/SafeEdit.thor
Open a shell, CD to the THOR directory and type the following lines:

protect rexx/SafeEdit.thor +s
setenv THO0R/Editor [editor command]
copy ENV:THOR/Editor ENVARC:THOR

where [editor command] is the command used to start your editor in
"sticky" mode. For the GoldED quickstarter use "C:Ed STICKY".

The file to be edited will be added to the end of this line. If you
have an editor than doesn't accept the file in this position, mail me
with the syntax needed and I'll revise the script where necessary.


Warranty
========

This script works for me. I guarantee that it will work for you
whenever it works, but at no other time.


Problems?
=========

If SafeEdit.thor doesn't freeze the event when editing, make sure your
editor command includes whatever option is needed to make the editor
sticky. You can test this my typing the command in a shell, if the
shell prompt doesn't return until you quit the editor the command
should work. Should you still have problems, mail me with exact
details.


History
=======

1.0  First release - it worked

1.1  Added warning if you exit the editor without saving.

1.2  Added ADDUSER switch to add the recipient of the current mail to the
	 User Database. this has proved less than useful if you use THOR to read
	 and reply to mailing list messages :(

1.3 The script was assuming rexxdossupport.library was already
	available, thnks to Gian Maria Calzolari for pointing this out

1.4 SafeEdit would fail when run from a System with a space in the name - fixed

1.5	I forgot to load rexxsupport.library :(
	I hope this and rexxdossupport.library will be automatic in OS3.5


To Do
=====

Add option to strip a signature from a message before replying.

 PERMSSN    UID  GID    PACKED    SIZE  RATIO     CRC       STAMP          NAME
---------- ----------- ------- ------- ------ ---------- ------------ -------------
[generic]                 1304    2650  49.2% -lh5- 59db Apr 24  1999 SafeEdit.readme
[generic]                 1542    3239  47.6% -lh5- 2b00 Apr 24  1999 SafeEdit.thor
---------- ----------- ------- ------- ------ ---------- ------------ -------------
 Total         2 files    2846    5889  48.3%            Apr 25  1999