[Mew-dist 16318] Re: highlight

Hideyuki SHIRAI ( 白井秀行 ) shirai at example.com
2001年 2月 14日 (水) 18:53:50 JST


From: Kazu Yamamoto <kazu at example.com> さん曰く
Subject: [Mew-dist 16310] highlight
Message-ID: <20010214.095343.46632520.kazu at example.com>
Date: Wed, 14 Feb 2001 09:55:55 +0900

Kazu> 昨日ふと、すべてのフォルダは invisible と同様に、scroll のフックと 
Kazu> idle timer で色を付ければよいということに気付きました。現在、めでたく
Kazu> すべてのフォルダでマークに色が付いています。また、鯉江さんご所望の、メッ
Kazu> セージモードの制限もなくなりました。これも同じ仕組みで実現しています。

ということは、ほとんど lazy-lock と変わらないものになるというこ
とですよね。mew-summary-hl や mew-cite-color もそちらに乗り換え
てしまおうと思うので、ユーザ定義の関数があったら、そっちを呼ぶよ
うにして貰えるとうれしいです。

例えば、


(defun mew-summary-make-window-highlight (&optional WIN BEG)
  (let* ((win (or WIN (selected-window)))
	 (beg (or BEG (window-start win)))
	 (end (window-end win t))
	 (buf (window-buffer win)))
    (save-excursion
      (set-buffer buf)
      (if mew-summary-highlight-function
	  (funcall mew-summary-highlight-function beg end)
	(mew-summary-highlight-region beg end)))))

こんな感じで。

-- 
白井秀行 (mailto:shirai at example.com)



Mew-dist メーリングリストの案内