((smtp-command? "data" line)
(smtp-session 'send "354 intermediate")
(let text-loop ((text (conc "Received: from " (smtp-session 'helo) "\n"
- " by " (config-host config) "\n"
- " for " (message-from msg)
- "; " (time-stamp) "\n")))
+ "\tby " (config-host config) "\n"
+ "\tfor " (message-to msg) ";\n"
+ "\t" (time-stamp) "\n")))
(let ((text-line (smtp-session 'get-line)))
(if (string=? "." text-line)
(message-text-set! msg text)
(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))