From: okazaki <okazaki>
Date: Mon, 17 Nov 2003 13:21:06 +0000 (+0000)
Subject: (wl-folder-entity-hashtb-set): Narrow the scope of a local variable.
X-Git-Tag: wl-2_11_21~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b09c6a9ddfbfbbe02444b5ac30d960b6d097ba35;p=elisp%2Fwanderlust.git

(wl-folder-entity-hashtb-set): Narrow the scope of a local variable.
---

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 462609b..241457b 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1810,13 +1810,11 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
   (wl-folder-check-entity wl-folder-entity))
 
 (defun wl-folder-entity-hashtb-set (entity-hashtb name value buffer)
-  (let (cur-val
+  (let ((cur-val (wl-folder-get-entity-info name entity-hashtb))
 	(new-diff 0)
 	(unread-diff 0)
 	(all-diff 0)
-	diffs
-	entity-list)
-    (setq cur-val (wl-folder-get-entity-info name entity-hashtb))
+	diffs)
     (setq new-diff    (- (or (nth 0 value) 0) (or (nth 0 cur-val) 0)))
     (setq unread-diff
 	  (+ new-diff
@@ -1829,11 +1827,11 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
       (save-match-data
 	(with-current-buffer buffer
 	  (save-excursion
-	    (setq entity-list (wl-folder-search-entity-list-by-name
-			       name wl-folder-entity))
-	    (while entity-list
-	      (wl-folder-update-group (car entity-list) diffs)
-	      (setq entity-list (cdr entity-list)))
+	    (let ((entity-list (wl-folder-search-entity-list-by-name
+				name wl-folder-entity)))
+	      (while entity-list
+		(wl-folder-update-group (car entity-list) diffs)
+		(setq entity-list (cdr entity-list))))
 	    (goto-char (point-min))
 	    (while (wl-folder-buffer-search-entity name)
 	      (wl-folder-update-line value))))))))