From: teranisi Date: Mon, 25 Jun 2001 09:36:41 +0000 (+0000) Subject: * wl-folder.el (wl-folder-sync-entity): Bind wl-summary-use-frame as nil. X-Git-Tag: wl-2_7_2~40 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0d400e209ffda886fe2a5ab5aa5dc9a64d92de23;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. --- 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