diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-21 06:30:38 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-21 06:30:38 +0200 |
| commit | 5ebd15f2da984c2f98707c43c95f5baf13c19a3a (patch) | |
| tree | fac9ed74c30887a4e1d134de659c2c26495e2c89 /lisp/mail | |
| parent | a641f55559601ad38ee6cad9dd492d18dd0f4809 (diff) | |
| parent | ea44d7ddfc9fe07fbdffd8e02db2ef6bab1f8b5c (diff) | |
| download | emacs-5ebd15f2da984c2f98707c43c95f5baf13c19a3a.tar.gz emacs-5ebd15f2da984c2f98707c43c95f5baf13c19a3a.tar.bz2 emacs-5ebd15f2da984c2f98707c43c95f5baf13c19a3a.zip | |
Merge from origin/emacs-28
ea44d7ddfc ; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Explain wit...
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index fcb072d5d09..45b25b55301 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) |