From: hayashi <hayashi>
Date: Thu, 16 Mar 2000 01:00:26 +0000 (+0000)
Subject: Make mime-display-gzipped FSF Emacs friendly
X-Git-Tag: emy-1_13_5~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8fca067abde8c2ea2e80fd84d0e1d57bbdc1f738;p=elisp%2Fsemi.git

Make mime-display-gzipped FSF Emacs friendly
---

diff --git a/ChangeLog b/ChangeLog
index 9b3a833..3b2faf3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-03-16  Yoshiki Hayashi  <yoshiki@xemacs.org>
+
+	* mime-view.el (mime-display-gzipped): Make it FSF Emacs friendly.
+
 2000-03-14  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
 	* 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)