From 4aa41b038f49ddf20de94c78a398ef2b5a627113 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Mon, 2 Sep 2002 08:39:10 +0000
Subject: [PATCH] Use CRLF-IO in a few more instances.

---
 scheme/lib/smtp.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/lib/smtp.scm b/scheme/lib/smtp.scm
index 19de5fc..a3bdf87 100644
--- 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))))))))