(
Script: FixMessageId
Version: 0.03 - 2002/11/23
Author: Stanislas Renan
Purpose: adds a correctly formatted Message-Id field to the outgoing message

History
v0.03 2002/11/23
Fix: comment after field is not supported by pocomail
removed code that should have fixed wrong Message-Id : it's never ran.
v0.02 - 2002/11/17
Fix: random behaves uncorrectly when trigerred twice too fast
v0.01 - 2002/11/17
Wrong Message-Id is not yet generated at this stage, we must generate
a correct one ourselves.
)

ReadHeader $Id "Message-Id:" %message

If $Id ! "" then idAlreadySet
Random #r 999999999
Set $Id "<"
( Fix random bug )
Wait 1
Random #q 999999999
GetDate $d
ChopString $d 3 1
ChopString $d 5 1
GetTime $t
ChopString $t 3 1
ChopString $t 5 1
ReadSMTP $s

( Pocomail does not support comments after field - removed )
AddStrings $Id #r "." #q "." $d "."$t "@" $s ">"

SetHeader %message "Message-Id:" $Id

:idAlreadySet