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

[Miles Bader]

Index: emacs/lisp/gnus/mm-decode.el
diff -c emacs/lisp/gnus/mm-decode.el:1.12.2.4 
emacs/lisp/gnus/mm-decode.el:1.12.2.5
*** emacs/lisp/gnus/mm-decode.el:1.12.2.4       Wed Oct  6 05:21:53 2004
--- emacs/lisp/gnus/mm-decode.el        Wed Oct  6 05:23:52 2004
***************
*** 623,636 ****
    "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)
        (insert-buffer-substring obuf beg)
        (current-buffer))))
  
--- 623,636 ----
    "Copy the contents of the current buffer to a fresh buffer."
    (save-excursion
      (let ((obuf (current-buffer))
          beg)
        (goto-char (point-min))
        (search-forward-regexp "^\n" nil t)
        (setq beg (point))
!       (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))))