From aaad78011516497f884f8ffc5a10d891e9641eee Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sat, 14 Sep 2019 22:15:39 +0200 Subject: [PATCH] Relaxed status code expectations. --- lambdamail.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lambdamail.scm b/lambdamail.scm index c3a68c1..c5b18c6 100644 --- 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 - (smtp-session 'expect "220") + (smtp-session 'expect "2") (smtp-session 'send "helo " (config-host config)) - (smtp-session 'expect "250") + (smtp-session 'expect "2") (smtp-session 'send "mail from:" (message-from msg)) - (smtp-session 'expect "250") + (smtp-session 'expect "2") (smtp-session 'send "rcpt to:" (message-to msg)) - (smtp-session 'expect "250") + (smtp-session 'expect "2") (smtp-session 'send "data") (smtp-session 'expect "354") (smtp-session 'send (message-text msg)) (smtp-session 'send ".") - (smtp-session 'expect "250" "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) -- 2.20.1