mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(smtpmail-via-smtp): Use standard case table when downcasing.

Browse source
This commit is contained in:
Chong Yidong 2007-04-01 17:38:10 +00:00
parent 34f6db45c8
commit b6aee6ff1a
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/mail/smtpmail.el
View file

@ -691,8 +691,18 @@ This is relative to `smtpmail-queue-dir'.")
(>= (car response-code) 400))
(throw 'done nil)))
(dolist (line (cdr (cdr response-code)))
(let ((name (mapcar (lambda (s) (intern (downcase s)))
(split-string (substring line 4) "[ ]"))))
(let ((old-case-table (current-case-table))
name)
;; Make sure we're using the standard case table
;; when downcasing; for instance, a downcased I is a
;; dotless i in Turkish.
(unwind-protect
(progn (set-case-table (standard-case-table))
(setq name
(mapcar (lambda (s) (intern (downcase s)))
(split-string
(substring line 4) "[ ]"))))
(set-case-table old-case-table))
(and (eq (length name) 1)
(setq name (car name)))
(and name