Fixed line ending problem.

[lambdamail.git] / lambdamail.scm

diff --git a/lambdamail.scm b/lambdamail.scm
index e4956d8..5e714d7 100644 (file)
--- a/lambdamail.scm
+++ b/lambdamail.scm
@@ -36,7 +36,7 @@
   (server-loop listener config))
 
 (define (smtp-reply reply out-port)
-  (write-line reply out-port))
+  (write-line (conc reply "\r") out-port))
 
 (define (smtp-greeting out-port)
   (smtp-reply (conc "220 thelambdalab.xyz LambdaMail v" lambdamail-version) out-port))