X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=lambdamail.git;a=blobdiff_plain;f=lambdamail.scm;h=7ec18d48dfdc54bcbe103c18d1808ab416443cf1;hp=c3a68c1a2f37c97711015f4818a06ab64e3a7ede;hb=b658ddf38349c0e1bdca768d1ffd37c4ab341a43;hpb=716c2b0f7ffa6e8b0821d3b293a20154fd9e3f3a

diff --git a/lambdamail.scm b/lambdamail.scm
index c3a68c1..7ec18d4 100644
--- a/lambdamail.scm
+++ b/lambdamail.scm
@@ -17,7 +17,7 @@
         (chicken sort)
         srfi-1 srfi-13 matchable base64)
 
-(define lambdamail-version "LambdaMail v1.2.0")
+(define lambdamail-version "LambdaMail v1.3.0")
 
 (define-record config host port spool-dir user group)
 (define-record message to from text user password)
@@ -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)