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))