From 8bcc6346ca58694765dcdda68b9c61b9602a5675 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 29 Apr 2004 13:34:55 +0000 Subject: [PATCH] (wl-thread-insert-message): arranged localization of variable --- wl/wl-thread.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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 -- 1.7.10.4