diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-04-04 15:38:04 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-04-04 15:38:04 +0000 |
| commit | ae0c796581ecb9b08b0af682db133668b08fce2e (patch) | |
| tree | 9a2ed9a9df664f7ef1d9e37ebb66f098c91b589f /lisp/mail/smtpmail.el | |
| parent | 2c5cb611ebb36e2a9eeb91877da3a85597d25dc5 (diff) | |
| download | emacs-ae0c796581ecb9b08b0af682db133668b08fce2e.tar.gz | |
(smtpmail-via-smtp): Use ascii-case-table when downcasing.
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 4d19e9371fd..66c4bdd8df7 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -691,8 +691,10 @@ 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 ((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 |