* smtp.el (smtp-via-smtp): Downcase `smtp-authenticate-type'.

diff --git a/ChangeLog b/ChangeLog
index e98bc2b..325d8f8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-01-28  Kenichi OKADA <okada@opaopa.org>
+
+       * smtp.el (smtp-via-smtp): Downcase `smtp-authenticate-type'.
+
 2000-02-01   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
        * smtp.el (smtp-via-smtp): Throw `done' instead of `smtp-error';

diff --git a/smtp.el b/smtp.el
index c24975c..dd6da1b 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -202,7 +202,7 @@ don't define this value."
 
            ;; AUTH --- SMTP Service Extension for Authentication (RFC2554)
            (when smtp-authenticate-type
-             (let ((auth (intern smtp-authenticate-type)) method)
+             (let ((auth (intern (downcase smtp-authenticate-type))) method)
                (if (and 
                     (memq auth extensions)
                     (setq method (nth 1 (assq auth smtp-authenticate-method-alist))))