[Mew-Win32 02370] Re: mew-summary-hlでこんなこと...

[Hideyuki SHIRAI ( 白井秀行 )]

From: Shuichi KITAGUCHI (北口修一) <kit at example.com> さん曰く
Subject: [Mew-Win32 02358] Re: mew-summary-hlでこんなこと...
Message-ID: <20000119003642K.kit at example.com>
Date: Wed, 19 Jan 2000 00:36:42 +0900 (JST)

北口> P.P.S.
北口> 既に元の目的を見失って、如何に派手にするかを考えている自分に気付いた...

From: Shuichi KITAGUCHI (北口修一) <kit at example.com> さん曰く
Subject: [Mew-Win32 02356] Re: mew-summary-hlでこんなこと...
Message-ID: <20000117210856M.kit at example.com>
Date: Mon, 17 Jan 2000 21:08:56 +0900 (JST)

北口> 元々が派手なので、色の選択が難しいですねぇ(^^;
北口> 
北口> # "*" の行が青色なので navy だと目立たないし、red にしてもいまいち。

というあなたに、mark 行を白抜きの文字にしてみました。~/.emacs に
以下のものを書いてみて下さい。

;; 派手さ爆発だけど、実用的であるような気も(ほんの)少しだけはする。

(defadvice mew-highlight-make-keywords-regex (after invert-make-face activate)
  (if (and (or mew-use-highlight-mark
	       (featurep 'mew-summary-hl))
	   window-system)
      (let ((fg (cdr (assoc 'background-color (frame-parameters)))))
	(mapcar (function
		 (lambda (face)
		   (invert-face face)
		   (set-face-foreground face fg)))
		mew-highlight-mark-face-list))))

# reverse video(?) で立ち上げたときにどうなるのかは全然わかりま
# せん。^^;

-- 
白井秀行 (mailto:shirai at example.com)