[Mew-dist 12876] Re: XEmacs package: Mew 1.94.2

[Ninomiya Hideyuki]

こんばんは	二宮@お四国 です

自分みたいな若輩もんのしゃしゃり出る幕じゃないですし、今手元に
1.94.2 は無いんですけどっ.....

Yoshiki Hayashi <t90553 at example.com> は Mon, 17 Apr 2000 19:38:20 +0900 頃に
    Subject:    [Mew-dist 12875] XEmacs package: Mew 1.94.2
    Message-ID: <87g0slm2r9.fsf at example.com>
        に於いて、以下のようにおっしゃっていました。
※都合により手を加えさせて頂く事があります。御了承下さいマセマセ....
はやし> XEmacs は toolbar や menubar なしで build できるので、大部分
はやし> はそれに対する guard です。後、package として install すると
はやし> etc の下の file は locate-data-file で見つかりますので、利用
はやし> できるときはそれを使う方が良いと思います。

はやし>  	(setq require-final-newline t)))
はやし> -  (if mew-xemacs-p
はやし> +  (if (and mew-xemacs-p (featurep 'menubar))
はやし>        (progn

こういう場合は多分、mew-env.el の中であらかじめチェックして、
mew-menubar-p(仮称, mew-menu-p で良いかも) という変数をセットしといて、

(and mew-xemacs-p mew-menubar-p)

なんてするんでしょうか ?

はやし>        (progn
はやし> -	(mew-summary-toolbar-update)
はやし> +	(if (featurep 'toolbar)
はやし> +	    (mew-summary-toolbar-update))
はやし>  	(if (featurep 'scrollbar)

これは、mew-icon-p という変数が既に在りますが、ここじゃなくて、
mew-summary-toolbar-update 側でチェックしても良さげな気がします。
# 読んでないんだけどチェック入ってるんじゃない ?

はやし> -        (add-submenu nil mew-summary-mode-menu-spec))))
はやし> +	(when (featurep 'menubar)
はやし> +	  (set-buffer-menubar current-menubar)

mew-menubar-p を用意するとしたらそれ使う。

はやし>    (defvar mew-icon-separate
はやし> -    (toolbar-make-button-list
はやし> -     (expand-file-name "mew-sep.xpm" mew-icon-directory)))
はやし> +    (when (fboundp 'toolbar-make-button-list)
はやし> +      (toolbar-make-button-list
はやし> +       (if (fboundp 'locate-data-file)
はやし> +	   (locate-data-file "mew-sep.xpm")
はやし> +	 (expand-file-name "mew-sep.xpm" mew-icon-directory)))))
.................

こういう同じパターンが一杯並ぶ時は、

mew-toolbar-make-button-list なんてマクロか関数作って、

(mew-toolbar-make-button-list "mew-sep.xpm")

なんて書けるようにした方が良いかもっ


はやし> たぶん Mew 1.95 でも同じような問題があるのではないかと思います

こっちの方はちょっと見てみよっかなっ
---
ICQ UIN:57442553                        二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:  http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com http://user.shikoku.ne.jp/~nin/index.html