From d03e984c3044186567f5b865d33e5a7284308d7b Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Wed, 4 Sep 2019 19:37:08 +0200 Subject: [PATCH] Improved logging. --- lambdamail.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lambdamail.scm b/lambdamail.scm index ddbce66..92bbd12 100644 --- a/lambdamail.scm +++ b/lambdamail.scm @@ -97,7 +97,7 @@ "")) (define (process-smtp smtp-session config) - (smtp-session 'send "220 " (config-host config) lambdamail-version) + (smtp-session 'send "220 " (config-host config) " " lambdamail-version) (let loop ((msg (make-empty-message)) (received-messages '())) (let ((line (smtp-session 'get-line))) @@ -189,9 +189,9 @@ (begin (deliver-message-remote msg config) (print "Message DELIVERED (remote):")) - (print "Message DELIVERY REJECTED (auth failure):")))) + (print "Message REMOTE DELIVERY REJECTED (auth failure):")))) (else - (print "Message DELIVERY REJECTED (relay forbidden):")))) + (print "Message REMOTE DELIVERY REJECTED (relay forbidden):")))) (print " * From: " (message-from msg)) (print " * To: " (message-to msg)) #t) -- 2.20.1