From 67fe78948dbed04ebfa999c4d238f738eee64839 Mon Sep 17 00:00:00 2001 From: okada Date: Tue, 1 Feb 2000 14:01:00 +0000 Subject: [PATCH] * smtp.el (smtp-via-smtp): Downcase `smtp-authenticate-type'. --- ChangeLog | 4 ++++ smtp.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index e98bc2b..325d8f8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-01-28 Kenichi OKADA + + * smtp.el (smtp-via-smtp): Downcase `smtp-authenticate-type'. + 2000-02-01 Daiki Ueno * smtp.el (smtp-via-smtp): Throw `done' instead of `smtp-error'; diff --git a/smtp.el b/smtp.el index c24975c..dd6da1b 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 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)))) -- 1.7.10.4