* 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.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 88e94a0..8989117 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2000-11-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * 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 <ysjj@unixuser.org>)

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index f2b20e7..b85818d 100644 (file)
--- 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.