Preserve newlines in messages.
authorTim Vaughan <tgvaughan@gmail.com>
Thu, 22 Aug 2019 14:15:50 +0000 (16:15 +0200)
committerTim Vaughan <tgvaughan@gmail.com>
Thu, 22 Aug 2019 14:15:50 +0000 (16:15 +0200)
lambdamail.scm

index ce5b188..c47c145 100644 (file)
               (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)
 
 ;;; Message delivery
 ;;
+
 (define (deliver-message msg config)
   (print "Message delivered:")
   (print " * From: " (message-from msg))