Mercurial > emacs
diff lisp/gnus/mm-decode.el @ 93107:3bf6293f3041
(mm-copy-to-buffer): Use mm-set-buffer-multibyte.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 20 Mar 2008 15:49:10 +0000 |
parents | 734bb318f69e |
children | 2da1f95ea11c |
line wrap: on
line diff
--- a/lisp/gnus/mm-decode.el Thu Mar 20 15:47:15 2008 +0000 +++ b/lisp/gnus/mm-decode.el Thu Mar 20 15:49:10 2008 +0000 @@ -664,14 +664,15 @@ (defun mm-copy-to-buffer () "Copy the contents of the current buffer to a fresh buffer." (let ((obuf (current-buffer)) + (mb (mm-multibyte-p)) beg) (goto-char (point-min)) (search-forward-regexp "^\n" nil t) (setq beg (point)) (with-current-buffer - ;; Preserve the data's unibyteness (for url-insert-file-contents). - (let ((default-enable-multibyte-characters (mm-multibyte-p))) - (generate-new-buffer " *mm*")) + (generate-new-buffer " *mm*") + ;; Preserve the data's unibyteness (for url-insert-file-contents). + (mm-set-buffer-multibyte mb) (insert-buffer-substring obuf beg) (current-buffer))))