From b09c6a9ddfbfbbe02444b5ac30d960b6d097ba35 Mon Sep 17 00:00:00 2001 From: okazaki Date: Mon, 17 Nov 2003 13:21:06 +0000 Subject: [PATCH] (wl-folder-entity-hashtb-set): Narrow the scope of a local variable. --- wl/wl-folder.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) 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)))))))) -- 1.7.10.4