From 0d400e209ffda886fe2a5ab5aa5dc9a64d92de23 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 25 Jun 2001 09:36:41 +0000 Subject: [PATCH] * 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/ChangeLog | 5 +++++ wl/wl-folder.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 401b341..144feae 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,10 @@ 2001-06-25 Yuuichi Teranishi + * 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.el (wl): Check environment before wl-init. * wl-summary.el (wl-summary-collect-unread): Eliminated. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 8dd6fc5..e5f2daa 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -998,6 +998,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-summary-always-sticky-folder-list nil)) (save-window-excursion (save-excursion @@ -1048,6 +1049,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-summary-always-sticky-folder-list nil)) (wl-summary-goto-folder-subr entity (wl-summary-get-sync-range folder) @@ -2668,6 +2670,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-summary-always-sticky-folder-list nil)) (wl-summary-goto-folder-subr entity (wl-summary-get-sync-range -- 1.7.10.4