Mercurial > emacs
diff lisp/mail/smtpmail.el @ 76873:d2d1b2bd4bbe
(smtpmail-via-smtp): Use standard case table when downcasing.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 01 Apr 2007 17:38:10 +0000 |
parents | d6f3ca7298f7 |
children | ee6e10ac7c82 |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Sun Apr 01 17:38:02 2007 +0000 +++ b/lisp/mail/smtpmail.el Sun Apr 01 17:38:10 2007 +0000 @@ -691,8 +691,18 @@ (>= (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