bug#5981: 24.0.50; Attempt to set a constant symbol: enable-multibyte-characters

["JJ" <bug-gnu-emacs_gnu.org@sumou.com>]

[-- Attachment #1: Type: text/plain, Size: 278 bytes --]

>This bug persists for me with the current 100012 bzr Emacs
>trunk. Problems arise in Gnus.
>When trying to `S o m' forward a mail, it reports:
>Attempt to set a constant symbol: enable-multibyte-characters

Here is a patch to fix this error on the latest GNU Emacs bzr trunk:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: mm-util.el-multibyte.patch --]
[-- Type: text/x-patch, Size: 786 bytes --]

--- trunk/lisp/gnus/mm-util.el	2010-04-24 18:49:21.189375459 +0200
+++ trunk-patched/lisp/gnus/mm-util.el	2010-04-24 18:50:30.610376339 +0200
@@ -1248,13 +1248,15 @@
 	 (let ((,multibyte enable-multibyte-characters)
 	       (,buffer (current-buffer)))
 	   (unwind-protect
-	       (letf (((default-value 'enable-multibyte-characters) nil))
+	       (letf ()
 		 (set-buffer-multibyte nil)
 		 ,@forms)
 	     (set-buffer ,buffer)
 	     (set-buffer-multibyte ,multibyte)))
-       (letf (((default-value 'enable-multibyte-characters) nil))
-	 ,@forms))))
+       (letf ()
+	 (set-buffer-multibyte nil)
+	 ,@forms
+	 (set-buffer-multibyte ,multibyte)))))
 (put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0)
 (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body))
 

[-- Attachment #3: Type: text/plain, Size: 8 bytes --]


-- 
JJ