# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1175449090 0
# Node ID d2d1b2bd4bbe8a98f28175b0f6bd9b8bb6b105d0
# Parent  f5f9a75d17e8c46f55adf496d864fb79deef1b2d
(smtpmail-via-smtp): Use standard case table when downcasing.

diff -r f5f9a75d17e8 -r d2d1b2bd4bbe lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Sun Apr 01 17:38:02 2007 +0000
+++ b/lisp/mail/smtpmail.el	Sun Apr 01 17:38:10 2007 +0000
@@ -691,8 +691,18 @@
 			  (>= (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 ((old-case-table (current-case-table))
+		      name)
+		  ;; Make sure we're using the standard case table
+		  ;; when downcasing; for instance, a downcased I is a
+		  ;; dotless i in Turkish.
+		  (unwind-protect
+		      (progn (set-case-table (standard-case-table))
+			     (setq name
+				   (mapcar (lambda (s) (intern (downcase s)))
+					   (split-string
+					    (substring line 4) "[ ]"))))
+		    (set-case-table old-case-table))
 		  (and (eq (length name) 1)
 		       (setq name (car name)))
 		    (and name