""))
(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)))
(cond
(dest
(let ((dest-dir (cadr dest)))
- (deliver-message-local msg dest-file))
+ (deliver-message-local msg dest-dir))
(print "Message DELIVERED (local):"))
(orig
(let ((password (caddr orig)))
(begin
(deliver-message-remote msg config)
(print "Message DELIVERED (remote):"))
- (print "Message DELIVERY REJECTED (auth failure):"))))
+ (print "Message REMOTE DELIVERY REJECTED (auth failure):"))))
(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)