[emy] mime-display-gzipped

[Yuuichi Teranishi]

At 20 Mar 2000 17:58:54 +0900,
守岡さん wrote:
> 
> ;; raw-buffer は MUA が unibyte buffer にしているはずなので、MEL が変
> ;; なことをしてなければ返り値も unibyte になることが期待できる訳です。
> 

有沢さんが示された下の 3 つは、
raw-buffer が multibyte になっていると思われるので、
これらの方を直すのが正しい気がします。

At 16 Mar 2000 17:53:51 +0900,
有沢さん wrote:
> 
> ● (set-buffer-multibyte nil) としなければならない
>         Wanderlust (2.2.12)
>         SEMI-VM (6.75-19991026-1)
>         EMH (1.10.1)
>         CMAIL (2.60+20000216)
> ● (set-buffer-multibyte nil) としてはいけない
>         T-gnus (6.14.1 r12)
>         RMAIL-MIME (1.13.0)
>         mime-edit-preview-message

mime-edit-preview-message は、直すとするとここらへんでしょうか。

--- mime-edit.el~	Wed Sep 29 19:19:09 1999
+++ mime-edit.el	Tue Mar 21 18:02:18 2000
@@ -2580,6 +2580,7 @@
 	 (concat "^" (regexp-quote separator) "$"))
 	(replace-match "")
       )
+    (set-buffer-multibyte nil)
     (mime-view-buffer)
     ))

EMY の mime-display-gzipped はこんなかんじですかね..。

(defun mime-display-gzipped (entity situation)
  "Ungzip gzipped part and display."
  (insert
   (decode-coding-string
    (with-temp-buffer
      (set-buffer-multibyte nil)
      (insert (mime-entity-content entity))
      (as-binary-process
       (call-process-region (point-min) (point-max) "gzip" t t
			    nil "-cd"))
      (buffer-string))
    'undecided))
  t)

--
Yuuichi Teranishi (寺西裕一) <teranisi ＠ gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"There will be an answer, let it be..."