Mercurial > emacs
diff lisp/mail/smtpmail.el @ 76942:3c8672cf3035
(smtpmail-via-smtp): Use ascii-case-table when downcasing.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Wed, 04 Apr 2007 15:38:04 +0000 |
parents | 714d51db2c25 |
children | 8e27d63c45eb 4ef881a120fe |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Wed Apr 04 15:37:35 2007 +0000 +++ b/lisp/mail/smtpmail.el Wed Apr 04 15:38:04 2007 +0000 @@ -691,8 +691,10 @@ (>= (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 ((name + (with-case-table ascii-case-table + (mapcar (lambda (s) (intern (downcase s))) + (split-string (substring line 4) "[ ]"))))) (and (eq (length name) 1) (setq name (car name))) (and name