From 58c87ee0e9ecbbc06133cc7c365169fceb14b84f Mon Sep 17 00:00:00 2001 From: geby Date: Wed, 23 Apr 2008 20:38:23 +0000 Subject: [PATCH] Release 9 git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@19 7c85be65-684b-0410-a082-b2ed4fbef004 --- smtpsend.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/smtpsend.pas b/smtpsend.pas index 120c5c5..72337ee 100644 --- a/smtpsend.pas +++ b/smtpsend.pas @@ -1,5 +1,5 @@ {==============================================================================| -| Project : Delphree - Synapse | 001.001.000 | +| Project : Delphree - Synapse | 001.001.001 | |==============================================================================| | Content: SMTP client | |==============================================================================| @@ -164,7 +164,7 @@ begin for n:=0 to Value.Count-1 do begin s:=value[n]; - if Length(s)>1 then + if Length(s)>=1 then if s[1]='.' then s:='.'+s; Sock.SendString(s+CRLF); end;