[mhc:00182] Re: font-lock for MHC

[クリス <kurisu@xxxxxxxxxxxxxxxxxxxxxxxxx>]

From: Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx>
> うーん。そろそろ 20 なのかな。

20 なのです。

> Subject: [mhc:00176] Re: font-lock for MHC の、
> 
> (add-hook 'mew-summary-scan-sentinel-hook
> 	  'font-lock-fontify-buffer)
> 
> となっている部分を、
>
> (add-hook 'mew-summary-scan-sentinel-hook
>  	  'mhc-font-lock-fontify-buffer)
>
> (defun mhc-font-lock-fontify-buffer ()
>  (and (mhc-summary-buffer-p) (font-lock-fontify-buffer)))
>
> とするとうまくいったりしませんか。

うまくいったりしているみたいです。

というわけで、改良版。
----------------------------------------------------------------------
(add-hook 'mew-summary-scan-sentinel-hook
	  (lambda ()
	    (and (mhc-summary-buffer-p) (font-lock-fontify-buffer))
	    ))

(make-face 'mhc-summary-sunday-face)
(make-face 'mhc-summary-saturday-face)
(set-face-foreground 'mhc-summary-sunday-face "red")
(set-face-foreground 'mhc-summary-saturday-face "blue")

(setq mhc-summary-font-lock-keywords
      '(("^.* (Sun) .*$" . 'mhc-summary-sunday-face)
	("^.*  Sat  .*$" . 'mhc-summary-saturday-face))
      )

(add-hook 'mhc-summary-mode-hook
	  (function
	   (lambda ()
	     (make-local-variable 'font-lock-defaults)
	     (setq font-lock-defaults '(mhc-summary-font-lock-keywords t))
	     )))
----------------------------------------------------------------------

# さて、旅に出るか…。
---------------------------------------------------------------
  九州大学大学院システム情報科学研究科情報工学専攻  栗栖 直士
  E-mail kurisu@xxxxxxxxxxxxxxxxxxxxxxxxx
---------------------------------------------------------------