Make mime-display-gzipped FSF Emacs friendly

diff --git a/ChangeLog b/ChangeLog
index 9b3a833..3b2faf3 100644 (file)
--- 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 (file)
--- 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)