From: teranisi <teranisi>
Date: Tue, 28 Nov 2000 10:16:52 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-sync-entity): Bind name of summary/message buffer
X-Git-Tag: wl-2_4_0~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a5880f5585f7838548c4da54cc9413b1b2928786;p=elisp%2Fwanderlust.git

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