[Mew-dist 15628] Re: b92

[NINOMIYA Hideyuki]

こんにちは	二宮@お四国 です

b92 に Merge いただいた thread separetor patch ですが、
final といって自分が出してたのの残りメッセージ数修正部分と
ちょっとしたコードの書き方と見栄えの変更です。
# 残りメッセージ数習性部分がもしスピード的に採用出来ないのであれば
# 致し方ありませんが...

Index: mew-summary.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-summary.el,v
retrieving revision 1.1.1.14
diff -c -F(def -r1.1.1.14 mew-summary.el
*** mew-summary.el	2000/12/23 07:35:45	1.1.1.14
--- mew-summary.el	2000/12/23 12:54:16
*************** (defun mew-summary-mode-line ()
*** 541,546 ****
--- 541,550 ----
    (if mew-summary-buffer-process
        ()
      (let ((left (1- (mew-count-lines (point) (point-max)))))
+       (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) (setq left (1- left))))))
        (if (and (mew-decode-syntax-p)
  	       (equal (mew-decode-syntax-buffer) (current-buffer)))
  	  (setq left (- left (mew-count-lines (mew-decode-syntax-begin)
Index: mew-thread.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-thread.el,v
retrieving revision 1.1.1.12
diff -c -F(def -r1.1.1.12 mew-thread.el
*** mew-thread.el	2000/12/23 07:35:48	1.1.1.12
--- mew-thread.el	2000/12/23 13:04:00
*************** (defvar mew-use-thread-separator nil)
*** 86,92 ****
  (defvar mew-thread-separator "--")
  
  (defsubst mew-thread-insert-separator ()
!   (if mew-use-thread-separator (insert mew-thread-separator "\n")))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 86,94 ----
  (defvar mew-thread-separator "--")
  
  (defsubst mew-thread-insert-separator ()
!   (if (and mew-use-thread-separator
! 	   (not (= (line-beginning-position) 1)))
!       (insert mew-thread-separator "\n")))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
*************** (defun mew-summary-thread-print (tree fo
*** 372,378 ****
        (let* ((me (car tree))
  	     (cld (mew-thread-get-child me)))
  	(mew-elet
! 	 (if (= 0 level) (mew-thread-insert-separator))
  	 (insert (mew-thread-get-line me))
  	 (forward-line -1)
  	 (move-to-column column)
--- 374,380 ----
        (let* ((me (car tree))
  	     (cld (mew-thread-get-child me)))
  	(mew-elet
! 	 (if (= level 0) (mew-thread-insert-separator))
  	 (insert (mew-thread-get-line me))
  	 (forward-line -1)
  	 (move-to-column column)
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html