[mew-dist 20275] Re: error in insert-file-contents

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 20273] Re: error in insert-file-contents
Message-ID: <20020218.183315.46616911.kazu at example.com>
Date: Mon, 18 Feb 2002 18:33:15 +0900 (JST)

kazu> > ここは text 向けだから、633行目の
kazu> > 
kazu> > 	 (let (format-alist)
kazu> > 	   (insert-file-contents file))))
kazu> > 
kazu> > ってほうじゃないでしょうか？ (という気がします)
kazu> 
kazu> そのようです。(_ _)
kazu> 
kazu> format-alist だけじゃ、不十分なのかなぁ。

# 鯉江さんのメールを読むまで、auto-image-file-mode って知らなかっ
# たので、不十分かどうかはわからないです。

ふと思ったんですが format-alist にしろ auto-image-file-mode に
しろ、Mew がその効力を期待しているところはない(と思う)ので、

(defmacro mew-flet (&rest body)
  `(let ((coding-system-for-read  'binary)
	 (coding-system-for-write 'binary)
	 (jka-compr-inhibit t)
	 (format-alist nil)
	 (auto-image-file-mode nil))
     , at example.com))

(defmacro mew-frwlet (read write &rest body)
  `(let ((coding-system-for-read  ,read)
	 (coding-system-for-write ,write)
	 (jka-compr-inhibit t)
	 (format-alist nil)
	 (auto-image-file-mode nil))
     , at example.com))

ってしたらどうでしょう。

# 'text/enriched は使ったことがないので良くわからないですが。

-- 
白井秀行 (mailto:shirai at example.com)