From: hmurata <hmurata>
Date: Mon, 11 Aug 2003 03:03:32 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-target-mark-mark-as-read): Fixed and
X-Git-Tag: wl-2_11_8~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0ee6759a2ec3d5fbf6927e8f05a2c711878331df;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-target-mark-mark-as-read): Fixed and
simplified.
(wl-summary-target-mark-mark-as-unread): Likewise.
(wl-summary-target-mark-mark-as-important): Likewise.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2b962c8..a55d6ff 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2003-08-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-target-mark-mark-as-read): Fixed and
+	simplified.
+	(wl-summary-target-mark-mark-as-unread): Likewise.
+	(wl-summary-target-mark-mark-as-important): Likewise.
+
 2003-08-11  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-thread.el (wl-thread-msg-mark-as-important): Abolished.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index bfe39f2..2cdcbf5 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2719,27 +2719,10 @@ If ARG, exit virtual folder."
     (let ((inhibit-read-only t)
 	  (buffer-read-only nil)
 	  wl-summary-buffer-disp-msg
-	  number mlist)
-      (while (not (eobp))
-	(when (string= (wl-summary-temp-mark) "*")
-	  ;; delete target-mark from buffer.
-	  (wl-summary-put-temp-mark " ")
-	  (setq number (wl-summary-message-number))
-	  (setq mlist (append mlist (list number)))
-	  (if wl-summary-highlight
-	      (wl-highlight-summary-current-line))
-	  (if number
-	      (setq wl-summary-buffer-target-mark-list
-		    (delq number wl-summary-buffer-target-mark-list))))
-	(forward-line 1))
-      (wl-summary-mark-as-read mlist)
-      ;; closed
-      (when (setq mlist wl-summary-buffer-target-mark-list)
-	(wl-summary-mark-as-read mlist)
-	(while mlist
-	  (setq wl-summary-buffer-target-mark-list
-		(delq (car mlist) wl-summary-buffer-target-mark-list))
-	  (setq mlist (cdr mlist)))))))
+	  (mlist wl-summary-buffer-temp-mark-list))
+      (dolist (number mlist)
+	(wl-summary-unset-mark number))
+      (wl-summary-mark-as-read mlist))))
 
 (defun wl-summary-target-mark-mark-as-unread ()
   (interactive)
@@ -2748,26 +2731,10 @@ If ARG, exit virtual folder."
     (let ((inhibit-read-only t)
 	  (buffer-read-only nil)
 	  wl-summary-buffer-disp-msg
-	  number mlist)
-      (while (not (eobp))
-	(when (string= (wl-summary-temp-mark) "*")
-	  (wl-summary-put-temp-mark " ")
-	  (setq number (wl-summary-message-number))
-	  (setq mlist (append mlist (list number)))
-	  (if wl-summary-highlight
-	      (wl-highlight-summary-current-line))
-	  (if number
-	      (setq wl-summary-buffer-target-mark-list
-		    (delq number wl-summary-buffer-target-mark-list))))
-	(forward-line 1))
-      (wl-summary-mark-as-unread mlist)
-      ;; closed
-      (when (setq mlist wl-summary-buffer-target-mark-list)
-	(wl-summary-mark-as-unread mlist)
-	(while mlist
-	  (setq wl-summary-buffer-target-mark-list
-		(delq (car mlist) wl-summary-buffer-target-mark-list))
-	  (setq mlist (cdr mlist)))))))
+	  (mlist wl-summary-buffer-target-mark-list))
+      (dolist (number mlist)
+	(wl-summary-unset-mark number))
+      (wl-summary-mark-as-unread mlist))))
 
 (defun wl-summary-target-mark-mark-as-important ()
   (interactive)
@@ -2776,19 +2743,10 @@ If ARG, exit virtual folder."
     (let ((inhibit-read-only t)
 	  (buffer-read-only nil)
 	  wl-summary-buffer-disp-msg
-	  number
 	  (mlist wl-summary-buffer-target-mark-list))
-      (while mlist
-	(if (wl-summary-jump-to-msg (car mlist))
-	    (progn
-	      (wl-summary-put-temp-mark " ")
-	      (wl-summary-mark-as-important (car mlist))
-	      (when wl-summary-highlight
-		(wl-highlight-summary-current-line)))
-	  (wl-summary-mark-as-important (car mlist)))
-	(setq wl-summary-buffer-target-mark-list
-	      (delq (car mlist) wl-summary-buffer-target-mark-list))
-	(setq mlist (cdr mlist)))
+      (dolist (number mlist)
+	(wl-summary-unset-mark number)
+	(wl-summary-mark-as-important number))
       (wl-summary-count-unread)
       (wl-summary-update-modeline))))