pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Release 9

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@19 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2008-04-23 20:38:23 +00:00
parent 14abb74784
commit 58c87ee0e9
1 changed files with 2 additions and 2 deletions

4
smtpsend.pas

@ -1,5 +1,5 @@
{==============================================================================| {==============================================================================|
| Project : Delphree - Synapse | 001.001.000 | | Project : Delphree - Synapse | 001.001.001 |
|==============================================================================| |==============================================================================|
| Content: SMTP client | | Content: SMTP client |
|==============================================================================| |==============================================================================|
@ -164,7 +164,7 @@ begin
for n:=0 to Value.Count-1 do for n:=0 to Value.Count-1 do
begin begin
s:=value[n]; s:=value[n];
if Length(s)>1 then if Length(s)>=1 then
if s[1]='.' then s:='.'+s; if s[1]='.' then s:='.'+s;
Sock.SendString(s+CRLF); Sock.SendString(s+CRLF);
end; end;