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:
716c2b0
)
Relaxed status code expectations.
author
Tim Vaughan
<tgvaughan@gmail.com>
Sat, 14 Sep 2019 20:15:39 +0000
(22:15 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Sat, 14 Sep 2019 20:15:39 +0000
(22:15 +0200)
lambdamail.scm
patch
|
blob
|
history
diff --git
a/lambdamail.scm
b/lambdamail.scm
index
c3a68c1
..
c5b18c6
100644
(file)
--- a/
lambdamail.scm
+++ b/
lambdamail.scm
@@
-250,18
+250,18
@@
(let-values (((tcp-in tcp-out) (tcp-connect mail-server 25)))
(let ((smtp-session (make-outgoing-smtp-session tcp-in tcp-out)))
(let ((result (and
(let-values (((tcp-in tcp-out) (tcp-connect mail-server 25)))
(let ((smtp-session (make-outgoing-smtp-session tcp-in tcp-out)))
(let ((result (and
- (smtp-session 'expect "2
20
")
+ (smtp-session 'expect "2")
(smtp-session 'send "helo " (config-host config))
(smtp-session 'send "helo " (config-host config))
- (smtp-session 'expect "2
50
")
+ (smtp-session 'expect "2")
(smtp-session 'send "mail from:" (message-from msg))
(smtp-session 'send "mail from:" (message-from msg))
- (smtp-session 'expect "2
50
")
+ (smtp-session 'expect "2")
(smtp-session 'send "rcpt to:" (message-to msg))
(smtp-session 'send "rcpt to:" (message-to msg))
- (smtp-session 'expect "2
50
")
+ (smtp-session 'expect "2")
(smtp-session 'send "data")
(smtp-session 'expect "354")
(smtp-session 'send (message-text msg))
(smtp-session 'send ".")
(smtp-session 'send "data")
(smtp-session 'expect "354")
(smtp-session 'send (message-text msg))
(smtp-session 'send ".")
- (smtp-session 'expect "2
50
" "5") ;Do not try again on rejects.
+ (smtp-session 'expect "2" "5") ;Do not try again on rejects.
(smtp-session 'send "quit"))))
(close-input-port tcp-in)
(close-output-port tcp-out)
(smtp-session 'send "quit"))))
(close-input-port tcp-in)
(close-output-port tcp-out)