From: Glenn Morris <rgm@gnu.org>
Date: Fri, 4 Sep 2009 02:47:26 +0000 (+0000)
Subject: Use default-value rather than default-enable-multibyte-characters.
X-Git-Tag: emacs-pretest-23.1.90~1490
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63220e377a188b3927d1265d9902235aab5a4ef6;p=emacs.git

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9d257dd4efb..d1ac4e06f62 100644
--- 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 0c7a6e3e7b8..c423448d2b1 100644
--- 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 51d80f8667d..e352b8099d7 100644
--- 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)