X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fmm-util.el;h=74cd23f5edd2d64e3d3e72f868f45559101306cc;hp=03aca22275885a131d50504c07a2ccd78c483295;hb=cc9de211a627a2a8456ff0d4c0e62c161ad5240c;hpb=903caf988791e5f8e992391b3717aa242dc04470

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 03aca2227..74cd23f5e 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -334,7 +334,9 @@ See also `with-temp-file' and `with-output-to-string'."
 		   (coding-system-for-read mm-binary-coding-system)
 		   (coding-system-for-write mm-binary-coding-system))
 	       (set-buffer-multibyte nil)
+	       (setq-default enable-multibyte-characters nil)
 	       ,@forms)
+	   (setq-default enable-multibyte-characters ,multibyte)
 	   (set-buffer-multibyte ,multibyte))))))
 (put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0)
 (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body))