* 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.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 11b39cb..d0f38de 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2002-11-07  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+       * 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 (file)
--- 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 (file)
--- 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)