From: hmurata <hmurata>
Date: Tue, 16 Nov 2004 17:31:02 +0000 (+0000)
Subject: (elmo-event-handler-flag-changed): Use
X-Git-Tag: wl-2_12-root~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ed35820cac6679c9e1b94da35d18cc9e0dc55c29;p=elisp%2Fwanderlust.git

(elmo-event-handler-flag-changed): Use
`set-buffer' instead of `with-current-buffer'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 77e39f4..434f9cc 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-16  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (elmo-event-handler-flag-changed): Use
+	`set-buffer' instead of `with-current-buffer'.
+
 2004-11-14  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-after-resize-function): New function.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index f22d6dc..167debf 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -656,12 +656,12 @@ See also variable `wl-use-petname'."
 (luna-define-method elmo-event-handler-flag-changed ((handler
 						      wl-summary-event-handler)
 						     numbers)
-  (with-current-buffer (wl-summary-event-handler-buffer-internal handler)
-    (save-excursion
-      (dolist (number numbers)
-	(when (and (wl-summary-message-visible-p number)
-		   (wl-summary-jump-to-msg number))
-	  (wl-summary-update-persistent-mark number))))))
+  (save-excursion
+    (set-buffer (wl-summary-event-handler-buffer-internal handler))
+    (dolist (number numbers)
+      (when (and (wl-summary-message-visible-p number)
+		 (wl-summary-jump-to-msg number))
+	(wl-summary-update-persistent-mark number)))))
 
 (defun wl-summary-buffer-detach ()
   (when (and (eq major-mode 'wl-summary-mode)