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

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