From: Tim Vaughan Date: Thu, 5 Sep 2019 07:23:04 +0000 (+0200) Subject: Fixed # (process-smtp) value on disconnect. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=461a9b6eb88c9ec7e4b5c978f8bd59c47d4584ee;p=lambdamail.git Fixed # (process-smtp) value on disconnect. --- 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))