[cl-smtp-cvs] CVS cl-smtp

[jidzikowski]

Update of /project/cl-smtp/cvsroot/cl-smtp
In directory cl-net:/tmp/cvs-serv31114

Modified Files:
	cl-smtp.lisp 
Log Message:
fixed finish-smtp-mail, not use fresh-line



--- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp	2010/06/11 08:10:57	1.16
+++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp	2010/06/11 09:48:35	1.17
@@ -406,7 +406,7 @@
   "Finish sending an email to the SMTP server connected to on STREAM.
    The server is expected to be inside of the DATA SMTP command.  The
    connection is then terminated by sending a QUIT command."
-  (fresh-line stream)
+  (write-to-smtp stream "")
   (smtp-command stream "." 250)
   (smtp-command stream "QUIT" 221))