From: yoichi <yoichi>
Date: Sat, 2 Dec 2006 17:50:37 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-insert-message, wl-thread-insert-entity-sub,
X-Git-Tag: wl-2_15_6-fixes~104
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8d25169967ab8fef4e06c6674be1021311db0820;p=elisp%2Fwanderlust.git

* wl-thread.el (wl-thread-insert-message, wl-thread-insert-entity-sub,
wl-thread-insert-entity, wl-thread-close, wl-thread-open):
Use wl-thread-entity-get-*.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7d5769d..5c92e21 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -2,6 +2,9 @@
 
 	* wl-thread.el (wl-thread-entity-insert-as-children): Use
 	wl-thread-entity-set-children.
+	(wl-thread-insert-message, wl-thread-insert-entity-sub,
+	wl-thread-insert-entity, wl-thread-close, wl-thread-open):
+	Use wl-thread-entity-get-*.
 
 2006-11-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index de8b8c7..5ac6e9d 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -612,8 +612,9 @@ Message is inserted to the summary buffer."
 	;; insert as children.
 	(wl-thread-entity-insert-as-children
 	 parent
-	 (setq child-entity (wl-thread-create-entity
-			     msg (nth 0 parent) nil linked)))
+	 (setq child-entity
+	       (wl-thread-create-entity
+		msg (wl-thread-entity-get-number parent) nil linked)))
       ;; insert as top message.
       (wl-thread-entity-insert-as-top
        (wl-thread-create-entity msg nil)))
@@ -785,14 +786,14 @@ Message is inserted to the summary buffer."
 	(setq temp-mark (wl-summary-get-score-mark msg-num)))
       (setq message-entity
 	    (elmo-message-entity wl-summary-buffer-elmo-folder
-				 (nth 0 entity)))
+				 msg-num))
 ;;;   (wl-delete-all-overlays)
       (when message-entity
 	(wl-summary-insert-line
 	 (wl-summary-create-line
 	  message-entity
 	  (elmo-message-entity wl-summary-buffer-elmo-folder
-			       (nth 0 parent-entity))
+			       (wl-thread-entity-get-number parent-entity))
 	  temp-mark
 	  (elmo-message-status wl-summary-buffer-elmo-folder msg-num)
 	  (if wl-thread-insert-force-opened
@@ -808,7 +809,7 @@ Message is inserted to the summary buffer."
     (while msgs
       (wl-thread-insert-entity-sub indent entity parent-entity all)
       (setq msgs (cdr msgs))
-      (setq children (nth 2 entity))
+      (setq children (wl-thread-entity-get-children entity))
       (if children
 	  ;; insert children
 	  (when (or wl-thread-insert-force-opened
@@ -953,7 +954,7 @@ Message is inserted to the summary buffer."
     (wl-thread-insert-entity (- depth 1)
 			     entity
 			     (wl-thread-get-entity
-			      (nth 3 entity))
+			      (wl-thread-entity-get-parent entity))
 			     nil)
     (delete-char 1) ; delete '\n'
     (wl-thread-print-argument-region beg (point))))
@@ -979,7 +980,8 @@ Message is inserted to the summary buffer."
     (wl-thread-insert-entity depth ;(- depth 1)
 			     entity
 			     (wl-thread-get-entity
-			      (nth 3 entity)) nil)
+			      (wl-thread-entity-get-parent entity))
+			     nil)
     (delete-char 1) ; delete '\n'
     (wl-thread-print-argument-region beg (point))))