diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2019-10-17 14:06:24 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2019-10-17 14:06:24 +0200 |
| commit | dc05cf12062cb724acd72136d4679439656e3750 (patch) | |
| tree | 0e0c214a29c3623ebbad51af88308d33639fe4f0 /lisp/net/imap.el | |
| parent | 4531d2bc63768aca34574ad38383c88169b3b0f4 (diff) | |
| download | emacs-dc05cf12062cb724acd72136d4679439656e3750.tar.gz emacs-dc05cf12062cb724acd72136d4679439656e3750.tar.bz2 emacs-dc05cf12062cb724acd72136d4679439656e3750.zip | |
Remove XEmacs compat code from imap.el
* lisp/net/imap.el (imap-disable-multibyte): Declare obsolete.
(imap-log, imap-open): Remove XEmacs compat code.
Diffstat (limited to 'lisp/net/imap.el')
| -rw-r--r-- | lisp/net/imap.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/net/imap.el b/lisp/net/imap.el index eb963094212..71d19185ff3 100644 --- a/lisp/net/imap.el +++ b/lisp/net/imap.el @@ -454,8 +454,8 @@ sure of changing the value of `foo'." (defmacro imap-disable-multibyte () "Enable multibyte in the current buffer." - (unless (featurep 'xemacs) - '(set-buffer-multibyte nil))) + (declare (obsolete nil "27.1")) + '(set-buffer-multibyte nil)) (defsubst imap-utf7-encode (string) (if imap-use-utf7 @@ -495,7 +495,7 @@ sure of changing the value of `foo'." (defun imap-log (string-or-buffer) (when imap-log (with-current-buffer (get-buffer-create imap-log-buffer) - (imap-disable-multibyte) + (set-buffer-multibyte nil) (buffer-disable-undo) (goto-char (point-max)) (if (bufferp string-or-buffer) @@ -1021,7 +1021,7 @@ necessary. If nil, the buffer name is generated." (if (imap-opened buffer) (imap-close buffer)) (mapc 'make-local-variable imap-local-variables) - (imap-disable-multibyte) + (set-buffer-multibyte nil) (buffer-disable-undo) (setq imap-server (or server imap-server)) (setq imap-port (or port imap-port)) @@ -1044,7 +1044,7 @@ necessary. If nil, the buffer name is generated." (with-current-buffer (get-buffer-create (generate-new-buffer-name " *temp*")) (mapc 'make-local-variable imap-local-variables) - (imap-disable-multibyte) + (set-buffer-multibyte nil) (buffer-disable-undo) (setq imap-server (or server imap-server)) (setq imap-port (or port imap-port)) |