* wl-folder.el (wl-folder-set-current-entity-id): Enclose by

save-current-buffer.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 30b8fc3..b57d899 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -3,6 +3,7 @@
        * wl-folder.el (wl-folder-empty-trash): Set and show up summary
        buffer after calling `wl-summary-goto-folder-subr' without the
        argument `interactive'.
+       (wl-folder-set-current-entity-id): Enclose by save-current-buffer.
 
 2003-01-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 7a425cb..f93ceda 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -957,17 +957,18 @@ Optional argument ARG is repeart count."
   (let* ((buf (get-buffer wl-folder-buffer-name))
         (buf-win (get-buffer-window buf)))
     (if buf
-       (save-selected-window
-         (if buf-win
-             (select-window buf-win)
-           (set-buffer buf))
-         (setq wl-folder-buffer-cur-entity-id entity-id)
-         (setq wl-folder-buffer-cur-path (wl-folder-get-path wl-folder-entity
-                                                             entity-id))
-         (wl-highlight-folder-path wl-folder-buffer-cur-path)
-         (and wl-folder-move-cur-folder
-              wl-folder-buffer-cur-point
-              (goto-char wl-folder-buffer-cur-point))))))
+       (save-current-buffer
+         (save-selected-window
+           (if buf-win
+               (select-window buf-win)
+             (set-buffer buf))
+           (setq wl-folder-buffer-cur-entity-id entity-id)
+           (setq wl-folder-buffer-cur-path (wl-folder-get-path wl-folder-entity
+                                                               entity-id))
+           (wl-highlight-folder-path wl-folder-buffer-cur-path)
+           (and wl-folder-move-cur-folder
+                wl-folder-buffer-cur-point
+                (goto-char wl-folder-buffer-cur-point)))))))
 
 (defun wl-folder-check-current-entity ()
   "Check folder at position.