Mercurial > emacs

changeset 76942:3c8672cf3035

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 aa6be935808e
children fd3e6a10551d
files lisp/mail/smtpmail.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
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