From a5880f5585f7838548c4da54cc9413b1b2928786 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 28 Nov 2000 10:16:52 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-sync-entity): Bind name of summary/message buffer as command specific. (wl-folder-mark-as-read-all-entity): Ditto. (wl-folder-prefetch-entity): Ditto. (wl-folder-drop-unsync-entity): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 56 +++++++++++++++++++++++++++++++++++++------------------ 2 files changed, 44 insertions(+), 18 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 88e94a0..8989117 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,11 @@ 2000-11-28 Yuuichi Teranishi + * wl-folder.el (wl-folder-sync-entity): Bind name of summary/message + buffer as command specific. + (wl-folder-mark-as-read-all-entity): Ditto. + (wl-folder-prefetch-entity): Ditto. + (wl-folder-drop-unsync-entity): Ditto. + * wl-vars.el (wl-prog-uudecode-arg): Changed default to nil. (wl-prog-uudecode-no-stdout-option): Changed default to t. (Advised by YAMASHITA Junji ) diff --git a/wl/wl-folder.el b/wl/wl-folder.el index f2b20e7..b85818d 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -983,10 +983,15 @@ If current line is group folder, check all sub entries." (or (< 0 new) (< 0 unread))) (save-window-excursion (save-excursion - (wl-summary-goto-folder-subr entity - (wl-summary-get-sync-range entity) - nil nil nil t) - (wl-summary-exit)))))))) + (let ((wl-summary-buffer-name (concat + wl-summary-buffer-name + (symbol-name this-command))) + (wl-message-buf-name (concat wl-message-buf-name + (symbol-name this-command)))) + (wl-summary-goto-folder-subr entity + (wl-summary-get-sync-range entity) + nil nil nil t) + (wl-summary-exit))))))))) (defun wl-folder-sync-current-entity (&optional unread-only) "Synchronize the folder at position. @@ -1025,11 +1030,16 @@ If current line is group folder, check all subfolders." (if (or (< 0 new) (< 0 unread)) (save-window-excursion (save-excursion - (wl-summary-goto-folder-subr entity - (wl-summary-get-sync-range entity) - nil) - (wl-summary-mark-as-read-all) - (wl-summary-exit))) + (let ((wl-summary-buffer-name (concat + wl-summary-buffer-name + (symbol-name this-command))) + (wl-message-buf-name (concat wl-message-buf-name + (symbol-name this-command)))) + (wl-summary-goto-folder-subr entity + (wl-summary-get-sync-range entity) + nil) + (wl-summary-mark-as-read-all) + (wl-summary-exit)))) (sit-for 0)))))) (defun wl-folder-mark-as-read-all-current-entity () @@ -2610,12 +2620,17 @@ Use `wl-subscribed-mailing-list'." (< 0 count)) (save-window-excursion (save-excursion - (wl-summary-goto-folder-subr entity - (wl-summary-get-sync-range entity) - nil) - (setq ret-val (wl-summary-incorporate)) - (wl-summary-exit) - ret-val)) + (let ((wl-summary-buffer-name (concat + wl-summary-buffer-name + (symbol-name this-command))) + (wl-message-buf-name (concat wl-message-buf-name + (symbol-name this-command)))) + (wl-summary-goto-folder-subr entity + (wl-summary-get-sync-range entity) + nil) + (setq ret-val (wl-summary-incorporate)) + (wl-summary-exit) + ret-val))) (cons 0 0)))))) (defun wl-folder-count-incorporates (folder) @@ -2662,9 +2677,14 @@ If current line is group folder, all subfolders are prefetched." (if (< 0 new) (save-window-excursion (save-excursion - (wl-summary-goto-folder-subr entity 'no-sync nil) - (wl-summary-drop-unsync) - (wl-summary-exit)))))))) + (let ((wl-summary-buffer-name (concat + wl-summary-buffer-name + (symbol-name this-command))) + (wl-message-buf-name (concat wl-message-buf-name + (symbol-name this-command)))) + (wl-summary-goto-folder-subr entity 'no-sync nil) + (wl-summary-drop-unsync) + (wl-summary-exit))))))))) (defun wl-folder-drop-unsync-current-entity (&optional force-check) "Drop all unsync messages in the folder at position. -- 1.7.10.4