Jules worte on 26 Jan 2000 22:21:17 +0100 about [md-2] Re: Broken threads
> This is a test post of a new script, that should allow the re-editing of
> messages from the spool, without them falling from the thread to which they were
> attached.
> If this message is attached to the original thread, it worked. And I will
> post the the script if anybody is interested to try it.
All you need to edit are the paths for 'Snoopdos' and your text editor, if
they are not in your systems path.
Then in the 'message list window' all you need to do is select a message, the
script will open it when required, then, when you have finished editing the the
message, and saved it, all you need do is close and re-open the 'message reader
window', in order to view the new message.
I hope it works as well for you as it does me.
---- 8< ---- SnoopMD.mdrx ---- cut here ----
/*
Send a Microdot message to an external editor
SnoopMD.mdrx VERSION 1.1 by Jules (JA888)
Create a button in your 'Message list window'
'Action' string, put the path of this script
*/
OPTIONS RESULTS
/*
You need to enter the full path to your editor.
Example DEST="SYS:TOOLS/EDITPAD"
And the path of Snoopdos
Example SNOOP="SYS:Tools/Snoopdos"
*/
DEST ="SYS:TOOLS/EDITPAD"
SNOOP="SNOOPDOS"
SNOOPPATH="RUN >NIL: "||SNOOP||" HIDEMETHOD=TOOLSMENU HIDE"
/*
Check if SnoopDos is running; if not, then start it
*/
IF ~SHOW('P','SNOOPDOS') THEN DO
ADDRESS COMMAND SNOOPPATH
ADDRESS COMMAND "WAITFORPORT SNOOPDOS"
END
/*
Set up Snoopdos
*/
ADDRESS SNOOPDOS ; CLEARBUFFER ; FORMAT "%50n"
/*
Read the message in MD-II
*/
ADDRESS MD.1 ; READSELECTEDMSGS ; ADDRESS COMMAND 'WAIT 1'
/*
Save the SnoopDos Buffer
*/
ADDRESS SNOOPDOS ; SAVEBUFFER "T:SnoopMD"
/*
Find the correct line.
*/
CALL OPEN('MD','T:SnoopMD','R')
D=0
DO UNTIL D>1 ; B=READLN('MD') ; D=POS('DBX_',B) ; END
C=READLN('MD')
CALL CLOSE('MD')
QUIT
TARGETFILE=TRIM(B)||"/"||C
/*
Now all we have to do is send it to a text editor
*/
ADDRESS COMMAND DEST TARGETFILE
EXIT
----8< --- cut here ----
--
Regards
Jules
________________________________________________________________
MicroDot-II Mailing List - Info & Archive: http://www.vapor.com/
For Listserver Help: <[EMAIL PROTECTED]>, "HELP"
To Unsubscribe: <[EMAIL PROTECTED]>, "UNSUBSCRIBE"
