From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 20 Jul 2022 18:27:15 +0000 (+0300)
Subject: ; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Explain with-case-table.
X-Git-Tag: emacs-28.1.91~34
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea44d7ddfc9fe07fbdffd8e02db2ef6bab1f8b5c;p=emacs.git

; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Explain with-case-table.
---

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)