From: teranisi <teranisi>
Date: Mon, 2 Sep 2002 04:19:27 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-hide): Fixed logif for wl-draft-use-frame.
X-Git-Tag: elmo-mark-root~26
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f12505b3dfe2563c8a1a4d860df14e481a1822be;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-hide): Fixed logif for wl-draft-use-frame.
---

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  <teranisi@gohome.org>
 
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."