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