From: ueno <ueno>
Date: Tue, 1 Feb 2000 18:12:05 +0000 (+0000)
Subject: * smtp.el (smtp-via-smtp): Assume that `smtp-authenticate-type'
X-Git-Tag: slim-1_13_7~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b3655ecc6229005d257066e092dc656df64ba984;p=elisp%2Fflim.git

* smtp.el (smtp-via-smtp): Assume that `smtp-authenticate-type'
is a symbol.
---

diff --git a/ChangeLog b/ChangeLog
index 325d8f8..fb67635 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-02-01   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
+
+	* smtp.el (smtp-via-smtp): Assume that `smtp-authenticate-type'
+	is a symbol.
+
 2000-01-28  Kenichi OKADA <okada@opaopa.org>
 
 	* smtp.el (smtp-via-smtp): Downcase `smtp-authenticate-type'.
diff --git a/smtp.el b/smtp.el
index dd6da1b..1fc4b16 100644
--- 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 (downcase smtp-authenticate-type))) method)
+	      (let ((auth smtp-authenticate-type) method)
 		(if (and 
 		     (memq auth extensions)
 		     (setq method (nth 1 (assq auth smtp-authenticate-method-alist))))