From: hmurata <hmurata>
Date: Tue, 22 Jun 2004 03:04:52 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-set-flags-region): Call
X-Git-Tag: wl-2_11_31~91
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1503070a6a0bd655ee66791677045ea13634d44b;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-set-flags-region): Call
`wl-summary-set-flags-internal' with number list instead of call
one by each message.
(wl-summary-target-mark-set-flags): Likewise.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 02657b4..80a447e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2004-06-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-set-flags-region): Call
+	`wl-summary-set-flags-internal' with number list instead of call
+	one by each message.
+	(wl-summary-target-mark-set-flags): Likewise.
+
 2004-06-21  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-target-mark-operation): Add optional
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 24c22eb..9d7d13b 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1585,7 +1585,7 @@ If ARG is non-nil, checking is omitted."
     (save-restriction
       (wl-summary-narrow-to-region beg end)
       (goto-char (point-min))
-      (let (flags)
+      (let (numbers)
 	(if (eq wl-summary-buffer-view 'thread)
 	    (while (not (eobp))
 	      (let* ((number (wl-summary-message-number))
@@ -1593,19 +1593,16 @@ If ARG is non-nil, checking is omitted."
 		     children)
 		(if (wl-thread-entity-get-opened entity)
 		    ;; opened...mark line.
-		    ;; Crossposts are not processed
-		    (setq flags (wl-summary-set-flags-internal
-				number
-				flags))
+		    (setq numbers (nconc numbers (list number)))
 		  ;; closed
-		  (setq flags (wl-summary-set-flags-internal
-			      (wl-thread-get-children-msgs number)
-			      flags)))
+		  (setq numbers
+			(nconc numbers
+			       (wl-thread-get-children-msgs number))))
 		(forward-line 1)))
 	  (while (not (eobp))
-	    (setq flags (wl-summary-set-flags-internal
-			(wl-summary-message-number) flags))
-	    (forward-line 1))))))
+	    (setq numbers (nconc numbers (list (wl-summary-message-number))))
+	    (forward-line 1)))
+	(wl-summary-set-flags-internal numbers))))
   (wl-summary-count-unread)
   (wl-summary-update-modeline))
 
@@ -2994,10 +2991,8 @@ The mark is decided according to the FOLDER, FLAGS and CACHED."
   (save-excursion
     (let ((inhibit-read-only t)
 	  (buffer-read-only nil)
-	  wl-summary-buffer-disp-msg
-	  flags)
-      (dolist (number wl-summary-buffer-target-mark-list)
-	(setq flags (wl-summary-set-flags-internal number flags)))
+	  wl-summary-buffer-disp-msg)
+      (wl-summary-set-flags-internal wl-summary-buffer-target-mark-list)
       (wl-summary-delete-all-target-marks)
       (wl-summary-count-unread)
       (wl-summary-update-modeline))))