* 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 (file)
--- 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
 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 (file)
--- 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))
     (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))
        (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.
                     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
                  ;; 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))
                (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))
 
   (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)
   (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))))
       (wl-summary-delete-all-target-marks)
       (wl-summary-count-unread)
       (wl-summary-update-modeline))))