* mm-util.el (mm-with-unibyte-current-buffer): Set the default

value of enable-multibyte-characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95077e4..9e84ca4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-04 17:13:04  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-util.el (mm-with-unibyte-current-buffer): Set the default
+       value of enable-multibyte-characters.
+
 2000-05-04 10:31:24  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-sum.el (gnus-summary-show-article): En/disable multibyte.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 03aca22..74cd23f 100644 (file)
--- 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))