X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=smtp.el;h=1fc4b163c350854b0a3f4bb3396d4d8653122163;hb=b3655ecc6229005d257066e092dc656df64ba984;hp=dd6da1bc50ac02a5135b160ee35205f08fad7fd3;hpb=67fe78948dbed04ebfa999c4d238f738eee64839;p=elisp%2Fflim.git

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