[Mew-dist 15685] Re: mew-summary-mode-line patch (was Re: b92)

[NINOMIYA Hideyuki]

おはようございます	二宮@お四国 です

山本 和彦 様 は Wed, 27 Dec 2000 20:35:22 +0900 頃に
    Subject: [Mew-dist 15657] Re: b92
    Message-Id: <20001227.203511.28787619.kazu at example.com>
        に於いて以下のようにおっしゃっていました。
※都合により手を加えさせていただく事が有ります。御了承下さいマセヽ...
かず> 理論的には、あるリージョンを 1 回なめるだけで済む仕事に対し、
かず> 2 回なめる実装になっているので、採用していません。1 回で済む
かず> ようになれば、取り込みます。

これでどうでしょう ?
# 速度的にどうかなぁ ...

Index: mew-summary.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-summary.el,v
retrieving revision 1.1.1.15
diff -c -F(def -r1.1.1.15 mew-summary.el
*** mew-summary.el	2000/12/28 11:52:54	1.1.1.15
--- mew-summary.el	2000/12/28 23:34:44
*************** (defun mew-summary-mode-name ()
*** 540,546 ****
  (defun mew-summary-mode-line ()
    (if mew-summary-buffer-process
        ()
!     (let ((left (1- (mew-count-lines (point) (point-max)))))
        (if (and (mew-decode-syntax-p)
  	       (equal (mew-decode-syntax-buffer) (current-buffer)))
  	  (setq left (- left (mew-count-lines (mew-decode-syntax-begin)
--- 540,554 ----
  (defun mew-summary-mode-line ()
    (if mew-summary-buffer-process
        ()
!     (let ((left 0))
!       (if (and (mew-thread-p) mew-use-thread-separator)
! 	  (let ((beg (point)) end (spl (concat "\n" mew-thread-separator "\n")))
! 	    (save-excursion
! 		(while (search-forward spl nil t)
! 		  (save-excursion (forward-line -1) (setq end (point)))
! 		  (setq left (+ left (mew-count-lines beg end)))
! 		  (setq beg (point))))))
!       (if (= left 0) (setq left (1- (mew-count-lines (point) (point-max)))))
        (if (and (mew-decode-syntax-p)
  	       (equal (mew-decode-syntax-buffer) (current-buffer)))
  	  (setq left (- left (mew-count-lines (mew-decode-syntax-begin)