Hello Piotr,
>> Is there something I can do to pacify X-Spam?
>
> Remove that space (the one between Roland and Couvela).
Shall we modify function GenerateMessageID? Something like:
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
function GenerateMessageID : String; {AG}
function FixHostname(const S: String): String;
var
I, J : Integer;
begin
I := 1;
J := 1;
SetLength(Result, Length(S));
while I <= Length(S) do begin
if (S[I] in ['0'..'9', 'A'..'Z', 'a'..'z', '-', '.']) then begin
Result[J] := S[I];
Inc(J);
end;
Inc(I);
end;
SetLength(Result, J - 1);
while (Length(Result) > 0) and not (Result[1] in ['A'..'Z', 'a'..'z'])
do
Delete(Result, 1, 1);
while (Length(Result) > 0) and (Result[Length(Result)] in ['-', '.']) do
SetLength(Result, Length(Result) - 1);
end;
begin
Result := FormatDateTime('yyyymmddhhnnsszzz', Now + TimeZoneBiasDT) + '.' +
IntToHex(Random(32767), 4) + IntToHex(Random(32767), 4) +
IntToHex(Random(32767), 4) + IntToHex(Random(32767), 4) +
'@' + FixHostname(LocalHostName);
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
---
Arno Garrels [TeamICS]
http://www.overbyte.be/eng/overbyte/teamics.html
>
> --
> Piotr Dalek
> [EMAIL PROTECTED]
>
> ----------------------------------------------------------------------
> PS. Fajny portal... >>> http://link.interia.pl/f196a
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
