X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=inline;f=wl%2Fwl-thread.el;h=bf84f1ba5d39c856bed0bb4b83b5b27f0fafc32e;hb=bc2119676091ece4bbacec3e0fa184c245674b41;hp=8c616ee86d2d302e677bd35fb9cf9971cd1e3811;hpb=e7d7ccfbe7f86092db9723847be8106807d6327e;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 8c616ee..bf84f1b 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -1,8 +1,10 @@
 ;;; wl-thread.el -- Thread display modules for Wanderlust.
 
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Masahiro MURATA  <muse@ba2.so-net.ne.jp>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;;	Masahiro MURATA  <muse@ba2.so-net.ne.jp>
 ;; Keywords: mail, net news
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
@@ -33,7 +35,7 @@
 (require 'wl-highlight)
 
 ;; buffer local variables.
-;(defvar wl-thread-top-entity '(nil t nil nil)) ; top entity
+;;(defvar wl-thread-top-entity '(nil t nil nil)) ; top entity
 (defvar wl-thread-tops nil)           ; top number list (number)
 (defvar wl-thread-entities nil)
 (defvar wl-thread-entity-list nil)    ; entity list
@@ -469,8 +471,8 @@ ENTITY is returned."
     ret-val))
     
 (defun wl-thread-jump-to-prev-unread (&optional hereto)
-  "If prev unread is a children of a closed message,
-the closed parent will be opened."
+  "If prev unread is a children of a closed message.
+The closed parent will be opened."
   (interactive "P")
   (let ((msg (wl-thread-get-prev-unread
 	      (wl-summary-message-number) hereto)))
@@ -534,8 +536,8 @@ the closed parent will be opened."
     ret-val))
 
 (defun wl-thread-jump-to-next-unread (&optional hereto)
-  "If next unread is a children of a closed message,
-the closed parent will be opened."
+  "If next unread is a children of a closed message.
+The closed parent will be opened."
   (interactive "P")
   (let ((msg (wl-thread-get-next-unread
 	      (wl-summary-message-number) hereto)))
@@ -735,12 +737,12 @@ the closed parent will be opened."
   (let ((i 0)
 	(updates msgs)
 	len)
-;;     (while msgs
-;;       (setq updates
-;; 	    (append updates
-;; 		    (wl-thread-get-children-msgs (car msgs))))
-;;       (setq msgs (cdr msgs)))
-;;     (setq updates (elmo-uniq-list updates))
+;;; (while msgs
+;;;   (setq updates
+;;;	    (append updates
+;;;		    (wl-thread-get-children-msgs (car msgs))))
+;;;   (setq msgs (cdr msgs)))
+;;; (setq updates (elmo-uniq-list updates))
     (setq len (length updates))
     (while updates
       (wl-thread-update-line-on-buffer-sub nil (car updates))
@@ -803,8 +805,8 @@ the closed parent will be opened."
 	(setq parent (wl-thread-entity-get-parent-entity entity))
 	(if parent
 	    (progn
-	      ;; has parent.
-	      ;;(setq brothers (wl-thread-entity-get-children parent))
+;;; has parent.
+;;;	      (setq brothers (wl-thread-entity-get-children parent))
 	      (setq older-brothers (wl-thread-entity-get-older-brothers
 				    entity parent))
 	      (setq younger-brothers (wl-thread-entity-get-younger-brothers
@@ -927,10 +929,10 @@ When optional argument UPDATE is non-nil,
 Message is inserted to the summary buffer."
   (let ((parent (wl-thread-get-entity parent-msg))
 	child-entity invisible-top)
-;; Update the thread view...not implemented yet.
-;    (when force-insert
-;      (if parent
-;	  (wl-thread-entity-force-open parent))
+;;; Update the thread view...not implemented yet.
+;;;  (when force-insert
+;;;    (if parent
+;;;	  (wl-thread-entity-force-open parent))
     (if parent
 	;; insert as children.
 	(wl-thread-entity-insert-as-children
@@ -955,11 +957,11 @@ Message is inserted to the summary buffer."
 		;; use thread structure.
 		(wl-thread-entity-get-nearly-older-brother
 		 child-entity parent))) ; return value
-;; 		(wl-thread-entity-get-number
-;; 		 (wl-thread-entity-get-top-entity parent)))) ; return value;
-;; 	      (setq beg (point))
-;; 	      (wl-thread-goto-bottom-of-sub-thread)
-;; 	      (wl-thread-update-indent-string-region beg (point)))
+;;; 		(wl-thread-entity-get-number
+;;; 		 (wl-thread-entity-get-top-entity parent)))) ; return value;
+;;; 	      (setq beg (point))
+;;; 	      (wl-thread-goto-bottom-of-sub-thread)
+;;; 	      (wl-thread-update-indent-string-region beg (point)))
 	  ;; currently invisible.. update closed line.
 	  (wl-thread-update-children-number invisible-top)
 	  nil))))
@@ -1177,7 +1179,7 @@ Message is inserted to the summary buffer."
       (setq overview-entity
 	    (elmo-msgdb-overview-get-entity
 	     (nth 0 entity) wl-summary-buffer-msgdb))
-      ;;(wl-delete-all-overlays)
+;;;   (wl-delete-all-overlays)
       (when overview-entity
 	(setq summary-line
 	      (wl-summary-overview-create-summary-line
@@ -1232,15 +1234,15 @@ Message is inserted to the summary buffer."
 	    (throw 'done t)))
       nil)))
 
-; (defun wl-thread-goto-bottom-of-sub-thread ()
-;   (interactive)
-;   (let ((depth (wl-thread-get-depth-of-current-line)))
-;     (forward-line 1)
-;     (while (and (not (eobp))
-; 		(> (wl-thread-get-depth-of-current-line)
-; 		   depth))
-;       (forward-line 1))
-;     (beginning-of-line)))
+;; (defun wl-thread-goto-bottom-of-sub-thread ()
+;;   (interactive)
+;;   (let ((depth (wl-thread-get-depth-of-current-line)))
+;;     (forward-line 1)
+;;     (while (and (not (eobp))
+;; 		(> (wl-thread-get-depth-of-current-line)
+;; 		   depth))
+;;       (forward-line 1))
+;;     (beginning-of-line)))
 
 (defun wl-thread-goto-bottom-of-sub-thread (&optional msg)
   (interactive)
@@ -1369,8 +1371,8 @@ Message is inserted to the summary buffer."
 (defun wl-thread-open-close (&optional force-open)
   (interactive "P")
   (when (eq wl-summary-buffer-view 'thread)
-    ;(if (equal wl-thread-top-entity '(nil t nil nil))
-    ;(error "There's no thread structure."))
+;;; (if (equal wl-thread-top-entity '(nil t nil nil))
+;;;	(error "There's no thread structure"))
     (save-excursion
       (let ((inhibit-read-only t)
 	    (buffer-read-only nil)