(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 (file)
--- 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 (file)
--- 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)