emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 5ebd15f2da: Merge from origin/emacs-28


From: Stefan Kangas
Subject: master 5ebd15f2da: Merge from origin/emacs-28
Date: Thu, 21 Jul 2022 00:44:22 -0400 (EDT)

branch: master
commit 5ebd15f2da984c2f98707c43c95f5baf13c19a3a
Merge: a641f55559 ea44d7ddfc
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Merge from origin/emacs-28
    
    ea44d7ddfc ; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Explain wit...
---
 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 fcb072d5d0..45b25b5530 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -806,7 +806,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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]