[Mew-dist 2741] Re: mew-1.92 make error on BOW

[Chifumi Hayashi ( 林 千史 )]

林です。

On Sat, 25 Oct 1997 17:52:34 +0900,
Chifumi Hayashi (林　千史) <chifumi at example.com> wrote:

> BOW で mew-1.92 を make しようとしたところ、

> | mule2 -batch -l ./lp.el -f batch-byte-compile mew-attach.el
> | While compiling toplevel forms in file /tmp/mew-1.92/mew-attach.el:
> |   !! Wrong type argument ((internal-facep default))
> | Done

> となってしまいます。
> x-face 関係か color 関係あたりの機能強化の影響でしょうか？ いずれも 
> BOW 環境では使えない機能なので、それは組み込まないようにしてでも make 

ということで、対症療法ですが、添付のように、BOW ではどうせ使えない 
"face" 関係をはずしたら、なんとか make 出来て使えるようになりました。
--- 
 林　千史  chifumi at example.com
-------------- next part --------------
--- mew-env.el-dist	Sat Oct 25 23:35:14 1997
+++ mew-env.el	Sat Oct 25 23:35:22 1997
@@ -67,7 +67,7 @@
   (defun mew-mark () (mark t))
   )
  (mew-temacs-p
-  (require 'faces)
+;  (require 'faces)
   (fset 'mew-property-p (symbol-function 'overlayp))
   (fset 'mew-property-make (symbol-function 'make-overlay))
   (fset 'mew-property-move (symbol-function 'move-overlay))
-------------- next part --------------
--- mew-highlight.el-dist	Sat Oct 25 23:41:20 1997
+++ mew-highlight.el	Sat Oct 25 23:42:44 1997
@@ -77,7 +77,7 @@
 (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   "default"); (face-foreground 'default))
 (defvar mew-highlight-header-color-important "Blue")
 (defvar mew-highlight-header-color-marginal  "gray50")
 (defvar mew-highlight-header-color-xmew      "Red")
@@ -307,7 +307,7 @@
 	  (setq color (intern-soft
 		       (concat (mew-match 1 str) "color" (mew-match 2 str))))
 	  (copy-face (symbol-value style) fname)
-	  (set-face-foreground fname (symbol-value color))))))
+	  )))); (set-face-foreground fname (symbol-value color))))))
 
 (mew-highlight-face-setup mew-highlight-header-face-list)
 (mew-highlight-face-setup mew-highlight-mark-face-list)