# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1159463772 0
# Node ID 6887b498642ba97fb9b0d0624be1cd15b856095f
# Parent  448115958b7775474051fb36102cd26d4a19c223
	* mail/smtpmail.el (smtpmail-try-auth-methods): Do not break long
	lines in base64-encoded authentication response.

diff -r 448115958b77 -r 6887b498642b lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Sep 28 05:47:50 2006 +0000
+++ b/lisp/ChangeLog	Thu Sep 28 17:16:12 2006 +0000
@@ -1,3 +1,8 @@
+2006-09-28  Chong Yidong  <cyd@stupidchicken.com>
+
+	* mail/smtpmail.el (smtpmail-try-auth-methods): Do not break long
+	lines in base64-encoded authentication response.
+
 2006-09-26  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
 	* progmode/ebnf2ps.el: Doc fix. Implement arrow spacing and scaling.
diff -r 448115958b77 -r 6887b498642b lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Thu Sep 28 05:47:50 2006 +0000
+++ b/lisp/mail/smtpmail.el	Thu Sep 28 17:16:12 2006 +0000
@@ -541,7 +541,7 @@
 		 (decoded (base64-decode-string challenge))
 		 (hash (rfc2104-hash 'md5 64 16 passwd decoded))
 		 (response (concat (smtpmail-cred-user cred) " " hash))
-		 (encoded (base64-encode-string response)))
+		 (encoded (base64-encode-string response t)))
 	    (smtpmail-send-command process (format "%s" encoded))
 	    (if (or (null (car (setq ret (smtpmail-read-response process))))
 		    (not (integerp (car ret)))
@@ -554,12 +554,12 @@
 		(>= (car ret) 400))
 	    (throw 'done nil))
 	(smtpmail-send-command
-	 process (base64-encode-string (smtpmail-cred-user cred)))
+	 process (base64-encode-string (smtpmail-cred-user cred t)))
 	(if (or (null (car (setq ret (smtpmail-read-response process))))
 		(not (integerp (car ret)))
 		(>= (car ret) 400))
 	    (throw 'done nil))
-	(smtpmail-send-command process (base64-encode-string passwd))
+	(smtpmail-send-command process (base64-encode-string passwd t))
 	(if (or (null (car (setq ret (smtpmail-read-response process))))
 		(not (integerp (car ret)))
 		(>= (car ret) 400))
@@ -576,7 +576,7 @@
 					(concat "\0"
 						(smtpmail-cred-user cred)
 						"\0"
-						passwd))))
+						passwd) t)))
 	(if (or (null (car (setq ret (smtpmail-read-response process))))
 		(not (integerp (car ret)))
 		(not (equal (car ret) 235)))