diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-20 21:22:15 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-20 21:22:15 +0000 |
| commit | 46cdaf2476204e5933ba1573381d114ed3a4b29f (patch) | |
| tree | dea5ae425e065dc5cff377f02854b3aeb9df9159 /lisp/gnus/mm-decode.el | |
| parent | fe7ecaf2e3a4f64fd43bb96e934716dd46271865 (diff) | |
| download | emacs-46cdaf2476204e5933ba1573381d114ed3a4b29f.tar.gz | |
(mm-copy-to-buffer): Preserve the data's unibyteness.
Diffstat (limited to 'lisp/gnus/mm-decode.el')
| -rw-r--r-- | lisp/gnus/mm-decode.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 84353a26933..ff05393415d 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -623,11 +623,14 @@ Postpone undisplaying of viewers for types in "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)))) @@ -1486,5 +1489,5 @@ If RECURSIVE, search recursively." (provide 'mm-decode) -;;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b +;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b ;;; mm-decode.el ends here |