diff options
Diffstat (limited to 'lisp')
| -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." | |||
| 806 | (plist-get (cdr result) :capabilities) | 806 | (plist-get (cdr result) :capabilities) |
| 807 | "\r\n"))) | 807 | "\r\n"))) |
| 808 | (let ((name | 808 | (let ((name |
| 809 | (with-case-table ascii-case-table ;FIXME: Why? | 809 | ;; Use ASCII case-table to prevent I |
| 810 | ;; downcasing to a dotless i under some | ||
| 811 | ;; language environments. See | ||
| 812 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-03/msg01760.html. | ||
| 813 | (with-case-table ascii-case-table | ||
| 810 | (mapcar (lambda (s) (intern (downcase s))) | 814 | (mapcar (lambda (s) (intern (downcase s))) |
| 811 | (split-string (substring line 4) "[ ]"))))) | 815 | (split-string (substring line 4) "[ ]"))))) |
| 812 | (when (= (length name) 1) | 816 | (when (= (length name) 1) |