(smtp-session 'send "354 intermediate")
(let text-loop ((text (conc "Received: from " (smtp-session 'helo) "\n"
"\tby " (config-host config) "\n"
(smtp-session 'send "354 intermediate")
(let text-loop ((text (conc "Received: from " (smtp-session 'helo) "\n"
"\tby " (config-host config) "\n"