From 9bf738192633d2a2957c395d304a2cb8d7c25eae Mon Sep 17 00:00:00 2001 From: okazaki Date: Thu, 13 Nov 2003 16:02:37 +0000 Subject: [PATCH] (wl-folder-update-unread): Narrow the scope of a local variable. --- wl/wl-folder.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/wl/wl-folder.el b/wl/wl-folder.el index e67208e..462609b 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -1840,14 +1840,14 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'." (defun wl-folder-update-unread (folder unread) (let ((buf (get-buffer wl-folder-buffer-name)) + (value (wl-folder-get-entity-info folder)) cur-unread (unread-diff 0) - value newvalue entity-list) + newvalue) ;;; Update folder-info ;;; (elmo-folder-set-info-hashtb fld nil nil nil unread) - (setq cur-unread (or (nth 1 (wl-folder-get-entity-info folder)) 0)) + (setq cur-unread (or (nth 1 value) 0)) (setq unread-diff (- (or unread 0) cur-unread)) - (setq value (wl-folder-get-entity-info folder)) (setq newvalue (list (nth 0 value) unread (nth 2 value))) @@ -1858,13 +1858,13 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'." (save-match-data (with-current-buffer buf (save-excursion - (setq entity-list (wl-folder-search-entity-list-by-name - folder wl-folder-entity)) - (while entity-list - (wl-folder-update-group (car entity-list) (list 0 - unread-diff - 0)) - (setq entity-list (cdr entity-list))) + (let ((entity-list (wl-folder-search-entity-list-by-name + folder wl-folder-entity))) + (while entity-list + (wl-folder-update-group (car entity-list) (list 0 + unread-diff + 0)) + (setq entity-list (cdr entity-list)))) (goto-char (point-min)) (while (wl-folder-buffer-search-entity folder) (wl-folder-update-line newvalue)))))))) -- 1.7.10.4