[Mew-dist 15361] thread separator again (unofficially patch)

[NINOMIYA Hideyuki]

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

fancy + sparator を可能にしてみました。
# 満足々...
'C-cC-n', 'C-cC-p' もまともに動きます。
',' のメッセージちょっと追加

あとは、メッセージ数表示が解決すれば、マージできるんでしょうけどっ...
自分にはアイデア無しです。。m(__)m

b87 ヘのパッチです。

Index: mew-summary.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-summary.el,v
retrieving revision 1.1.1.11
diff -c -F(def -r1.1.1.11 mew-summary.el
*** mew-summary.el	2000/12/08 14:06:40	1.1.1.11
--- mew-summary.el	2000/12/09 01:12:32
*************** (defmacro mew-summary-msg (&rest body)
*** 36,42 ****
    (` (cond
        ((eobp) (message "No message"))
        ((not (mew-summary-message-number))
!        (message "Please use this command on a message, not a part"))
        (t
         (,@ body)))))
  
--- 36,44 ----
    (` (cond
        ((eobp) (message "No message"))
        ((not (mew-summary-message-number))
!        (let ((msg ""))
! 	 (if mew-use-thread-separator (setq msg " or thread separator"))
! 	 (message "Please use this command on a message, not a part%s" msg)))
        (t
         (,@ body)))))
  
Index: mew-thread.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-thread.el,v
retrieving revision 1.1.1.8
diff -c -F(def -r1.1.1.8 mew-thread.el
*** mew-thread.el	2000/12/08 14:06:42	1.1.1.8
--- mew-thread.el	2000/12/09 01:36:29
*************** (defvar mew-use-complete-thread t
*** 50,55 ****
--- 50,58 ----
  (defvar mew-thread-indent-string "  "
    "*A string to be inserted for indentation of thread.")
  
+ (defvar mew-use-thread-separator nil)
+ (defvar mew-thread-separator "")
+ 
  (defvar mew-thread-indent-array nil)
  (defvar mew-thread-indent-array-size 33) ;; devide by 32
  
*************** (defun mew-summary-thread-print-loop (to
*** 361,366 ****
--- 364,374 ----
  (defun mew-summary-thread-print (me level folder column)
    (let (cld)
      (mew-elet
+      (if mew-use-thread-separator
+ 	 (if (and
+ 	      (= 0 level)
+ 	      (not (= 1 (line-beginning-position))))
+ 	     (insert (concat  mew-thread-separator "\n"))))
       (insert (mew-thread-get-line me))
       (forward-line -1)
       (move-to-column column)
*************** (defun mew-summary-fancy-thread-print-to
*** 391,396 ****
--- 399,406 ----
      (let* ((me (car top))
  	   (cld (mew-thread-get-child me)))
        (mew-elet
+        (if mew-use-thread-separator
+ 	   (insert (concat mew-thread-separator "\n")))
         (insert (mew-thread-get-line me))
         (forward-line -1)
         (move-to-column column)
*************** (defun mew-summary-thread-up ()
*** 474,479 ****
--- 484,490 ----
  	  here)
       (save-excursion
         (forward-line -1)
+        (if (not (mew-summary-message-number)) (forward-line -1))
         (catch 'loop
  	 (while (not (bobp))
  	   (move-to-column column)
*************** (defun mew-summary-thread-up ()
*** 484,489 ****
--- 495,501 ----
  	 (progn
  	   (goto-char here)
  	   (beginning-of-line)
+ 	   (if (not (mew-summary-message-number)) (forward-line -1))
  	   (mew-summary-display nil))
         (message "No more thread")))))
  
*************** (defun mew-summary-thread-down ()
*** 506,511 ****
--- 518,524 ----
  	 (progn
  	   (goto-char here)
  	   (beginning-of-line)
+ 	   (if (not (mew-summary-message-number)) (forward-line))
  	   (mew-summary-display nil))
         (message "No more thread")))))
  
---
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