The Lambda Lab
/
projects
/
lambdamail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
30557e1
)
TLS session still failing to start.
author
plugd
<plugd@tiny.fimnet>
Thu, 3 Nov 2022 15:55:04 +0000
(16:55 +0100)
committer
plugd
<plugd@tiny.fimnet>
Thu, 3 Nov 2022 15:55:04 +0000
(16:55 +0100)
lambdamail.scm
patch
|
blob
|
history
diff --git
a/lambdamail.scm
b/lambdamail.scm
index
c51ac6a
..
25b2c57
100644
(file)
--- a/
lambdamail.scm
+++ b/
lambdamail.scm
@@
-98,8
+98,7
@@
(('helo) helo)
(('starttls)
(let-values (((in-port-tls out-port-tls)
(('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))))
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 '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))
((smtp-command? "auth plain" line)
(let* ((auth-string (smtp-command-args "auth plain" line))
(auth-decoded (base64-decode auth-string))