ehlo only replies with STARTTLS when certs provided.

diff --git a/lambdamail.scm b/lambdamail.scm
index 25b2c57..946f831 100644 (file)
--- 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)))