[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el |
Date: |
Mon, 27 Sep 2004 04:01:52 -0400 |
Index: emacs/lisp/gnus/mm-decode.el
diff -c emacs/lisp/gnus/mm-decode.el:1.17 emacs/lisp/gnus/mm-decode.el:1.18
*** emacs/lisp/gnus/mm-decode.el:1.17 Mon Sep 20 21:22:15 2004
--- emacs/lisp/gnus/mm-decode.el Mon Sep 27 07:44:44 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))))