diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-04-02 22:45:41 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-04-02 22:45:41 +0000 |
| commit | f01ac5da4af8d74a3b1b75d512f3b222eb7e0eeb (patch) | |
| tree | b65d9b82daf6462e0c515936fd40553a0b50b3bd /lisp/mail | |
| parent | 1bfa6e94539c4c74b5c0dcf59977622ab45fd861 (diff) | |
| download | emacs-f01ac5da4af8d74a3b1b75d512f3b222eb7e0eeb.tar.gz | |
(smtpmail-via-smtp): Revert last change.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 14 |
1 files changed, 2 insertions, 12 deletions
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 |