diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-15 00:30:14 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-15 00:30:14 +0200 |
| commit | 9c5a9d4dd4e8dcdafe240b067f26681de4a0d4bf (patch) | |
| tree | 108aca26526013f51ae4990606e0ac576b0c0009 /lisp/gnus/mm-util.el | |
| parent | ad2c4d3c6166b6a02e6256f3aff171fbf5a2c80b (diff) | |
| download | emacs-9c5a9d4dd4e8dcdafe240b067f26681de4a0d4bf.tar.gz emacs-9c5a9d4dd4e8dcdafe240b067f26681de4a0d4bf.tar.bz2 emacs-9c5a9d4dd4e8dcdafe240b067f26681de4a0d4bf.zip | |
Rewrite Gnus calls to compat function mm-multibyte-p
Diffstat (limited to 'lisp/gnus/mm-util.el')
| -rw-r--r-- | lisp/gnus/mm-util.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 42c2f3ab155..25b156803a6 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -559,7 +559,7 @@ nil means ASCII, a single-element list represents an appropriate MIME charset, and a longer list means no appropriate charset." (let (charsets) ;; The return possibilities of this function are a mess... - (or (and (mm-multibyte-p) + (or (and enable-multibyte-characters mm-use-find-coding-systems-region ;; Find the mime-charset of the most preferred coding ;; system that has one. @@ -628,7 +628,7 @@ charset, and a longer list means no appropriate charset." (defun mm-find-charset-region (b e) "Return a list of Emacs charsets in the region B to E." (cond - ((mm-multibyte-p) + (enable-multibyte-characters ;; Remove composition since the base charsets have been included. ;; Remove eight-bit-*, treat them as ascii. (let ((css (find-charset-region b e))) |