Importing pgnus-0.22.

[elisp/gnus.git-] / lisp / mm-util.el

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 838a5c8..c8800b0 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -196,6 +196,11 @@ used as the line break code type of the coding system."
                           (point-min) (point-max)))))
     (mm-mule-charset-to-mime-charset charset)))
 
+(defun mm-multibyte-p ()
+  "Say whether multibyte is enabled."
+  (and (boundp 'enable-multibyte-characters)
+       enable-multibyte-characters))
+
 (provide 'mm-util)
 
 ;;; mm-util.el ends here