From: yoichi <yoichi>
Date: Sun, 12 Jan 2003 13:29:26 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-set-current-entity-id): Enclose by
X-Git-Tag: merged-trunk-to-elmo-mark-14~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=11108d1f7c5970094b29742b4717d772d96ff5ff;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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.