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
Improved logging.
[lambdamail.git]
/
lambdamail.scm
diff --git
a/lambdamail.scm
b/lambdamail.scm
index
ddbce66
..
92bbd12
100644
(file)
--- a/
lambdamail.scm
+++ b/
lambdamail.scm
@@
-97,7
+97,7
@@
""))
(define (process-smtp smtp-session config)
""))
(define (process-smtp smtp-session config)
- (smtp-session 'send "220 " (config-host config) lambdamail-version)
+ (smtp-session 'send "220 " (config-host config)
" "
lambdamail-version)
(let loop ((msg (make-empty-message))
(received-messages '()))
(let ((line (smtp-session 'get-line)))
(let loop ((msg (make-empty-message))
(received-messages '()))
(let ((line (smtp-session 'get-line)))
@@
-189,9
+189,9
@@
(begin
(deliver-message-remote msg config)
(print "Message DELIVERED (remote):"))
(begin
(deliver-message-remote msg config)
(print "Message DELIVERED (remote):"))
- (print "Message DELIVERY REJECTED (auth failure):"))))
+ (print "Message
REMOTE
DELIVERY REJECTED (auth failure):"))))
(else
(else
- (print "Message DELIVERY REJECTED (relay forbidden):"))))
+ (print "Message
REMOTE
DELIVERY REJECTED (relay forbidden):"))))
(print " * From: " (message-from msg))
(print " * To: " (message-to msg))
#t)
(print " * From: " (message-from msg))
(print " * To: " (message-to msg))
#t)