From 461a9b6eb88c9ec7e4b5c978f8bd59c47d4584ee Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Thu, 5 Sep 2019 09:23:04 +0200 Subject: [PATCH] Fixed # (process-smtp) value on disconnect. --- lambdamail.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lambdamail.scm b/lambdamail.scm index 6a4d608..9bc7197 100644 --- a/lambdamail.scm +++ b/lambdamail.scm @@ -158,14 +158,15 @@ (loop msg received-messages)) (else (smtp-session 'send "502 command not implemented") - (loop msg received-messages))))))) + (loop msg received-messages)))))) + '()) ;;; Sending/Delivering messages ;; (define (deliver-messages config messages) - (print "**** Attempting delivery of " (length messages) " mail items.") + (print "*** Attempting delivery of " (length messages) " mail items.") (filter (lambda (msg) (not (deliver-message msg config))) messages)) -- 2.20.1