* nnheader.el (mm-disable-multibyte): New function.

[elisp/gnus.git-] / lisp / nnheader.el

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 297dd0f..cfee952 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -288,6 +288,18 @@ nil, ."
        (and (fboundp 'coding-system-p) (coding-system-p sym))))
   (defalias 'mm-coding-system-p 'nnheader-coding-system-p)
 
+  (defalias 'mm-disable-multibyte
+    (static-if (featurep 'xemacs)
+       'ignore
+      (lambda nil (set-buffer-multibyte nil))))
+  (defalias 'mm-enable-multibyte
+    (static-if (featurep 'xemacs)
+       'ignore
+      ;; Why isn't it t but `to'?  See mm-util.el.
+      (lambda nil (set-buffer-multibyte 'to))))
+
+  (defalias 'mm-encode-coding-region 'encode-coding-region)
+
   (defalias 'mm-string-make-unibyte
     (if (fboundp 'string-make-unibyte)
        'string-make-unibyte