[mew-win32 04092] Re: supported image types

[Keiichi Suzuki]

>>>>> In Thu, 05 Aug 2004 19:50:07 +0900
>>>>> 小関 吉則 (KOSEKI Yoshinori) <kose at example.com> writes:

水口> Meadow 2.00 + Mew 3.3 の環境なんですが、 PCX形式の画像ファイルが添付さ
水口> れたメッセージを開いても、インライン表示されません。 インライン表示さ
水口> せるにはどうすればいいでしょうか？

白井> mew の場合は context-type と image type の alist を登録しないと
白井> いけないのだけど、無反応。(_ _)

kose> mew-mime-image-alist に ("Image/X-Pcx" . PCX) を追加するだけ
kose> でできました。

かなり強引だけど，こんなのはどうでしょう?

mew ではどのタイミングで実行すればよいかわからないので，その辺は
塩梅良くおねがいします。

(dolist (type image-types)
  (let ((image-type-name (capitalize (symbol-name type))))
    (add-to-list 'mew-mime-image-alist
		 (cons (concat "Image/" image-type-name) type))
    (add-to-list 'mew-mime-image-alist
		 (cons (concat "Image/X-" image-type-name) type))))

SEMI 族の場合はこんな感じ...

(when (boundp 'image-types)
  (eval-after-load "mime-image"
    '(dolist (type image-types)
       (let ((image-type-name (downcase (symbol-name type))))
	 (ctree-set-calist-strictly
	  'mime-preview-condition
	  `((type . image)
	    (subtype . ,(intern image-type-name))
	    (body . visible)
	    (body-presentation-method . ,#'mime-display-image)
	    (image-format . ,type)))
	 (ctree-set-calist-strictly
	  'mime-preview-condition
	  `((type . image)
	    (subtype . ,(intern (concat "x-" image-type-name)))
	    (body . visible)
	    (body-presentation-method . ,#'mime-display-image)
	    (image-format . ,type)))))))

-- 
鈴木圭一 / keiichi at example.com
PGP finger print (DH/DSS)
0B32 B37E 6DE9 3BC1 68A4  4089 7AAF 2B03 ECBD 614B