Use default-value rather than default-enable-multibyte-characters.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9d257dd4efb249e802f4399a19e36f725594ab74..d1ac4e06f6229df2e0513619bef806647ae7ccb4 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,14 @@
+2009-09-04  Glenn Morris  <rgm@gnu.org>
+
+       * qp.el (quoted-printable-encode-string): Use mm-enable-multibyte, or
+       mm-disable-multibyte, rather than default-enable-multibyte-characters.
+       * utf7.el (utf7-encode, utf7-decode): Use mm-with-multibyte-buffer, or
+       mm-with-unibyte-buffer, rather than default-enable-multibyte-characters.
+       * mm-util.el (mm-with-unibyte-current-buffer)
+       (mm-find-buffer-file-coding-system):
+       * yenc.el (yenc-decode-region): Use default-value rather than
+       default-enable-multibyte-characters.
+
 2009-09-03  Glenn Morris  <rgm@gnu.org>
 
        * mm-util.el (mm-emacs-mule, mm-default-multibyte-p):

diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index 0c7a6e3e7b8e042fd3f34327a84d4f2433d74d9a..c423448d2b19d6a41644aa07a5692dbb26417ef6 100644 (file)
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -1227,7 +1227,7 @@ Use multibyte mode for this."
 
 (defmacro mm-with-unibyte-current-buffer (&rest forms)
   "Evaluate FORMS with current buffer temporarily made unibyte.
-Also bind `default-enable-multibyte-characters' to nil.
+Also bind the default-value of `enable-multibyte-characters' to nil.
 Equivalent to `progn' in XEmacs
 
 NOTE: Use this macro with caution in multibyte buffers (it is not
@@ -1242,12 +1242,12 @@ Emacs 23 (unicode)."
         (let ((,multibyte enable-multibyte-characters)
               (,buffer (current-buffer)))
           (unwind-protect
-              (let (default-enable-multibyte-characters)
+              (letf (((default-value 'enable-multibyte-characters) nil))
                 (set-buffer-multibyte nil)
                 ,@forms)
             (set-buffer ,buffer)
             (set-buffer-multibyte ,multibyte)))
-       (let (default-enable-multibyte-characters)
+       (letf (((default-value 'enable-multibyte-characters) nil))
         ,@forms))))
 (put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0)
 (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body))
@@ -1590,8 +1590,8 @@ gzip, bzip2, etc. are allowed."
                            filename))
                    (mm-decompress-buffer filename nil t))))
       (when decomp
-       (set-buffer (let (default-enable-multibyte-characters)
-                     (generate-new-buffer " *temp*")))
+       (set-buffer (letf (((default-value 'enable-multibyte-characters) nil))
+                         (generate-new-buffer " *temp*")))
        (insert decomp)
        (setq filename (file-name-sans-extension filename)))
       (goto-char (point-min))

diff --git a/lisp/gnus/yenc.el b/lisp/gnus/yenc.el
index 51d80f8667df1b2b7ddf5afd5de838d3c3d1d7f3..e352b8099d742dc3b2fa14a3414e2627e9f6774d 100644 (file)
--- a/lisp/gnus/yenc.el
+++ b/lisp/gnus/yenc.el
@@ -89,8 +89,8 @@
              (when (re-search-forward "^=yend.*$" end t)
                (setq last (match-beginning 0))
                (setq footer-alist (yenc-parse-line (match-string 0)))
-               (let (default-enable-multibyte-characters)
-                 (setq work-buffer (generate-new-buffer " *yenc-work*")))
+               (letf (((default-value 'enable-multibyte-characters) nil))
+                     (setq work-buffer (generate-new-buffer " *yenc-work*")))
                (while (< first last)
                  (setq char (char-after first))
                  (cond ((or (eq char ?\r)