diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-12 15:30:14 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-12 15:30:14 -0400 |
| commit | 6c2453e03861069fc1d891ecd8957545a8044bd9 (patch) | |
| tree | 05df7417c34fd15067526c4b5d2a8a18bc4f77ea /lisp/mail/smtpmail.el | |
| parent | e0af409500d5f44b34a6e8d971f0c7abe1d747fe (diff) | |
| download | emacs-6c2453e03861069fc1d891ecd8957545a8044bd9.tar.gz emacs-6c2453e03861069fc1d891ecd8957545a8044bd9.tar.bz2 emacs-6c2453e03861069fc1d891ecd8957545a8044bd9.zip | |
* lisp/emacs-lisp/cl-lib.el (current-case-table): Remove setter.
* lisp/leim/quail/sisheng.el (sisheng-list): Use with-case-table.
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 54f4664e6db..3440741f573 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -733,7 +733,7 @@ Returns an error if the server cannot be contacted." (plist-get (cdr result) :capabilities) "\r\n"))) (let ((name - (with-case-table ascii-case-table + (with-case-table ascii-case-table ;FIXME: Why? (mapcar (lambda (s) (intern (downcase s))) (split-string (substring line 4) "[ ]"))))) (when (= (length name) 1) |