(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)