X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=lambdamail.git;a=blobdiff_plain;f=lambdamail.scm;h=c47c14506509692b8a6e86242a5c677a2491f065;hp=ce5b188e43c1a7f29ea7565c6794eaa44a322378;hb=d95c6338e3c2bc2d3916022834e1e320fa8e7e93;hpb=e7fc7be3229edbabaaf43259591e6ac8d1c89cc5

diff --git a/lambdamail.scm b/lambdamail.scm
index ce5b188..c47c145 100644
--- a/lambdamail.scm
+++ b/lambdamail.scm
@@ -103,7 +103,7 @@
               (if (string=? "." text-line)
                   (message-text-set! msg text)
                   (text-loop (smtp 'get-line)
-                             (conc text text-line))))
+                             (conc text "\n" text-line))))
             (deliver-message msg config)
             (smtp 'ok)
             (loop (make-empty-message)
@@ -122,7 +122,7 @@
 
 ;;; Message delivery
 ;;
- 
+
 (define (deliver-message msg config)
   (print "Message delivered:")
   (print " * From: " (message-from msg))