(mm-copy-to-buffer): Preserve the data's unibyteness.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 3e87f944397346739023b0cb1b5c304c244a11fc..60ad776347c835f8a1cf2795e31d89ac5da63ffa 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mm-decode.el (mm-copy-to-buffer): Preserve the data's unibyteness.
+
 2004-09-20  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * 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  <Reiner.Steib@gmx.de>
 
-       * 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  <jas@extundo.com>
@@ -155,7 +159,7 @@
 
 2004-09-13  Reiner Steib  <Reiner.Steib@gmx.de>
 
-       * 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  <miles@gnu.ai.mit.edu>
 
@@ -163,10 +167,10 @@
 
 2004-09-10  Teodor Zlatanov  <tzz@lifelogs.com>
 
-       * 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  <jas@extundo.com>
@@ -176,10 +180,9 @@
 2004-09-08  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * 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 84353a269336b4569f3ace36bc3c107fd163b0b8..ff05393415d4d6dc0bd20af406897e3294ecddb8 100644 (file)
--- 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