# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1175701084 0
# Node ID 3c8672cf3035d63fef56b7f9ba3793ef83ce81c3
# Parent  aa6be935808e20c5d0c988fc02e4ec2f14807c40
(smtpmail-via-smtp): Use ascii-case-table when downcasing.

diff -r aa6be935808e -r 3c8672cf3035 lisp/mail/smtpmail.el
--- 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