[Mew-dist 17883] Re: b126

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

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

> > 大変遅くなりましたが b126 を出します。
> 
> とりあえず、highlight-summary パッチをb126に当たるようにしました。

> threadの塗り問題はまた後日ということで。

こちらもやってみました。Meadowでのパフォーマンスはどんなもんでしょうか?
ちなみに、(もう1つ別の修正も入ってますが、基本的には) buffer-substring
を mew-buffer-substring に戻しただけです。

# 前に mew-buffer-substring でうまく塗られていなかったことがあったので
# すが、多分別のところにバグがあったせいだろうな…

[Mew-dist 17853]のパッチを当てた後で、添付のパッチを当ててください。

さて、XEmacs(21.4.3)だと、メッセージを何も表示していない状態で tt する
と、一見threadバッファを全部塗り終わるまで色が付かないように見えます。
が、カーソルを移動させると色が付くので、idle timerの問題か、あるいは表
示が追い付いていないだけなのかというところです。いろいろ試してみたので
すが、mew-summary-thread-region の最後の方で (mew-summary-cook-window)
しても効き目がなかったので、とりあえず諦めてこのまま出しておきます。

なお、[Mew-dist 17876]のインデント揃え機能はマージできてません (__)。
# 白井さんにお願いした方が早いような気がしないこともないですが。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint:  16 9E 70 3B 05 86 5D 08  B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
-------------- next part --------------
diff -rc mew-1.95b126-hs.orig/mew-thread.el mew-1.95b126-hs/mew-thread.el
*** mew-1.95b126-hs.orig/mew-thread.el	Thu Jun 21 16:50:02 2001
--- mew-1.95b126-hs/mew-thread.el	Mon Jun 25 02:46:54 2001
***************
*** 289,295 ****
  	       (forward-line)
  	       ;; Throw away properties here and give properties later.
  	       ;; This is faster than inheriting properties.
! 	       (setq line (buffer-substring start (point)))
  	       (setq me (mew-thread-make-entry))
  	       (mew-thread-set-msg  me msg)
  	       (mew-thread-set-line me line)
--- 289,295 ----
  	       (forward-line)
  	       ;; Throw away properties here and give properties later.
  	       ;; This is faster than inheriting properties.
! 	       (setq line (mew-buffer-substring start (point)))
  	       (setq me (mew-thread-make-entry))
  	       (mew-thread-set-msg  me msg)
  	       (mew-thread-set-line me line)
***************
*** 351,358 ****
  	 ;;
  	 (if mark (mew-mark-undo-mark mew-mark-review))
  	 (setq tm6 (current-time))
! 	 (when mew-gemacs-p
  	   (jit-lock-register 'mew-summary-cook-region))
  	 (set-buffer-modified-p nil)
  	 (if disp-msg
  	     (mew-summary-jump-message disp-msg)
--- 351,363 ----
  	 ;;
  	 (if mark (mew-mark-undo-mark mew-mark-review))
  	 (setq tm6 (current-time))
! 	 (cond
! 	  (mew-gemacs-p
  	   (jit-lock-register 'mew-summary-cook-region))
+ 	  (t
+ 	   (make-local-hook 'window-scroll-functions)
+ 	   (add-hook 'window-scroll-functions
+ 	     'mew-summary-cook-window nil 'local)))
  	 (set-buffer-modified-p nil)
  	 (if disp-msg
  	     (mew-summary-jump-message disp-msg)