Hi Jules,
On Saturday 29-Jan-00, Jules wrote:
> I've found away around the problem of Microdot breaking threads, after
> you've re-edited a message from the 'spool'.
That's a useful script. Would be nice if the message appeared in a proper
MD2 write window for editing; I've been trying to implement this in the
following way:
Read the original message
Hold the References: header in a variable
Remember the To:, Newsgroups: and Subject: headers for the next line
Send MD2 a "NewMsgWindow" command with the above information (NB: you can't
seem to add newsgroups like this)
After editing, attach the references header back to the top of the message.
Anyway, in the meantime, I've edited your v1.1 script so it no longer
requires SnoopDOS - see attached. Not entirely sure whether MD2 is
actually sending these edited messages yet; haven't had chance to do much
testing.
Chris
-- Attached file included as plaintext by Listar --
-- File: EditMsg.mdrx
/*
Send a Microdot message to an external editor
$VER: SnoopMD.mdrx 1.3 (29.01.00)
by Jules (JA888) and Chris Young
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"
*/
DEST ="SYS:TOOLS/EDITPAD"
ADDRESS MD.1
ExtractSelectedMsgs 'T:MD2.tmp NOREQ'
CALL OPEN('MD','T:MD2.tmp','R')
CALL OPEN('newmsg','T:MD2.new','W')
D=0
DO UNTIL EOF('MD')
B=READLN('MD')
if POS('Message-Id: ',B) then do
/* write new message id */
B = 'Message-Id:' substr(B,13,10) || time('S') || '.MD-2@localhost>'
end
call writeln('newmsg',B)
if POS('Newsgroups: ',B) then ng=substr(B,13)
END
CALL CLOSE('MD')
CALL CLOSE('newmsg')
/*
Now all we have to do is send it to a text editor
*/
ADDRESS COMMAND DEST 'T:MD2.new'
mistr='T:MD2.new GROUP �SPOOL'
MailImport mistr
RemoveSelectedMsgs
EXIT
