* wl-util.el (wl-count-lines): Use `point-at-bol' instead of `(beginning-of-line...

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

diff --git a/wl/wl-message.el b/wl/wl-message.el
index c7c22cd..c49281e 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -208,8 +208,8 @@ Return its cache buffer."
        (mes (cdr wl-message-window-size))
        whi)
     (when (and window
-              (not (eq (save-excursion (set-buffer (window-buffer window))
-                                       wl-message-buffer-cur-summary-buffer)
+              (not (eq (with-current-buffer (window-buffer window)
+                         wl-message-buffer-cur-summary-buffer)
                        (current-buffer))))
       (delete-window window)
       (run-hooks 'wl-message-window-deleted-hook)