Meadow2 での x-face 表示？

[Tetsuo Tsuchida <iascii@xxxxxxxxx>]

みなさん、はじめまして。土田と申します。

ようやく Meadow2 をインストールして、画面表示とか新しい環境に満足して
います。ところが、1点だけ標記の x-face について問題があります。いささ
か、FAQ かも知れませんが、ご教示いただけると嬉しいです。

Meadow1.15 では bdf フォントを使っており bitmap で表示可能だったのです
が、.emacs での設定の容易さと bitmap を使わなくとも表示可能だというこ
とですがうまく設定できません。

ちなみに私の .emacs の関連するところは、次のとおりです。

----ここから
(w32-add-font
 "tt-font"
 '((strict-spec
    ((:char-spec ascii :height any)
     (w32-logfont "Courier New" 8 16 400 0 nil nil nil 0 1 3 49))
    ((:char-spec ascii :height any :weight bold)
     (w32-logfont "Courier New" 9 16 700 0 nil nil nil 0 1 3 49))
    ((:char-spec ascii :height any :slant italic)
     (w32-logfont "Courier New" 9 16 400 0   t nil nil 0 1 3 49))
    ((:char-spec ascii :height any :weight bold :slant italic)
     (w32-logfont "Courier New" 9 16 700 0   t nil nil 0 1 3 49))
    ((:char-spec japanese-jisx0208 :height any)
     (w32-logfont "ＭＳ ゴシック" 0 16 400 0 nil nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold)
     (w32-logfont "ＭＳ ゴシック" 0 16 700 0 nil nil nil 128 1 3 49)
     ((spacing . -1)))
    ((:char-spec japanese-jisx0208 :height any :slant italic)
     (w32-logfont "ＭＳ ゴシック" 0 16 400 0   t nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
     (w32-logfont "ＭＳ ゴシック" 0 16 700 0   t nil nil 128 1 3 49)
     ((spacing . -1))))))

(set-face-attribute 'variable-pitch nil :font "tt-font")

;; 初期フレームの設定
(setq default-frame-alist
      (append (list '(foreground-color . "WhiteSmoke")
		    '(background-color . "black")
		    '(background-color . "gray")
		    '(border-color . "black")
		    '(mouse-color . "white")
		    '(cursor-color . "black")
;;		    '(ime-font . "Nihongo-1") ; TrueType のみ
;;		    '(font . "bdf-fontset")    ; BDF
;;		    '(font . "private-fontset"); TrueType
		    '(font . "tt-font"); TrueType
		    '(width . 120)
		    '(height . 48)
		    '(top . 0)
		    '(left . 30))
	      default-frame-alist))

(set-face-foreground 'modeline "WhiteSmoke")
(set-face-background 'modeline "MidnightBlue")

----ここまで

また、.wl での関連箇所は次のとおりになります。

----ここから
(require 'x-face-mule) 
(if window-system
    (progn
      (autoload 'x-face-decode-message-header "x-face-mule")
      (setq wl-highlight-x-face-function 'x-face-decode-message-header)))

(require 'cus-face)
(custom-set-faces
 '(x-face-mule-highlight-x-face-face
   ((t (:foreground "black" :background "alice blue")))))

----ここまで

よろしく、お願いします。

-- 
  ^^  /oooooo
^^ /\/  \   Tetsuo Tsuchida <iascii@xxxxxxxxx>  
  / /    \  http://plaza24.mbn.or.jp/~iascii/