Preserve newlines in messages.

diff --git a/lambdamail.scm b/lambdamail.scm
index ce5b188..c47c145 100644 (file)
--- a/lambdamail.scm
+++ b/lambdamail.scm
@@ -103,7 +103,7 @@
               (if (string=? "." text-line)
                   (message-text-set! msg text)
                   (text-loop (smtp 'get-line)
               (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)
             (deliver-message msg config)
             (smtp 'ok)
             (loop (make-empty-message)


@@ -122,7 +122,7 @@
 
 ;;; Message delivery
 ;;
 
 ;;; Message delivery
 ;;

- 
+

 (define (deliver-message msg config)
   (print "Message delivered:")
   (print " * From: " (message-from msg))
 (define (deliver-message msg config)
   (print "Message delivered:")
   (print " * From: " (message-from msg))