[Mew-dist 16694] Re: Thread make slow (on XEmacs)

[Shun-ichi TAHARA ( 田原 俊一 )]

From: Shun-ichi TAHARA (田原 俊一) <jado at example.com>
Message-Id: <20010301.112435.424257458.z1980163 at example.com>

> > > > と思ったら、mew-summary-hlを入れ換えてから、
> > > > mew-use-highlight-mouse-line
> > > > が効かなくなったような気がします。他の方はどうですか?
> 
> > はい、当然ですね。だって、完全に忘れていたんだもん ^^;;;
> 
> 治りました。

手元では、

(setq mew-summary-hl-subject-regex
      "\]? *\\([^\n\r]*[^ \n\r]\\) *\\(\r[^\n\r]*\\)?$")

として、実際にSubjectの文字があるところだけを塗っている(こうすると
Subjectより後ろの部分のアンダーラインが黒くなるのですね)ので、以下のよ
うにしてくれたほうがありがたいです。

ちなみに、先頭に \]? があるのは、From: を [ ] で囲っているためです。
これとの絡みで、thread-regex も カッコにマッチした部分だけを塗るように
して、

(setq mew-summary-hl-thread-regex "\\([┣┗┃　]+\\)\\[")

としています。
--
田原 / jado at example.com

*** mew-summary-hl.el.orig	Thu Mar  1 11:15:45 2001
--- mew-summary-hl.el	Thu Mar  1 13:51:39 2001
***************
*** 354,360 ****
  		 (progn
  		   (put-text-property (match-beginning 1) (match-end 1)
  				      'face 'mew-summary-hl-face-subject)
! 		   (setq lineend (match-end 1)))
  	       (setq lineend (point))))
  	   (when mew-use-highlight-mouse-line
  	     (put-text-property linebeg lineend
--- 354,360 ----
  		 (progn
  		   (put-text-property (match-beginning 1) (match-end 1)
  				      'face 'mew-summary-hl-face-subject)
! 		   (setq lineend (match-end 0)))
  	       (setq lineend (point))))
  	   (when mew-use-highlight-mouse-line
  	     (put-text-property linebeg lineend