X-Git-Url: http://git.megabrutal.com/?p=mgsmtp.git;a=blobdiff_plain;f=Listener.pas;fp=Listener.pas;h=b37662b15302704304dfaa0ad059ea99ab4337ec;hp=a4d94f0516b36344c8ea6b80b89a235a5fdede93;hb=e975445862a1700cf05c574db979346d6ca4a4fd;hpb=d7be810271cecd3383edf9fb832be3749ab5be80

diff --git a/Listener.pas b/Listener.pas
index a4d94f0..b37662b 100644
--- a/Listener.pas
+++ b/Listener.pas
@@ -507,8 +507,11 @@ begin
       Done:= false;
       repeat
          ReadOK:= TCP.ReadLn(Line);
-         if Line <> '.' then
-            SpoolObject.DeliverMessagePart(Line)
+         if Line <> '.' then begin
+            { If the line starts with a dot, remove it to comply with RFC. }
+            if (Length(Line) > 1) and (Line[1] = '.') then Delete(Line, 1, 1);
+            SpoolObject.DeliverMessagePart(Line);
+         end
          else
             Done:= true;
       until Done or (not ReadOK);