From ea44d7ddfc9fe07fbdffd8e02db2ef6bab1f8b5c Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 20 Jul 2022 21:27:15 +0300 Subject: [PATCH] ; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Explain with-case-table. --- lisp/mail/smtpmail.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 8ac0cd7e7c0..33458178a51 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -805,7 +805,11 @@ Returns an error if the server cannot be contacted." (plist-get (cdr result) :capabilities) "\r\n"))) (let ((name - (with-case-table ascii-case-table ;FIXME: Why? + ;; Use ASCII case-table to prevent I + ;; downcasing to a dotless i under some + ;; language environments. See + ;; https://lists.gnu.org/archive/html/emacs-devel/2007-03/msg01760.html. + (with-case-table ascii-case-table (mapcar (lambda (s) (intern (downcase s))) (split-string (substring line 4) "[ ]"))))) (when (= (length name) 1) -- 2.39.2