From 43ad58579fd7474e810c844e3ae868609eca8e7d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 20 Feb 2012 08:23:46 -0700
Subject: [PATCH] net/smtp: fix auth encoding to not add extra CRLFs

Closes PR 12501

original commit: b656219f8a279da80181ec0e0a9f37f41feb4d53
---
 collects/net/smtp.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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")