X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-folder.el;h=f0db0ba9096225bd76be24461ba2d927b77e446a;hb=fa293e6160be65c00e7051e86a6e34398f8b9978;hp=30d95b91803f6b62e175cade488c06e54976139e;hpb=673e523e148a06cca0de795d8450ccf4386dd2cc;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 30d95b9..f0db0ba 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -279,10 +279,7 @@
        (and sym (boundp sym)))))
 
 (defmacro wl-folder-clear-entity-info (entity &optional hashtb)
-  (` (let ((sym (intern-soft (, entity)
-			     (or (, hashtb) wl-folder-entity-hashtb))))
-       (if (boundp sym)
-	   (makunbound sym)))))
+  (` (elmo-clear-hash-val (, entity) (or (, hashtb) wl-folder-entity-hashtb))))
 
 (defmacro wl-folder-get-entity-info (entity &optional hashtb)
   (` (elmo-get-hash-val (, entity) (or (, hashtb) wl-folder-entity-hashtb))))
@@ -981,8 +978,7 @@ Optional argument ARG is repeart count."
 		(select-window buf-win)
 	      (set-buffer buf))
 	    (when (and wl-folder-buffer-cur-entity-id
-		       (not (eq wl-folder-buffer-last-visited-entity-id
-				wl-folder-buffer-cur-entity-id)))
+		       (not (eq wl-folder-buffer-cur-entity-id entity-id)))
 	      (setq wl-folder-buffer-last-visited-entity-id wl-folder-buffer-cur-entity-id))
 	    (setq wl-folder-buffer-cur-entity-id entity-id)
 	    (setq wl-folder-buffer-cur-path