From f68f9b71d270dd5e5212ab41bd577a0b397bd4b6 Mon Sep 17 00:00:00 2001 From: hayashi Date: Sat, 18 Mar 2000 08:38:01 +0000 Subject: [PATCH] More hack for FSF Emacs --- ChangeLog | 5 +++++ mime-view.el | 12 ++++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3b2faf3..32b24ab 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-03-18 Yoshiki Hayashi + + * mime-view.el (mime-display-gzipped): Temporaly hack for FSF Emacs + until new FLIM is released. + 2000-03-16 Yoshiki Hayashi * mime-view.el (mime-display-gzipped): Make it FSF Emacs friendly. diff --git a/mime-view.el b/mime-view.el index b7eb7f0..09f0134 100644 --- a/mime-view.el +++ b/mime-view.el @@ -852,10 +852,14 @@ 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)) + ;; #### Kludge to make FSF Emacs happy. + (if (featurep 'xemacs) + (insert (mime-entity-content entity)) + (let ((content (mime-entity-content entity))) + (if (not (multibyte-string-p content)) + ;; I really hate this brain-damaged function. + (set-buffer-multibyte nil)) + (insert content))) (as-binary-process (call-process-region (point-min) (point-max) "gzip" t t nil "-cd")) -- 1.7.10.4