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
Version bump.
[lambdamail.git]
/
lambdamail.scm
diff --git
a/lambdamail.scm
b/lambdamail.scm
index
c3a68c1
..
7ec18d4
100644
(file)
--- a/
lambdamail.scm
+++ b/
lambdamail.scm
@@
-17,7
+17,7
@@
(chicken sort)
srfi-1 srfi-13 matchable base64)
(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)
(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
(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)