From: yoichi <yoichi>
Date: Mon, 21 Jun 2004 15:30:15 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-delete-all-target-marks): New function
X-Git-Tag: wl-2_11_31~94
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=543ac905add1ef0e47cdef12159a5fd833485273;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-delete-all-target-marks): New function
to delete target marks only.
(wl-summary-target-mark-forward): Use it.
(wl-summary-target-mark-reply-with-citation): Ditto.
(wl-summary-target-mark-uudecode): Ditto.
(wl-summary-target-mark-set-flags): Ditto and remove needless
cursor move.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2a26b83..b006ef5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,13 @@
+2004-06-22  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-summary.el (wl-summary-delete-all-target-marks): New function
+	to delete target marks only.
+	(wl-summary-target-mark-forward): Use it.
+	(wl-summary-target-mark-reply-with-citation): Ditto.
+	(wl-summary-target-mark-uudecode): Ditto.
+	(wl-summary-target-mark-set-flags): Ditto and remove needless
+	cursor move.
+
 2004-06-21  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-summary.el (wl-summary-target-mark-forward): Protect
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index d926fa9..0d715e1 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2822,6 +2822,10 @@ If ARG, exit virtual folder."
 				 'update nil nil t)
     (run-hooks 'wl-summary-virtual-hook)))
 
+(defun wl-summary-delete-all-target-marks ()
+  (let (wl-summary-buffer-temp-mark-list)
+    (wl-summary-delete-all-temp-marks)))
+
 (defun wl-summary-delete-all-temp-marks (&optional no-msg force)
   "Erase all temp marks from buffer."
   (interactive)
@@ -2984,14 +2988,13 @@ The mark is decided according to the FOLDER, FLAGS and CACHED."
 (defun wl-summary-target-mark-set-flags ()
   (interactive)
   (save-excursion
-    (goto-char (point-min))
     (let ((inhibit-read-only t)
 	  (buffer-read-only nil)
 	  wl-summary-buffer-disp-msg
 	  flags)
       (dolist (number wl-summary-buffer-target-mark-list)
-	(wl-summary-unset-mark number)
 	(setq flags (wl-summary-set-flags-internal number flags)))
+      (wl-summary-delete-all-target-marks)
       (wl-summary-count-unread)
       (wl-summary-update-modeline))))
 
@@ -3852,7 +3855,7 @@ Return t if message exists."
       (goto-char start-point)
       (save-excursion
 	(set-buffer summary-buf)
-	(wl-summary-delete-all-temp-marks)))
+	(wl-summary-delete-all-target-marks)))
     (run-hooks 'wl-mail-setup-hook)))
 
 (defun wl-summary-target-mark-reply-with-citation (&optional arg)
@@ -3880,7 +3883,7 @@ Return t if message exists."
 	(goto-char start-point)
 	(save-excursion
 	  (set-buffer summary-buf)
-	  (wl-summary-delete-all-temp-marks)))
+	  (wl-summary-delete-all-target-marks)))
       (wl-draft-reply-position wl-draft-reply-default-position)
       (run-hooks 'wl-mail-setup-hook))))
 
@@ -4833,7 +4836,7 @@ If ASK-CODING is non-nil, coding-system for the message is asked."
 				 filename nil 'no-msg))))
 	    (save-excursion
 	      (set-buffer summary-buf)
-	      (wl-summary-delete-all-temp-marks))
+	      (wl-summary-delete-all-target-marks))
 	    (if (file-exists-p filename)
 		(message "Saved as %s" filename)))
 	(kill-buffer tmp-buf)))))