From: Simon Josefsson <jas@extundo.com>
Date: Tue, 6 Dec 2005 12:57:35 +0000 (+0000)
Subject: * mail/smtpmail.el (smtpmail-try-auth-methods): Make password
X-Git-Tag: emacs-pretest-22.0.90~5478
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98b537f7151dc58c764edbdcf6542345639ebf96;p=emacs.git

* mail/smtpmail.el (smtpmail-try-auth-methods): Make password
prompts work for AUTH PLAIN.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 82ca1b89d97..4bae7d698fe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-12-06  Nozomu Ando <nand@mac.com>  (tiny patch)
+
+	* mail/smtpmail.el (smtpmail-try-auth-methods): Make password
+	prompts work for AUTH PLAIN.  Also reported by Steve Allan
+	<seallan@verizon.net>.
+
 2005-12-06  L$,1 q(Brentey K,Aa(Broly  <lorentey@elte.hu>
 
 	* frame.el (set-frame-parameter): Add doc string.
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 1a280ffc7f4..175e32becdf 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -569,7 +569,7 @@ This is relative to `smtpmail-queue-dir'.")
 					(concat "\0"
 						(smtpmail-cred-user cred)
 						"\0"
-						(smtpmail-cred-passwd cred))))
+						passwd)))
 	(if (or (null (car (setq ret (smtpmail-read-response process))))
 		(not (integerp (car ret)))
 		(not (equal (car ret) 235)))