[Mew-dist 15977] Re: b98

[Shun-ichi TAHARA ( 田原 俊一 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Message-Id: <20010118.204718.68546907.shirai at example.com>

> > # さっきまで mew-summary-hl と格闘。というか、version 変わってると思っ
> >   てなくてそのまま使ったら色出なくって..... window-system 判別後の呼び
> >   出しが全然違った.....

> ごめんなさい。ちょっとの間、mew-summary-hl は外しておいてくださ
> い。 (_ _)

手元ではとりあえず動いてます。> mew-summary-hl

で、手元の XEmacs-21.2 では、こうしないとダメでした。
# なぜか (frame-parameters) に background-color が入ってないんですよ…
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint: 16 9E 70 3B 05 86 5D 08 - B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

*** mew-summary-hl.el.orig	Wed Jan 17 16:59:21 2001
--- mew-summary-hl.el	Fri Jan 19 00:30:58 2001
***************
*** 375,382 ****
      ;; "T" mark の face
      (copy-face 'mew-summary-hl-face-special 'mew-summary-hl-face-truncate)
      (invert-face 'mew-summary-hl-face-truncate)
!     (set-face-foreground 'mew-summary-hl-face-truncate
! 			 (cdr (assoc 'background-color (frame-parameters))))))
  
  (defun mew-summary-hl-special-setup ()
    "特別な人の list を作成する。"
--- 375,382 ----
      ;; "T" mark の face
      (copy-face 'mew-summary-hl-face-special 'mew-summary-hl-face-truncate)
      (invert-face 'mew-summary-hl-face-truncate)
!     (let ((fg (cdr (assoc 'background-color (frame-parameters)))))
!       (and fg (set-face-foreground 'mew-summary-hl-face-truncate fg)))))
  
  (defun mew-summary-hl-special-setup ()
    "特別な人の list を作成する。"