[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 メーリングリストの案内