Update.

[elisp/wanderlust.git] / wl / wl-folder.el

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 30d95b9..f0db0ba 100644 (file)
--- 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