From: yoichi <yoichi>
Date: Fri, 8 Nov 2002 05:20:52 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-create-buffer): Rewrite the part to hide
X-Git-Tag: wl-2_11_1~63
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c2cf84043d85ab80db6c3f167f32e4dfda5932d8;p=elisp%2Fwanderlust.git

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