- (begin
- (let* ((local-addresses (get-local-addresses config))
- (dest (assoc (message-to msg) local-addresses))
- (orig (assoc (message-from msg) local-addresses)))
- (cond
- (dest
- (let ((dest-dir (cadr dest)))
- (deliver-message-local msg dest-dir))
- (print "Message DELIVERED (local):"))
- (orig
- (let ((password (caddr orig)))
- (if (and
- (string=? (conc "<" (message-user msg) "@" (config-host config) ">")
- (message-from msg))
- password
- (string=? (message-password msg) password))
- (begin
- (deliver-message-remote msg config)
- (print "Message DELIVERED (remote):"))
- (print "Message REMOTE DELIVERY REJECTED (auth failure):"))))
- (else
- (print "Message REMOTE DELIVERY REJECTED (relay forbidden):"))))
- (print " * From: " (message-from msg))
- (print " * To: " (message-to msg))
- #t)
+ (let* ((local-addresses (get-local-addresses config))
+ (dest (assoc (message-to msg) local-addresses))
+ (orig (assoc (message-from msg) local-addresses)))
+ (cond
+ (dest
+ (let ((dest-dir (cadr dest)))
+ (deliver-message-local msg dest-dir)))
+ (orig
+ (let ((password (caddr orig)))
+ (if (and (string=? (conc "<" (message-user msg) "@" (config-host config) ">")
+ (message-from msg))
+ password
+ (string=? (message-password msg) password))
+ (deliver-message-remote msg config)
+ (begin
+ (print "* REMOTE DELIVERY NOT ALLOWED (auth failure)")
+ #t))))
+ (else
+ (print "* REMOTE DELIVERY REJECTED (relay forbidden)")
+ #t)))