unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* smtpmail.el
@ 2002-04-26 14:55 Sam Steingold
  2002-04-26 20:51 ` smtpmail.el Simon Josefsson
  0 siblings, 1 reply; 2+ messages in thread
From: Sam Steingold @ 2002-04-26 14:55 UTC (permalink / raw)
  Cc: emacs-devel

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)))

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2002-04-26 20:51 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-04-26 14:55 smtpmail.el Sam Steingold
2002-04-26 20:51 ` smtpmail.el Simon Josefsson

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).