- (message-to-set! msg (cons (smtp-command-args "rcpt to:" line)
- (message-to msg)))
- (if (message-valid? msg config)
- (smtp-session 'send "250 ok")
- (smtp-session 'send "551 relay forbidden"))
- (loop msg received-messages))
+ (let* ((to (smtp-command-args "rcpt to:" line))
+ (stamp (make-message-stamp to mmsg config)))
+ (print to)
+ (if (car stamp)
+ (begin
+ (multi-message-tos-set! mmsg (cons to (multi-message-tos mmsg)))
+ (multi-message-stamps-set! mmsg (cons stamp (multi-message-stamps mmsg)))
+ (smtp-session 'send "250 ok"))
+ (begin
+ (smtp-session 'send "551 relay forbidden"))))
+ (loop mmsg received-messages))