From: Katsumi Yamaoka <katsumi@flagship2.(none)>
Date: Sun, 25 Apr 2010 13:30:14 +0000 (+0000)
Subject: Synch with Emacs trunk:
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=f3439c4a8215fce6d732faf167b2284ce09c029b;p=gnus

Synch with Emacs trunk:
2010-04-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 * mm-util.el (mm-find-buffer-file-coding-system):
 * yenc.el (yenc-decode-region): Don't let-bind a read-only variable.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb21b9dac..cebf0eb47 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* mm-util.el (mm-find-buffer-file-coding-system):
+	* yenc.el (yenc-decode-region): Don't let-bind a read-only variable.
+
 2010-04-22  Andreas Seltenreich  <seltenreich@gmx.de>
 
 	* message.el (message-generate-headers): Record insertion of optional
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index aa2be153b..1e70a69b1 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -1239,6 +1239,9 @@ worth using this macro in unibyte buffers of course).  Use of
 harmful since it is likely to modify existing data in the buffer.
 For instance, it converts \"\\300\\255\" into \"\\255\" in
 Emacs 23 (unicode)."
+  ;; FIXME: (default-value 'enable-multibyte-characters) is read-only
+  ;; so let-binding it is wrong.  The right fix is to not use this
+  ;; macro at all any more, since it's been ill-defined from the start.
   (let ((multibyte (make-symbol "multibyte"))
 	(buffer (make-symbol "buffer")))
     `(if mm-emacs-mule
@@ -1593,8 +1596,8 @@ gzip, bzip2, etc. are allowed."
 			    filename))
 		    (mm-decompress-buffer filename nil t))))
       (when decomp
-	(set-buffer (letf (((default-value 'enable-multibyte-characters) nil))
-			  (generate-new-buffer " *temp*")))
+	(set-buffer (generate-new-buffer " *temp*"))
+        (mm-disable-multibyte)
 	(insert decomp)
 	(setq filename (file-name-sans-extension filename)))
       (goto-char (point-min))
diff --git a/lisp/yenc.el b/lisp/yenc.el
index b0f7b4115..8cb522c4e 100644
--- a/lisp/yenc.el
+++ b/lisp/yenc.el
@@ -89,8 +89,9 @@
 	      (when (re-search-forward "^=yend.*$" end t)
 		(setq last (match-beginning 0))
 		(setq footer-alist (yenc-parse-line (match-string 0)))
-		(letf (((default-value 'enable-multibyte-characters) nil))
-		      (setq work-buffer (generate-new-buffer " *yenc-work*")))
+                (with-current-buffer
+                    (setq work-buffer (generate-new-buffer " *yenc-work*"))
+                  (set-buffer-multibyte nil))
 		(while (< first last)
 		  (setq char (char-after first))
 		  (cond ((or (eq char ?\r)