From 43ad58579fd7474e810c844e3ae868609eca8e7d Mon Sep 17 00:00:00 2001 From: Matthew Flatt 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")