+ (if (tls-supported? config)
+ (smtp-session 'send "250 STARTTLS"))
+ (loop mmsg received-messages))
+ ((smtp-command? "starttls" line)
+ (let ((args (smtp-command-args "starttls" line)))
+ (if (> 0 (string-length args))
+ (smtp-session 'send "501 Syntax error (no parameters allowed)")
+ (begin
+ (smtp-session 'send "220 Ready to start TLS")
+ (smtp-session 'starttls))))