[Mew-dist 3036] Problem with mule which isn't linked with X

[Maybe TABOO]

Kazu Yamamoto (山本和彦) <Kazu at example.com>:
> パッチにして、mew-dist に投げ、みんなにテストしてもらって下さい。

とのことなので投げます。

X 周りをリンクしていない人が Mew ユーザにいないのか、これまで報告が見
られませんでしたが、少なくとも X 周りをリンクしていない Mule 2.3 Emacs
19.34.1 では、mew-highlight.el の、

(defvar mew-highlight-header-color-private   (face-foreground 'default))

のためにエラーになります (Mew 1.92.4 での話)。

以下にこれを修正するパッチをつけます。

face や色周りは全然分からないので、これでいいかどうか、変な副作用があ
るかどうかは分からないのですが、これでいいのでしょうか？ ＞分かる方

＃window-system では広いような気がしたので、判定方法を変えました ＞かず

--- mew-highlight.el.ORG	Wed Nov 26 19:57:54 1997
+++ mew-highlight.el	Fri Nov 28 21:06:21 1997
@@ -77,7 +77,10 @@
 (defvar mew-highlight-header-color-from      "Purple")
 (defvar mew-highlight-header-color-to        "DarkOrange2")
 (defvar mew-highlight-header-color-key       "ForestGreen")
-(defvar mew-highlight-header-color-private   (face-foreground 'default))
+(defvar mew-highlight-header-color-private
+  (if (fboundp 'frame-face-alist)
+      (face-foreground 'default)
+    nil))
 (defvar mew-highlight-header-color-important "Blue")
 (defvar mew-highlight-header-color-marginal  "gray50")
 (defvar mew-highlight-header-color-xmew      "Red")

----
ＮＥＣ ネットワーキング技術研究所 ＆ 慶應義塾ＳＦＣ研究所
こがよういちろう <y-koga at example.com> 他