[Emacs-diffs] Changes to emacs/lisp/mail/smtpmail.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/04/02 22:45:41

Index: smtpmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/smtpmail.el,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -b -r1.92 -r1.93
--- smtpmail.el 1 Apr 2007 17:38:10 -0000       1.92
+++ smtpmail.el 2 Apr 2007 22:45:41 -0000       1.93
@@ -691,18 +691,8 @@
                          (>= (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