Hello All
Due to a problem found in the 'Bulk attachments' script, I realised this
would also be true of the 'ReEdit' script, so I've included the same
ajustment in that.
What's it for? It will send the selected message to an external editor; if
this is done from the 'Spool' folder it will not break the thread, unlike
MD-2, which breaks the threads on re-edited messages.
--
Regards
Jules
-- Attached file included as plaintext by Listar --
-- File: ReEditMD.mdrx
/*
$VER: 1.33 ReEditMD.mdrx ©(07-02-2001)
$AUTHOR: by Jules <[EMAIL PROTECTED]>
$DESCRIPTION: Stop Microdot from breaking threads.
Create a button in your 'Message list window' and put
the full path to this script in the 'Action' string,
Instructions
1) Enter the path to your text editor.
2) If 'Snoopdos' is not in your system path, enter the new path.
4) Open the 'Spool' directory, and select, but do not open
the message you wish to re-edit.
5) Run ReEditMD.mdrx, and wait for it to open editor.
Warning
Do not alter header information, unless you know what you are doing.
6) 'Save' the message, and 'Close' the editor, when you have
finished your alterations.
7) Close and re-open the message, to view your new message.
*/
/* The path to your editor. Example EDITO="SYS:TOOLS/EDITPAD" */
EDITO="EditPad"
/* And the path of Snoopdos. Example SNOOP="SYS:Tools/Snoopdos" */
SNOOP="SNOOPDOS"
/* Check that Microdot is running */
IF ~SHOW('P','MD.1') THEN DO
EXIT
END
/* Check if SnoopDos is running; if not, then start it */
SNOOPPATH="RUN >NIL: "||SNOOP||" HIDEMETHOD=TOOLSMENU HIDE"
IF ~SHOW('P','SNOOPDOS') THEN DO
ADDRESS COMMAND SNOOPPATH
ADDRESS COMMAND "WAITFORPORT SNOOPDOS"
END
/* Set up Snoopdos */
ADDRESS SNOOPDOS ; CLEARBUFFER ; FORMAT "%50n"
FUNCTIONS NONE ; FUNCTIONS NOSYSTEM ; CHANGEDIR
NOSHOWFULLPATH ; NOONLYSHOWFAILS ; NOSHOWCLI
NOMONITORPACKETS ; NOPACKETDEBUGGER ; NOMONITORROMCALLS
IGNORESHELL ; NOUSEDEVICENAMES ; OPEN
/* 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. */
DETEC=0 ; PDRAW="" ; DFILE=""
CALL OPEN('MD','T:SnoopMD','R')
DO UNTIL DETEC>1 ; PDRAW=READLN('MD') ; DETEC=POS('DBX_',PDRAW) ; END
DFILE=READLN('MD')
CALL CLOSE('MD')
QUIT
/* Give it a hair cut */
TARGETFILE=TRIM(PDRAW)||"/"||TRIM(DFILE)
/* Send it to the editor */
ADDRESS COMMAND EDITO TARGETFILE
ADDRESS COMMAND 'DELETE T:SnoopMD QUIET'
EXIT
__________________________________________________________________
MicroDot-II Mailing List - http://www.vapor.com/md2/
MicroDot-II FAQ: http://faq.vapor.com/md2/
Listserver Help: mailto:[EMAIL PROTECTED]?Subject=HELP
Unsubscribe....: mailto:[EMAIL PROTECTED]?Subject=UNSUBSCRIBE
