[Mew-dist 16863] Re: contrib/mew-summary-hl.el patch

[Hideyuki SHIRAI ( 白井秀行 )]

From: Sawada Toyonobu <non at example.com> さん曰く
Subject: [Mew-dist 16862] Re: contrib/mew-summary-hl.el patch
Message-ID: <20010316.153709.23227468.non at example.com>
Date: Fri, 16 Mar 2001 15:34:51 +0900

みんな言わなかっただけなのね ^^;;;

の>    On Fri, 16 Mar 2001 15:12:54 +0900
の>    in message <<[Mew-dist 16861] Re: contrib/mew-summary-hl.el patch>>
の>    tandou.yasuhiko at example.com said...
の> > 
の> > thread表示において、threadまとめてrefile markをつけた際(mt,moした場合)、
の> > 色が付かないので、直るのかなと思ったけど、ダメでした....。この現象は

の> うちでは直りました。

僕も直りました。:-)

# っていうか、丹藤さんの症状を直すパッチですから。

丹藤さんは lazy-lock を使っていないようですね。
summary 上の適当な場所で M-x list-text-properties-at とすると

Text properties at 22917:

lazy-lock            t
face                 mew-summary-hl-face-num
mouse-face           highlight
front-sticky         nil

こんな buffer が出てくると思うのですが、lazy-lock ってありますか？
おそらく、fontified t だと思います。

Emacs-21 は無設定で jit-lock.el が呼ばれるようなので、その対
応をしました。さっきのパッチのあとにあててください。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-summary-hl.el
===================================================================
RCS file: /cvsroot/shirai/mew/shirai/mew-summary-hl.el,v
retrieving revision 1.60
diff -u -r1.60 mew-summary-hl.el
--- mew-summary-hl.el	2001/03/16 02:49:35	1.60
+++ mew-summary-hl.el	2001/03/16 06:52:42
@@ -187,10 +187,11 @@
 	ret)))
 
 (defun mew-summary-hl-mark-line (mark)
-  "Mark の highlight は mew-summary-hl でやるので、lazy-lock がきちんと動くように
+  "Mark の highlight は mew-summary-hl でやるので、font-lock がきちんと動くように
 property を消す関数"
-  (remove-text-properties (point) (1+ (point))
-			  '(lazy-lock nil lazy-lock-fontified nil)))
+  (remove-text-properties
+   (point) (1+ (point))
+   '(lazy-lock nil lazy-lock-fontified nil fontified nil)))
 
 (defalias 'mew-summary-cook-region 'mew-summary-hl-make-invisible-region)
 (defalias 'mew-highlight-mark-line 'mew-summary-hl-mark-line)