From d95c6338e3c2bc2d3916022834e1e320fa8e7e93 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Thu, 22 Aug 2019 16:15:50 +0200
Subject: [PATCH] Preserve newlines in messages.

---
 lambdamail.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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