From: yoichi <yoichi>
Date: Thu, 29 Apr 2004 13:34:55 +0000 (+0000)
Subject: (wl-thread-insert-message): arranged localization of variable
X-Git-Tag: wl-2_11_27~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8bcc6346ca58694765dcdda68b9c61b9602a5675;p=elisp%2Fwanderlust.git

(wl-thread-insert-message): arranged localization of variable
---

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 3d2511f..9c82126 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -639,20 +639,20 @@ ENTITY is returned."
 When optional argument UPDATE is non-nil,
 Message is inserted to the summary buffer."
   (let ((parent (wl-thread-get-entity parent-msg))
-	(depth 0) cur
 	child-entity invisible-top)
 ;;; Update the thread view...not implemented yet.
 ;;;  (when force-insert
 ;;;    (if parent
 ;;;	  (wl-thread-entity-force-open parent))
     (when (and wl-summary-max-thread-depth parent)
-      (setq cur parent)
-      (while cur
-	(incf depth)
-	(setq cur (wl-thread-entity-get-parent-entity cur)))
-      (when (> depth wl-summary-max-thread-depth)
-	(setq parent nil
-	      parent-msg nil)))
+      (let ((cur parent)
+	    (depth 0))
+	(while cur
+	  (incf depth)
+	  (setq cur (wl-thread-entity-get-parent-entity cur)))
+	(when (> depth wl-summary-max-thread-depth)
+	  (setq parent nil
+		parent-msg nil))))
     (if parent
 	;; insert as children.
 	(wl-thread-entity-insert-as-children