From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 2 Apr 2007 22:45:41 +0000 (+0000)
Subject: (smtpmail-via-smtp): Revert last change.
X-Git-Tag: emacs-pretest-22.0.97~27
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f01ac5da4af8d74a3b1b75d512f3b222eb7e0eeb;p=emacs.git

(smtpmail-via-smtp): Revert last change.
---

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 66015475e4c..e1e742a1d72 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -691,18 +691,8 @@ This is relative to `smtpmail-queue-dir'.")
 			  (>= (car response-code) 400))
 		      (throw 'done nil)))
 	      (dolist (line (cdr (cdr response-code)))
-		(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))
+		(let ((name (mapcar (lambda (s) (intern (downcase s)))
+				    (split-string (substring line 4) "[ ]"))))
 		  (and (eq (length name) 1)
 		       (setq name (car name)))
 		    (and name