diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-04-23 12:15:51 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-04-23 12:15:51 -0400 |
| commit | bd486b039f9478afaff25e358b9e2c615e39f5c6 (patch) | |
| tree | 2054f94c257d0c68794e4a7e52b2a48c32c98709 /lisp/gnus/mm-util.el | |
| parent | 3b548e1b3acf989c1bb866348f6dcff3d9a25d27 (diff) | |
| download | emacs-bd486b039f9478afaff25e358b9e2c615e39f5c6.tar.gz | |
* mm-util.el (mm-find-buffer-file-coding-system):
* yenc.el (yenc-decode-region): Don't let-bind a read-only variable.
Diffstat (limited to 'lisp/gnus/mm-util.el')
| -rw-r--r-- | lisp/gnus/mm-util.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index aa2be153b0f..1e70a69b1fd 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/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)) |