The Lambda Lab
/
projects
/
lambdamail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ehlo only replies with STARTTLS when certs provided.
[lambdamail.git]
/
lambdamail.scm
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")
"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)))
(loop mmsg received-messages))
((smtp-command? "starttls" line)
(let ((args (smtp-command-args "starttls" line)))