[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/01 17:38:10

Index: smtpmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/smtpmail.el,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -b -r1.91 -r1.92
--- smtpmail.el 9 Feb 2007 16:17:56 -0000       1.91
+++ smtpmail.el 1 Apr 2007 17:38:10 -0000       1.92
@@ -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