[XEmacs] inline xbm

[Katsumi Yamaoka]

>>>>> In [emacs-mime-ja : No.00121] 
>>>>>	Daiki Ueno <ueno ＠ ueda.info.waseda.ac.jp> wrote:

山岡> こんなものでいかがでしょうか? → 上野さま。

上野さん> 一か所だけ、

山岡> +(eval-when-compile
山岡> +  (if (featurep 'xemacs)
山岡> +      (defmacro mime-image-normalize-xbm (entity)

上野さん> の部分なのですが、Emacs21 の API でも同様の処理が必要のよう
上野さん> ですので、(if (featurep 'xemacs) ... ) は外してしまって OK 
上野さん> だと思います。

了解です。どっちにしろ eval-when-compile なので、あそこまでする必要は
無かったですね。

上野さん> 以下に、山岡さんの patch からの差分を添付いたします。

上野さん>  (defun mime-display-image (entity situation)
上野さん>    (message "Decoding image...")
上野さん>    (let* ((format (cdr (assq 'image-format situation)))
上野さん> -	 (image (static-if (featurep 'xemacs)
上野さん> -		    (if (eq 'xbm format)
上野さん> -			(mime-image-normalize-xbm entity)
上野さん> -		      (image-normalize format (mime-entity-content entity)))
上野さん> +	 (image (if (eq 'xbm format)
上野さん> +		    (mime-image-normalize-xbm entity)
上野さん>  		  (image-normalize format (mime-entity-content entity)))))

Back to the future!  emacs-r2l-0.2 を作り直して確認しました。
しかしこれ、既存の Emacs 20.4 などでは使えませんよ。(^^;;)
とりあえず

(or (featurep 'xemacs) (boundp 'image-types))

の場合だけ `mime-image-normalize-xbm' を使うものを commit しましたので、
問題があれば修正をお願いいたします。

;; emacs-r2l-0.2 がそのままだと emacs-20.4.91 として install されてし
;; まうので、これからちょっと細工していつでも使えるようにしておきます。
-- 
Katsumi Yamaoka <yamaoka ＠ jpl.org>