From: yoichi <yoichi>
Date: Thu, 17 Mar 2005 17:34:14 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-update-line-on-buffer-sub): Avoid
X-Git-Tag: wl-2_15_3~114
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7ef8671f43bdb50225926f92bbac98711f008b31;p=elisp%2Fwanderlust.git

* wl-thread.el (wl-thread-update-line-on-buffer-sub): Avoid
duplicate call of `wl-summary-print-argument' on the wrong line.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7084b7a..7bdd60b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-17  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-thread.el (wl-thread-update-line-on-buffer-sub): Avoid
+	duplicate call of `wl-summary-print-argument' on the wrong line.
+
 2005-03-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-jump-to-msg): Don't interactive input
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 655407a..0d48474 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -367,15 +367,14 @@ ENTITY is returned."
 	 (parent-msg (or parent-msg (wl-thread-entity-get-parent entity)))
 	 (buffer-read-only nil)
 	 (inhibit-read-only t)
-	 message-entity temp-mark summary-line invisible-top dest-pair)
+	 message-entity temp-mark summary-line invisible-top)
     (if (wl-thread-delete-line-from-buffer msg)
 	(progn
 	  (cond
 	   ((memq msg wl-summary-buffer-target-mark-list)
 	    (setq temp-mark "*"))
 	   ((setq temp-mark (wl-summary-registered-temp-mark msg))
-	    (setq dest-pair (cons (nth 0 temp-mark)(nth 2 temp-mark))
-		  temp-mark (nth 1 temp-mark)))
+	    (setq temp-mark (nth 1 temp-mark)))
 	   (t (setq temp-mark (wl-summary-get-score-mark msg))))
 	  (when (setq message-entity
 		      (elmo-message-entity wl-summary-buffer-elmo-folder
@@ -394,10 +393,7 @@ ENTITY is returned."
 		  nil
 		(wl-thread-maybe-get-children-num msg))
 	      (wl-thread-make-indent-string entity)
-	      (wl-thread-entity-get-linked entity)))
-	    (if dest-pair
-		(wl-summary-print-argument (car dest-pair)
-					   (cdr dest-pair)))))
+	      (wl-thread-entity-get-linked entity)))))
       ;; insert thread (moving thread)
       (if (not (setq invisible-top
 		     (wl-thread-entity-parent-invisible-p entity)))