From: plugd <plugd@tiny.fimnet>
Date: Thu, 3 Nov 2022 15:55:04 +0000 (+0100)
Subject: TLS session still failing to start.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=lambdamail.git;a=commitdiff_plain;h=7a9483003562f1dc93a4b95a3999338ff8e4beb7

TLS session still failing to start.
---

diff --git a/lambdamail.scm b/lambdamail.scm
index c51ac6a..25b2c57 100644
--- a/lambdamail.scm
+++ b/lambdamail.scm
@@ -98,8 +98,7 @@
         (('helo) helo)
         (('starttls)
          (let-values (((in-port-tls out-port-tls)
-                       (ssl-start* tcp-in: in-port
-                                   tcp-out: out-port
+                       (ssl-start* #t in-port out-port
                                    certificate: (config-certfile config)
                                    private-key: (config-keyfile config)
                                    protocol: (cons 'tlsv12 ssl-max-protocol))))
@@ -141,7 +140,8 @@
                   (smtp-session 'send "501 Syntax error (no parameters allowed)")
                   (begin
                     (smtp-session 'send "220 Ready to start TLS")
-                    (smtp-session 'starttls)))))
+                    (smtp-session 'starttls))))
+            (loop mmsg received-messages))
            ((smtp-command? "auth plain" line)
             (let* ((auth-string (smtp-command-args "auth plain" line))
                    (auth-decoded (base64-decode auth-string))