From a8545f1028dd242684823390effdcc74a92f3d5d Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 25 Jun 2001 13:42:55 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-reply): Fixed problem when wl-draft-use-frame is non-nil. (wl-summary-forward): Ditto. --- wl/ChangeLog | 6 +++++- wl/wl-summary.el | 12 ++++++------ 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 144feae..be08af1 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,4 +1,8 @@ -2001-06-25 Yuuichi Teranishi +2001-06-25 Yuuichi Teranishi + + * wl-summary.el (wl-summary-reply): Fixed problem when + wl-draft-use-frame is non-nil. + (wl-summary-forward): Ditto. * wl-folder.el (wl-folder-sync-entity): Bind wl-summary-use-frame as nil. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 42b2911..1123ba1 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4871,9 +4871,9 @@ Reply to author if invoked with ARG." (wl-message-select-buffer wl-message-buffer) (set-buffer mes-buf) (goto-char (point-min)) - (or wl-draft-use-frame - (split-window-vertically)) - (other-window 1) + (unless wl-draft-use-frame + (split-window-vertically) + (other-window 1)) (when (setq mes-buf (wl-message-get-original-buffer)) (wl-draft-reply mes-buf arg summary-buf) (unless without-setup-hook @@ -4933,9 +4933,9 @@ Use function list is `wl-summary-write-current-folder-functions'." (wl-summary-redisplay-internal nil nil 'force-reload) (setq mes-buf wl-message-buffer) (wl-message-select-buffer mes-buf) - (or wl-draft-use-frame - (split-window-vertically)) - (other-window 1) + (unless wl-draft-use-frame + (split-window-vertically) + (other-window 1)) ;; get original subject. (if summary-buf (save-excursion -- 1.7.10.4