From 8fca067abde8c2ea2e80fd84d0e1d57bbdc1f738 Mon Sep 17 00:00:00 2001 From: hayashi Date: Thu, 16 Mar 2000 01:00:26 +0000 Subject: [PATCH] Make mime-display-gzipped FSF Emacs friendly --- ChangeLog | 4 ++++ mime-view.el | 6 ++++++ 2 files changed, 10 insertions(+) diff --git a/ChangeLog b/ChangeLog index 9b3a833..3b2faf3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-03-16 Yoshiki Hayashi + + * mime-view.el (mime-display-gzipped): Make it FSF Emacs friendly. + 2000-03-14 Yoshiki Hayashi * mime-view.el (mime-display-gzipped): Remove arguments. diff --git a/mime-view.el b/mime-view.el index 26368bb..b7eb7f0 100644 --- a/mime-view.el +++ b/mime-view.el @@ -852,10 +852,16 @@ This can only handle gzipped contents." "Ungzip gzipped part and display." (insert (with-temp-buffer + ;; I really hate this brain-damaged function. + (when (fboundp 'set-buffer-multibyte) + (set-buffer-multibyte nil)) (insert (mime-entity-content entity)) (as-binary-process (call-process-region (point-min) (point-max) "gzip" t t nil "-cd")) + ;; Oh my goodness. + (when (fboundp 'set-buffer-multibyte) + (set-buffer-multibyte t)) (decode-coding-region (point-min) (point-max) 'undecided) (buffer-string))) t) -- 1.7.10.4