[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/04 15:38:05

Index: smtpmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/smtpmail.el,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -b -r1.94 -r1.95
--- smtpmail.el 3 Apr 2007 09:05:37 -0000       1.94
+++ smtpmail.el 4 Apr 2007 15:38:04 -0000       1.95
@@ -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