X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=lambdamail.scm;h=946f831bcd9ca29f281219f6631d537fd910d893;hb=8b815ea7b9178c2164198214467fd75e3806f5a8;hp=25b2c57ef95400adb0be84e8c7bb7fcffabccfdc;hpb=7a9483003562f1dc93a4b95a3999338ff8e4beb7;p=lambdamail.git

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)))