(gnus-article-display-xface)

[gnus] / lisp / mm-util.el

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index e6872f1..296098e 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -308,7 +308,12 @@ If the charset is `composition', return the actual one."
 
 (defmacro mm-with-unibyte-buffer (&rest forms)
   "Create a temporary buffer, and evaluate FORMS there like `progn'.
-Use unibyte mode for this."
+See also `with-temp-file' and `with-output-to-string'."
+  (let ((temp-buffer (make-symbol "temp-buffer"))
+       (multibyte (make-symbol "multibyte")))
+    `(if (or (featurep 'xemacs)
+            (not (boundp 'enable-multibyte-characters)))
+        (with-temp-buffer ,@forms)
        (let ((,multibyte (default-value 'enable-multibyte-characters))
             ,temp-buffer)
         (unwind-protect