From: teranisi <teranisi>
Date: Mon, 25 Jun 2001 09:39:25 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-sync-entity): Bind wl-summary-use-frame as nil.
X-Git-Tag: wl-2_6_0~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c2b044c9102ddcb90b30792f58c60b65e30cada9;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-sync-entity): Bind wl-summary-use-frame as nil.
(wl-folder-mark-as-read-all-entity): Ditto.
(wl-folder-prefetch-entity): Ditto.
(wl-folder-drop-unsync-entity): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f70ec66..fff4c1d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2001-06-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-folder.el (wl-folder-sync-entity): Bind wl-summary-use-frame
+	as nil.
+	(wl-folder-mark-as-read-all-entity): Ditto.
+	(wl-folder-prefetch-entity): Ditto.
+	(wl-folder-drop-unsync-entity): Ditto.
+
 	* wl-summary.el (wl-summary-collect-unread): Eliminated.
 	(wl-summary-mark-as-read-all): Call elmo-list-folder-unread instead
 	of wl-summary-collect-unread.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index b712509..48c4cac 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -984,6 +984,7 @@ If current line is group folder, check all sub entries."
 	  (let ((wl-summary-buffer-name (concat
 					 wl-summary-buffer-name
 					 (symbol-name this-command)))
+		(wl-summary-use-frame nil)
 		(wl-message-buf-name (concat wl-message-buf-name
 					     (symbol-name this-command))))
 	    (save-window-excursion
@@ -1031,6 +1032,7 @@ If current line is group folder, check all subfolders."
 	  (let ((wl-summary-buffer-name (concat
 					 wl-summary-buffer-name
 					 (symbol-name this-command)))
+		(wl-summary-use-frame nil)
 		(wl-message-buf-name (concat wl-message-buf-name
 					     (symbol-name this-command))))
 	    (save-window-excursion
@@ -2642,6 +2644,7 @@ Use `wl-subscribed-mailing-list'."
 	  (let ((wl-summary-buffer-name (concat
 					 wl-summary-buffer-name
 					 (symbol-name this-command)))
+		(wl-summary-use-frame nil)
 		(wl-message-buf-name (concat wl-message-buf-name
 					     (symbol-name this-command))))
 	    (save-window-excursion
@@ -2699,6 +2702,7 @@ If current line is group folder, all subfolders are prefetched."
 	  (let ((wl-summary-buffer-name (concat
 					 wl-summary-buffer-name
 					 (symbol-name this-command)))
+		(wl-summary-use-frame nil)
 		(wl-message-buf-name (concat wl-message-buf-name
 					     (symbol-name this-command))))
 	    (save-window-excursion