net/smtp: fix auth encoding to not add extra CRLFs

Closes PR 12501
2012-02-20 08:23:46 -07:00 · 2012-02-20 08:23:46 -07:00 · b656219f8a
commit b656219f8a
parent a12f9831a3
1 changed files with 3 additions and 3 deletions
--- 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")