From: plugd <plugd@tiny.fimnet>
Date: Thu, 3 Nov 2022 21:26:11 +0000 (+0100)
Subject: ehlo only replies with STARTTLS when certs provided.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=refs%2Fheads%2Fstarttls;p=lambdamail.git

ehlo only replies with STARTTLS when certs provided.
---

diff --git a/lambdamail.scm b/lambdamail.scm
index 25b2c57..946f831 100644
--- a/lambdamail.scm
+++ b/lambdamail.scm
@@ -132,7 +132,8 @@
                           "250-" (config-host config)
                           " Hello " (smtp-command-args "ehlo" line))
             (smtp-session 'send "250 AUTH PLAIN")
-            (smtp-session 'send "250 STARTTLS")
+            (if (tls-supported? config)
+                (smtp-session 'send "250 STARTTLS"))
             (loop mmsg received-messages))
            ((smtp-command? "starttls" line)
             (let ((args (smtp-command-args "starttls" line)))