Use CRLF-IO in a few more instances.

2002-09-02 08:39:10 +00:00 · 2002-09-02 08:39:10 +00:00 · 4aa41b038f
parent 56cd7c9f2e
commit 4aa41b038f
1 changed files with 3 additions and 1 deletions
--- a/scheme/lib/smtp.scm
+++ b/scheme/lib/smtp.scm
@ -218,7 +218,9 @@
 		    
 		      (else (error "Message must be string or input-port.")))

-		(write-string "\r\n.\r\n" p)
+		(write-crlf p)
+		(write-char #\. p)
+		(write-crlf p)
 		(force-output p)
 		(handle-smtp-reply socket))))))))