[Mew-dist 16698] Re: highlight-mouse-line

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

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Message-Id: <20010301.165333.130327375.shirai at example.com>

> > いろいろいじっているうちに、highlight-mouse-line 周りでいくつか気が付
> > いたことがありますので報告します。

> mew-summary-hl だけ変更しておきます。
> (少々、力づくのような気がするけど)

治りました :-)。

> Subject: [Mew-dist 16694] Re: Thread make slow (on XEmacs)
> From: Shun-ichi TAHARA (田原 俊一) <jado at example.com>
> Message-Id: <20010301.140908.730565152.jado at example.com>
> 
> のパッチを含みます。これって、私のバグですね。ありがとうございま
> す。

そうそう、

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

> これとの絡みで、thread-regex も カッコにマッチした部分だけを塗るように
> して、
> 
> (setq mew-summary-hl-thread-regex "\\([┣┗┃　]+\\)\\[")
> 
> としています。

これのパッチを含めていなかったです。一応付けておきます。
--
田原 / jado at example.com
-------------- next part --------------
*** mew-summary-hl.el.orig	Thu Mar  1 17:06:08 2001
--- mew-summary-hl.el	Thu Mar  1 17:08:09 2001
***************
*** 60,66 ****
  (defvar mew-summary-hl-from-width 24
    "*Mail address 表示部分の幅を指定します。")
  
! (defvar	mew-summary-hl-thread-regex "[+|┣┗┃　 ]+"
    "*mew-thread-indent-string や mew-fancy-thread-indent-strings
  に設定した string を列挙します。space も *必ず* 入れてください。")
  
--- 60,66 ----
  (defvar mew-summary-hl-from-width 24
    "*Mail address 表示部分の幅を指定します。")
  
! (defvar	mew-summary-hl-thread-regex "\\([+|┣┗┃　 ]+\\)"
    "*mew-thread-indent-string や mew-fancy-thread-indent-strings
  に設定した string を列挙します。space も *必ず* 入れてください。")
  
***************
*** 85,91 ****
  ;; (setq mew-summary-hl-start-regex "^ *\\([1-9][0-9]* [^T][0-9/]+\\) *")
  ;; (setq mew-summary-hl-truncate-regex "^ *\\([1-9][0-9]* \\(T\\)[0-9/]+\\) *")
  ;; (setq mew-summary-hl-from-width 14)
! ;; (setq mew-summary-hl-thread-regex "[+| ]+")
  ;; (setq mew-summary-hl-subject-regex-with-body nil)
  
  (defvar mew-summary-hl-special-persons nil
--- 85,91 ----
  ;; (setq mew-summary-hl-start-regex "^ *\\([1-9][0-9]* [^T][0-9/]+\\) *")
  ;; (setq mew-summary-hl-truncate-regex "^ *\\([1-9][0-9]* \\(T\\)[0-9/]+\\) *")
  ;; (setq mew-summary-hl-from-width 14)
! ;; (setq mew-summary-hl-thread-regex "\\([+| ]+\\)")
  ;; (setq mew-summary-hl-subject-regex-with-body nil)
  
  (defvar mew-summary-hl-special-persons nil
***************
*** 249,255 ****
    '(when (and mew-summary-hl-thread-column
  	      (<= (current-column) mew-summary-hl-thread-column)
  	      (looking-at mew-summary-hl-thread-regex))
!      (put-text-property (match-beginning 0) (match-end 0)
  			'face 'mew-summary-hl-face-thread)
       (goto-char (match-end 0))))
  
--- 249,255 ----
    '(when (and mew-summary-hl-thread-column
  	      (<= (current-column) mew-summary-hl-thread-column)
  	      (looking-at mew-summary-hl-thread-regex))
!      (put-text-property (match-beginning 1) (match-end 1)
  			'face 'mew-summary-hl-face-thread)
       (goto-char (match-end 0))))