(if (message-valid? msg config)
(smtp-session 'send "250 ok")
(smtp-session 'send "551 relay forbidden"))
(loop msg received-messages))
((smtp-command? "data" line)
(smtp-session 'send "354 intermediate")
(if (message-valid? msg config)
(smtp-session 'send "250 ok")
(smtp-session 'send "551 relay forbidden"))
(loop msg received-messages))
((smtp-command? "data" line)
(smtp-session 'send "354 intermediate")