From 46cdaf2476204e5933ba1573381d114ed3a4b29f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 20 Sep 2004 21:22:15 +0000 Subject: [PATCH] (mm-copy-to-buffer): Preserve the data's unibyteness. --- lisp/gnus/ChangeLog | 25 ++++++++++++++----------- lisp/gnus/mm-decode.el | 5 ++++- 2 files changed, 18 insertions(+), 12 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 3e87f944397..60ad776347c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2004-09-20 Stefan Monnier + + * mm-decode.el (mm-copy-to-buffer): Preserve the data's unibyteness. + 2004-09-20 Reiner Steib * uudecode.el (uudecode-use-external): Add :version. @@ -12,7 +16,7 @@ * pgg-def.el (pgg-query-keyserver): Add :version. * nnmail.el (nnmail-fancy-expiry-targets) - (nnmail-mail-splitting-charset, nnmail-mail-splitting-decodes): + (nnmail-mail-splitting-charset, nnmail-mail-splitting-decodes): * nnimap.el (nnimap-split-download-body, nnimap-dont-close) (nnimap-retrieve-groups-asynchronous): Add :version. @@ -21,7 +25,7 @@ * mml.el (mml-content-disposition-parameters) (mml-insert-mime-headers-always): Add :version. - * mm-util.el (mm-coding-system-priorities): + * mm-util.el (mm-coding-system-priorities): * mm-decode.el (mm-inline-text-html-with-images) (mm-keep-viewer-alive-types, mm-external-terminal-program) @@ -49,7 +53,7 @@ (message-insert-canlock, message-wide-reply-confirm-recipients): Change :version. - * mail-source.el (mail-source-ignore-errors): Added :group, :type + * mail-source.el (mail-source-ignore-errors): Add :group, :type and :version. (mail-source-delete-old-incoming-confirm) (mail-source-movemail-program): Add :version. @@ -78,7 +82,7 @@ * gnus-srvr.el (gnus-server-browse-in-group-buffer) (gnus-server-offline-face): Add :version. - * gnus-score.el (gnus-adaptive-word-length-limit): + * gnus-score.el (gnus-adaptive-word-length-limit): * gnus-msg.el (gnus-gcc-externalize-attachments) (gnus-debug-files, gnus-debug-exclude-variables) @@ -146,7 +150,7 @@ 2004-09-16 Reiner Steib - * gnus-sum.el (gnus-fetch-old-headers): Added custom choices `t' + * gnus-sum.el (gnus-fetch-old-headers): Add custom choices `t' and `invisible'. 2004-09-13 Simon Josefsson @@ -155,7 +159,7 @@ 2004-09-13 Reiner Steib - * gnus-sum.el (gnus-summary-copy-article): Fixed doc string. + * gnus-sum.el (gnus-summary-copy-article): Fix doc string. 2004-09-10 Miles Bader @@ -163,10 +167,10 @@ 2004-09-10 Teodor Zlatanov - * nnimap.el (nnimap-open-connection): allow 'imaps' as a synonym + * nnimap.el (nnimap-open-connection): Allow 'imaps' as a synonym for the 'imap' port in netrc files - * gnus-registry.el (gnus-registry-trim): watch out for negatives + * gnus-registry.el (gnus-registry-trim): Watch out for negatives in gnus-registry-trim 2004-09-10 Simon Josefsson @@ -176,10 +180,9 @@ 2004-09-08 Reiner Steib * nntp.el (nntp): New customization group. - (nntp-authinfo-file): Added customization group. + (nntp-authinfo-file): Add customization group. - * mml2015.el (mml2015-unabbrev-trust-alist): Added customization - group. + * mml2015.el (mml2015-unabbrev-trust-alist): Add customization group. * mml-sec.el (mml-signencrypt-style-alist): Ditto. 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 -- 2.39.2