From f12505b3dfe2563c8a1a4d860df14e481a1822be Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 2 Sep 2002 04:19:27 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-hide): Fixed logif for wl-draft-use-frame. --- wl/ChangeLog | 1 + wl/wl-draft.el | 34 +++++++++++++++++----------------- 2 files changed, 18 insertions(+), 17 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 70fcfa9..59f7278 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -2,6 +2,7 @@ * wl-draft.el (wl-draft-create-buffer): Set `wl-draft-parent-folder' as "" (zero-length string) if no parent. + (wl-draft-hide): Fixed logif for wl-draft-use-frame. 2002-08-27 Yuuichi Teranishi diff --git a/wl/wl-draft.el b/wl/wl-draft.el index ed9c352..80e3e25 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -715,23 +715,23 @@ Reply to author if WITH-ARG is non-nil." (delete-frame) ;; hide draft window (or (one-window-p) - (delete-window))) - ;; stay folder window if required - (when wl-stay-folder-window - (if (setq fld-buf (get-buffer wl-folder-buffer-name)) - (if (setq fld-win (get-buffer-window fld-buf)) - (select-window fld-win) - (if wl-draft-resume-folder-window ;; resume folder window - (switch-to-buffer fld-buf))))) - (if (buffer-live-p sum-buf) - (if (setq sum-win (get-buffer-window sum-buf t)) - ;; if Summary is on the frame, select it. - (select-window sum-win) - ;; if summary is not on the frame, switch to it. - (if (and wl-stay-folder-window - (or wl-draft-resume-folder-window fld-win)) - (wl-folder-select-buffer sum-buf) - (switch-to-buffer sum-buf))))))) + (delete-window)) + ;; stay folder window if required + (when wl-stay-folder-window + (if (setq fld-buf (get-buffer wl-folder-buffer-name)) + (if (setq fld-win (get-buffer-window fld-buf)) + (select-window fld-win) + (if wl-draft-resume-folder-window ;; resume folder window + (switch-to-buffer fld-buf))))) + (if (buffer-live-p sum-buf) + (if (setq sum-win (get-buffer-window sum-buf t)) + ;; if Summary is on the frame, select it. + (select-window sum-win) + ;; if summary is not on the frame, switch to it. + (if (and wl-stay-folder-window + (or wl-draft-resume-folder-window fld-win)) + (wl-folder-select-buffer sum-buf) + (switch-to-buffer sum-buf)))))))) (defun wl-draft-delete (editing-buffer) "kill the editing draft buffer and delete the file corresponds to it." -- 1.7.10.4