procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2004-09-20 21:22:15 +00:00
parent fe7ecaf2e3
commit 46cdaf2476
2 changed files with 18 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/gnus/ChangeLog
View file

@ -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.

5
lisp/gnus/mm-decode.el
View file

@ -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