X-Git-Url: http://git.megabrutal.com/?p=mgsmtp.git;a=blobdiff_plain;f=Relay.pas;fp=Relay.pas;h=1e42979d761b9401daa8cbd342b45dc326330b76;hp=4984bc1ea5bf04fb6b427a5bfce48c3c77ee74fb;hb=e975445862a1700cf05c574db979346d6ca4a4fd;hpb=d7be810271cecd3383edf9fb832be3749ab5be80

diff --git a/Relay.pas b/Relay.pas
index 4984bc1..1e42979 100644
--- a/Relay.pas
+++ b/Relay.pas
@@ -474,7 +474,14 @@ end;
 
 function TRelayer.DeliverMessagePart(Chunk: TStrings): boolean;
 { Sends a chunk of the message. }
+var i: integer;
 begin
+   { Check for lines starting with dots. }
+   for i:= 0 to Chunk.Count - 1 do
+      if (Length(Chunk.Strings[i]) > 0) and (Chunk.Strings[i][1] = '.') then
+         Chunk.Strings[i]:= '.' + Chunk.Strings[i];
+
+   { Send text. }
    Result:= TCP.WriteBuffer(PChar(Chunk.Text), Length(Chunk.Text)) <> -1;
 end;