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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
smtpsend.pas
View File

@ -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;