[Emacs-diffs] Changes to emacs/lisp/mail/smtpmail.el

[Simon Josefsson]

Index: emacs/lisp/mail/smtpmail.el
diff -u emacs/lisp/mail/smtpmail.el:1.80 emacs/lisp/mail/smtpmail.el:1.81
--- emacs/lisp/mail/smtpmail.el:1.80    Fri Dec  9 09:44:35 2005
+++ emacs/lisp/mail/smtpmail.el Wed Dec 28 08:45:53 2005
@@ -560,16 +560,13 @@
                (>= (car ret) 400))
            (throw 'done nil)))
        ((eq mech 'plain)
-       (smtpmail-send-command process "AUTH PLAIN")
-       (if (or (null (car (setq ret (smtpmail-read-response process))))
-               (not (integerp (car ret)))
-               (not (equal (car ret) 334)))
-           (throw 'done nil))
-       (smtpmail-send-command process (base64-encode-string
+       (smtpmail-send-command process
+                              (concat "AUTH PLAIN "
+                                      (base64-encode-string
                                        (concat "\0"
                                                (smtpmail-cred-user cred)
                                                "\0"
-                                               passwd)))
+                                               passwd))))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (not (equal (car ret) 235)))