Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
76872:f5f9a75d17e8 | 76873:d2d1b2bd4bbe |
---|---|
689 (smtpmail-read-response process)))) | 689 (smtpmail-read-response process)))) |
690 (not (integerp (car response-code))) | 690 (not (integerp (car response-code))) |
691 (>= (car response-code) 400)) | 691 (>= (car response-code) 400)) |
692 (throw 'done nil))) | 692 (throw 'done nil))) |
693 (dolist (line (cdr (cdr response-code))) | 693 (dolist (line (cdr (cdr response-code))) |
694 (let ((name (mapcar (lambda (s) (intern (downcase s))) | 694 (let ((old-case-table (current-case-table)) |
695 (split-string (substring line 4) "[ ]")))) | 695 name) |
696 ;; Make sure we're using the standard case table | |
697 ;; when downcasing; for instance, a downcased I is a | |
698 ;; dotless i in Turkish. | |
699 (unwind-protect | |
700 (progn (set-case-table (standard-case-table)) | |
701 (setq name | |
702 (mapcar (lambda (s) (intern (downcase s))) | |
703 (split-string | |
704 (substring line 4) "[ ]")))) | |
705 (set-case-table old-case-table)) | |
696 (and (eq (length name) 1) | 706 (and (eq (length name) 1) |
697 (setq name (car name))) | 707 (setq name (car name))) |
698 (and name | 708 (and name |
699 (cond ((memq (if (consp name) (car name) name) | 709 (cond ((memq (if (consp name) (car name) name) |
700 '(verb xvrb 8bitmime onex xone | 710 '(verb xvrb 8bitmime onex xone |