smtpmail does not use promted password when plain auth.

[Nozomu Ando]

When I try to send a mail with smtpmail, Emacs prompts me a password
but always fails in authentication and leave a message in minibuffer:

Sending failed; SMTP protocol error


My smtp-server prefers auth PLAIN.

My .emacs configuration:

(setq smtpmail-default-smtp-server "smtp.mac.com")
(setq mail-user-agent 'message-user-agent)
(setq message-send-mail-function 'smtpmail-send-it) ; if you use message/Gnus
(setq smtpmail-auth-credentials  ; or use ~/.authinfo
      '(("smtp.mac.com" 25 "nand" nil)))
(setq smtpmail-starttls-credentials
      '(("smtp.mac.com" 25 nil nil)))
(setq starttls-gnutls-program "/opt/local/bin/gnutls-cli")


1. Emacs seems not to use prompted password when PLAIN auth.
With the attached patch, this problem is solved.

2. The error message is not helpful when we type a incorrect password.

---
Nozomu Ando

---
Index: lisp/mail/smtpmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/smtpmail.el,v
retrieving revision 1.78
diff -u -r1.78 smtpmail.el
--- lisp/mail/smtpmail.el       16 Nov 2005 22:22:18 -0000      1.78
+++ lisp/mail/smtpmail.el       25 Nov 2005 18:09:33 -0000
@@ -569,7 +569,7 @@
                                        (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)))