[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
smtpmail.el
From: |
Sam Steingold |
Subject: |
smtpmail.el |
Date: |
26 Apr 2002 10:55:56 -0400 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.50 |
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)))
- smtpmail.el,
Sam Steingold <=