From b3655ecc6229005d257066e092dc656df64ba984 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 1 Feb 2000 18:12:05 +0000 Subject: [PATCH] * smtp.el (smtp-via-smtp): Assume that `smtp-authenticate-type' is a symbol. --- ChangeLog | 5 +++++ smtp.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 325d8f8..fb67635 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-02-01 Daiki Ueno + + * smtp.el (smtp-via-smtp): Assume that `smtp-authenticate-type' + is a symbol. + 2000-01-28 Kenichi OKADA * 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)))) -- 1.7.10.4