From 263f51a0c48da96a7840643fd64287b00a1db60b Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 2 Apr 2002 12:00:22 +0000 Subject: [PATCH] * wl-addrmgr.el (wl-addrmgr-quit-yes): Call get-buffer-window with 2nd argument. --- wl/ChangeLog | 5 +++++ wl/wl-addrmgr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index ae8a8dc..5403a31 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-04-02 Hiroya Murata + + * wl-addrmgr.el (wl-addrmgr-quit-yes): Call get-buffer-window with + 2nd argument. + 2002-03-24 Yoichi NAKAYAMA * wl-draft.el (wl-draft-create-contents): Don't take neither diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el index 35ba567..ab97311 100644 --- a/wl/wl-addrmgr.el +++ b/wl/wl-addrmgr.el @@ -365,7 +365,7 @@ Return nil if no ADDRESS exists." (let ((draft-buffer wl-addrmgr-draft-buffer)) (if (and draft-buffer (buffer-live-p draft-buffer) - (null (get-buffer-window draft-buffer))) + (null (get-buffer-window draft-buffer 'visible))) (switch-to-buffer draft-buffer) (unless (one-window-p) (delete-window))) -- 1.7.10.4