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

[senda at example.com]

From: Yoshitomi Kentaro <yositomi at example.com>
Subject: [Mew-dist 1349] Re: Colorize of summary (Re: mew-1.87.tar.gz & im-48.tar.gz)
Date: Tue, 29 Jul 1997 15:40:47 +0900
Message-ID: <19970729154047L.yositomi at example.com>

yositomi> 
yositomi>  << [Mew-dist 1345] Re: Colorize of summary (Re: mew-1.87.tar.gz & im-48.tar.gz) >> について
yositomi>    chiba at example.com さんがいわはるには:
yositomi> > 
yositomi> > 千葉と申します。
yositomi> 
yositomi> 吉冨です。
yositomi> 
		.....
yositomi> font-lock 関係が 19.28 では貧弱なようですね。
yositomi> これを 19.28 用にするのはぼくには無理そうなので
yositomi> 慌てて 19.34-alpha01 を入れています。
yositomi> # となると他の site-lisp も入れないといけない... 大変だ。
yositomi> 

はじめまして。千田と申します。このMLに入って一週間ぐらいです。よろしくお
願いします。

千葉さんのコードを見てこれは良いと思い、うちのMule(19.31ベース)
用に変えて見ました。19.28でも同じようなものでしょう。

ーーーーーー
   1 M 7/29 yositomi at example.com [Mew-dist 1349] Re: Colorize of summary 
   1DM 7/29 yositomi at example.com [Mew-dist 1349] Re: Colorize of summary 
ーーーーーー
千葉さんのmew-summary-font-lock-keywordsのregexはスペースが余分なような
気がします。上のように M が入っていると認識できません。

mewのdistributionのdot.mew.emacsのhilitの設定の所をこれに入れ換えて使っ
てます。

では。

	(progn
	  ;;
	  ;; font lock for mew summary mode
	  ;;
	  (setq mew-summary-font-lock-keywords
		(list
		 '("^[ \t]+[0-9]+\\*.*" . font-lock-string-face)
		 '("^[ \t]+[0-9]+ at example.com*"  . font-lock-reference-face)
		 '("^[ \t]+[0-9]+D.*"  . font-lock-keyword-face)
		 '("^[ \t]+[0-9]+o.*"  . font-lock-comment-face)
		 '("^[ \t]+[0-9]+ .*"  . font-lock-type-face)))
	  (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-string-face)
		 '("^X-.*:.*$"
		   . font-lock-reference-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)))
	  )


+--------------------------------------------------------------------+
|   (株)リコー  SS事本 周辺機器開発部 開発５G           千田滋也     |
+--------------------------------------------------------------------+