(smtp-session 'send "354 intermediate")
(let text-loop ((text (conc "Received: from " (smtp-session 'helo) "\n"
"\tby " (config-host config) "\n"
- "\tfor " (message-from msg) ";\n"
+ "\tfor " (message-to msg) ";\n"
"\t" (time-stamp) "\n")))
(let ((text-line (smtp-session 'get-line)))
(if (string=? "." text-line)
(loop msg received-messages))
(else
(smtp-session 'send "502 command not implemented")
- (loop msg received-messages)))))))
+ (loop msg received-messages))))))
+ '())
;;; Sending/Delivering messages
;;
(define (deliver-messages config messages)
- (print "**** Attempting delivery of " (length messages) " mail items.")
+ (print "*** Attempting delivery of " (length messages) " mail items.")
(filter (lambda (msg) (not (deliver-message msg config)))
messages))