[Mew-dist 1345] Re: Colorize of summary (Re: mew-1.87.tar.gz & im-48.tar.gz)

[Takeshi Chiba]

千葉と申します。

>>>>> <19970729115258W.yositomi at example.com> のメッセージにおいて
>>>>>	Yoshitomi Kentaro <yositomi at example.com> さんは書きました。

> > で、summary にちょっと色をつけたいなと思いました。
> > # cmail の影響 :-)

hilit19 では、リアルタイムで色が変わらないので、font-lcck を
使えばいいのではないでしょうか？
マークで色が変わるのは確かに便利そうなのでちょっとやってみま
した。
私が使っているのは、emacs-19.34 base の mule-2.3 なので、
19.28 なんかだと、このままは使えないと思いますが、以下の設定
でうまく行きました。

--------------- 8< ---------------
      (setq font-lock-support-mode 'fast-lock-mode
	    fast-lock-cache-directories '("~/.emacs-flc")
	    font-lock-maximum-decoration t
	    font-lock-face-attributes
	    '((font-lock-comment-face       "Yellow")
	      (font-lock-string-face        "Green")
	      (font-lock-keyword-face       "Pink" nil t nil nil)
	      (font-lock-function-name-face "Cyan" nil nil nil t)
	      (font-lock-variable-name-face "Wheat" nil t nil nil)
	      (font-lock-type-face          "Cyan" nil t nil nil)
	      (font-lock-reference-face     "Turquoise" nil nil nil t)
	      (font-lock-blue               "Cyan" nil nil nil nil)
	      (font-lock-red                "Red" nil nil nil nil)
	      (font-lock-default     	    "white" nil nil nil nil)))
      (global-font-lock-mode t)
      (setq mew-summary-font-lock-keywords
			   (list
			    '("^[ \t]+[0-9]+\\* .*" . font-lock-red)
			    '("^[ \t]+[0-9]+@ .*"  . font-lock-blue)
			    '("^[ \t]+[0-9]+D .*"  . font-lock-keyword-face)
			    '("^[ \t]+[0-9]+o .*"  . font-lock-comment-face)
			    '("^[ \t]+[0-9]+  .*"  . font-lock-default)))
      (add-hook 'mew-summary-mode-hook
		'(lambda ()
		   (make-local-variable 'font-lock-defaults)
		   (setq font-lock-defaults '(mew-summary-font-lock-keywords t))
		   (turn-on-font-lock)))
      (setq mew-font-lock-keywords
			   (list
			    '("^\\(From\\|Sender\\):"
			      . font-lock-keyword-face)
			    '("^Subject:.*"
			      . font-lock-type-face)
			    '("^\\(To\\|Apparently-To\\|Cc\\):"
			      . font-lock-comment-face)
			    '("^\\(#\\|＃\\).*"
			      . font-lock-variable-name-face)
			    '("\\(^[^ \t\n　]*[|>]\\) .*"
			      . font-lock-comment-face)))
      (add-hook 'mew-message-mode-hook
		'(lambda ()
		   (make-local-variable 'font-lock-defaults)
		   (setq font-lock-defaults '(mew-font-lock-keywords t))
		   (turn-on-font-lock)))
      (add-hook 'mew-draft-mode-hook
		'(lambda ()
		   (make-local-variable 'font-lock-defaults)
		   (setq font-lock-defaults '(mew-font-lock-keywords t))
		   (turn-on-font-lock)))
--------------- 8< ---------------

-- 
千葉  猛 ／ ＮＥＣ
(office:chiba at example.com, home:chi at example.com)