diff --git a/collects/net/smtp.rkt b/collects/net/smtp.rkt index c635a4580b..7514fa5418 100644 --- a/collects/net/smtp.rkt +++ b/collects/net/smtp.rkt @@ -96,11 +96,11 @@ (when auth-user (log "auth\n") - (fprintf w "AUTH PLAIN ~a" - ;; Encoding adds CRLF + (fprintf w "AUTH PLAIN ~a\r\n" (base64-encode (string->bytes/latin-1 - (format "~a\0~a\0~a" auth-user auth-user auth-passwd)))) + (format "~a\0~a\0~a" auth-user auth-user auth-passwd)) + #"")) (check-reply r 235 w)) (log "from\n")