[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/03/20 15:49:11

Index: mm-decode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/mm-decode.el,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- mm-decode.el        12 Mar 2008 18:30:52 -0000      1.54
+++ mm-decode.el        20 Mar 2008 15:49:10 -0000      1.55
@@ -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
+          (generate-new-buffer " *mm*")
        ;; Preserve the data's unibyteness (for url-insert-file-contents).
-       (let ((default-enable-multibyte-characters (mm-multibyte-p)))
-          (generate-new-buffer " *mm*"))
+      (mm-set-buffer-multibyte mb)
       (insert-buffer-substring obuf beg)
       (current-buffer))))