[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 [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el [lexbind] |
Date: |
Wed, 06 Oct 2004 01:43:22 -0400 |
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))))
- [Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el [lexbind],
Miles Bader <=