From c2cf84043d85ab80db6c3f167f32e4dfda5932d8 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 8 Nov 2002 05:20:52 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-create-buffer): Rewrite the part to hide message buffer by using `wl-summary-toggle-disp-msg'. * wl-summary.el (wl-summary-resend-bounced-mail): Hide message buffer window. (wl-summary-supresedes-message): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-draft.el | 7 ++----- wl/wl-summary.el | 2 ++ 3 files changed, 10 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 11b39cb..d0f38de 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,11 @@ 2002-11-07 Yoichi NAKAYAMA + * wl-draft.el (wl-draft-create-buffer): Rewrite the part to hide + message buffer by using `wl-summary-toggle-disp-msg'. + * wl-summary.el (wl-summary-resend-bounced-mail): Hide message + buffer window. + (wl-summary-supresedes-message): Ditto. + * wl-summary.el (wl-summary-reedit): Hide message buffer window. Do not delete other windows. * wl-draft.el (wl-draft-edit-string): Do not delete other windows. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 65106aa..38f691b 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1636,11 +1636,8 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (error "Invalid value for wl-draft-reply-buffer-style")))) (case wl-draft-buffer-style (split - (when (and (eq major-mode 'wl-summary-mode) - wl-message-buffer - (buffer-live-p wl-message-buffer) - (get-buffer-window wl-message-buffer)) - (delete-window (get-buffer-window wl-message-buffer))) + (when (eq major-mode 'wl-summary-mode) + (wl-summary-toggle-disp-msg 'off)) (split-window-vertically) (other-window 1) (switch-to-buffer buf-name)) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index a5ae6fc..04322a2 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -626,6 +626,7 @@ This only makes sense if the current message is a bounce message which contains some mail you have written but has been bounced back to you." (interactive) + (wl-summary-toggle-disp-msg 'off) (save-excursion (wl-summary-set-message-buffer-or-redisplay) (set-buffer (wl-message-get-original-buffer)) @@ -5320,6 +5321,7 @@ If ASK-CODING is non-nil, coding-system for the message is asked." (defun wl-summary-supersedes-message () "Supersede current message." (interactive) + (wl-summary-toggle-disp-msg 'off) (let ((summary-buf (current-buffer)) message-buf from) (wl-summary-set-message-buffer-or-redisplay) -- 1.7.10.4