Mercurial > emacs
diff lisp/gnus/mm-decode.el @ 57243:c5e16264557d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-575
Merge from gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-34
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-35
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-36
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 27 Sep 2004 07:44:44 +0000 |
parents | 353df9943a65 |
children | df80d19d7a2e e23928ac5a97 |
line wrap: on
line diff
--- a/lisp/gnus/mm-decode.el Mon Sep 27 04:29:08 2004 +0000 +++ b/lisp/gnus/mm-decode.el Mon Sep 27 07:44:44 2004 +0000 @@ -623,14 +623,14 @@ "Copy the contents of the current buffer to a fresh buffer." (save-excursion (let ((obuf (current-buffer)) - (multibyte enable-multibyte-characters) beg) (goto-char (point-min)) (search-forward-regexp "^\n" nil t) (setq beg (point)) - (set-buffer (generate-new-buffer " *mm*")) - ;; Preserve the data's unibyteness (for url-insert-file-contents). - (set-buffer-multibyte multibyte) + (set-buffer + ;; Preserve the data's unibyteness (for url-insert-file-contents). + (let ((default-enable-multibyte-characters (mm-multibyte-p))) + (generate-new-buffer " *mm*"))) (insert-buffer-substring obuf beg) (current-buffer))))