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