From: Tim Vaughan <tgvaughan@gmail.com>
Date: Thu, 22 Aug 2019 14:15:50 +0000 (+0200)
Subject: Preserve newlines in messages.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=lambdamail.git;a=commitdiff_plain;h=d95c6338e3c2bc2d3916022834e1e320fa8e7e93

Preserve newlines in messages.
---

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