smtpmail.el

[Sam Steingold <sds@gnu.org>]

Your recent patches to smtpmail.el broke it for me.
In `smtpmail-try-auth-methods', the `supported-extensions' does not
have 'auth, so `mechs' is nil, `mech' is nil, and I am asked for a
(useless!) password before getting 
        (error "Mechanism %s not implemented" nil)
For now, I just use the appended patch.
Is it okay to check it in?

-- 
Sam Steingold (http://www.podval.org/~sds) running RedHat7.2 GNU/Linux
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.palestine-central.com/> <http://www.mideasttruth.com/>
There is Truth, and its value is T.  Or just non-NIL.  So 0 is True!


--- smtpmail.el.~1.40.~	Fri Apr 26 08:03:58 2002
+++ smtpmail.el	Fri Apr 26 10:55:09 2002
@@ -477,7 +477,7 @@
 			   (netrc-get hostentry "password")))
 		 (smtpmail-find-credentials
 		  smtpmail-auth-credentials host port)))
-	 (passwd (when cred
+	 (passwd (when (and mech cred)
 		   (or (smtpmail-cred-passwd cred)
 		       (read-passwd
 			(format "SMTP password for %s:%s: "
@@ -520,8 +520,8 @@
 		(not (integerp (car ret)))
 		(>= (car ret) 400))
 	    (throw 'done nil)))
-       (t
-	(error "Mechanism %s not implemented" mech)))
+       (t ;; no auth mech - do nothing
+        ))
       ;; Remember the password.
       (when (and (not (stringp smtpmail-auth-credentials))
 		 (null (smtpmail-cred-passwd cred)))