[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 ea44d7ddfc: ; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Expl
From: |
Eli Zaretskii |
Subject: |
emacs-28 ea44d7ddfc: ; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Explain with-case-table. |
Date: |
Wed, 20 Jul 2022 14:28:03 -0400 (EDT) |
branch: emacs-28
commit ea44d7ddfc9fe07fbdffd8e02db2ef6bab1f8b5c
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
; * 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 8ac0cd7e7c..33458178a5 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 ea44d7ddfc: ; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Explain with-case-table.,
Eli Zaretskii <=