procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Eli Zaretskii 2022-07-20 21:27:15 +03:00
parent f02944f5a1
commit ea44d7ddfc
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/smtpmail.el
View file

@ -805,7 +805,11 @@ Returns an error if the server cannot be contacted."
(plist-get (cdr result) :capabilities) (plist-get (cdr result) :capabilities)
"\r\n"))) "\r\n")))
(let ((name (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))) (mapcar (lambda (s) (intern (downcase s)))
(split-string (substring line 4) "[ ]"))))) (split-string (substring line 4) "[ ]")))))
(when (= (length name) 1) (when (= (length name) 1)