]> git.eshelyaron.com Git - emacs.git/commitdiff
; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Explain with-case-table.
authorEli Zaretskii <eliz@gnu.org>
Wed, 20 Jul 2022 18:27:15 +0000 (21:27 +0300)
committerEli Zaretskii <eliz@gnu.org>
Wed, 20 Jul 2022 18:27:15 +0000 (21:27 +0300)
lisp/mail/smtpmail.el

index 8ac0cd7e7c0d436f5df76c3703c77143891ee488..33458178a51ca35a7a9b918a5c230e22146a49a2 100644 (file)
@@ -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)