[Mew-dist 15689] Re: mew-summary-mode-line patch

[NINOMIYA Hideyuki]

が〜ん ... 駄目でした ... ^^ゞ
# 最後のスレッドを数えて無いじゃん

出直しです。

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/29 03:14:51
*************** (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) (beg (point)) end)
!       (if (and (mew-thread-p) mew-use-thread-separator)
! 	  (let ((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))))))
!       (setq left (1- (+ left (mew-count-lines beg (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)