From: hmurata <hmurata>
Date: Wed, 3 Sep 2003 04:20:16 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-target-mark-mark-as-read): Fixed typo
X-Git-Tag: wl-2_11_10~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=42b5e8d9aafa0cafc724744939875f48cbcfe2e7;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-target-mark-mark-as-read): Fixed typo
and call `wl-summary-mark-as-read' before to call
`wl-summary-unset-mark'.
(wl-summary-target-mark-mark-as-unread): Likewise.
(wl-summary-target-mark-mark-as-important): Don't bind mlist.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 42f578a..463a7a2 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2003-09-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-target-mark-mark-as-read): Fixed typo
+	and call `wl-summary-mark-as-read' before to call
+	`wl-summary-unset-mark'.
+	(wl-summary-target-mark-mark-as-unread): Likewise.
+	(wl-summary-target-mark-mark-as-important): Don't bind mlist.
+
 2003-09-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-mime.el (wl-draft-preview-message): Use actual value for
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5b0f82f..0a13323 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2751,11 +2751,10 @@ The mark is decided according to the FOLDER, FLAGS and CACHED."
     (goto-char (point-min))
     (let ((inhibit-read-only t)
 	  (buffer-read-only nil)
-	  wl-summary-buffer-disp-msg
-	  (mlist wl-summary-buffer-temp-mark-list))
-      (dolist (number mlist)
-	(wl-summary-unset-mark number))
-      (wl-summary-mark-as-read mlist))))
+	  wl-summary-buffer-disp-msg)
+      (wl-summary-mark-as-read wl-summary-buffer-target-mark-list)
+      (dolist (number wl-summary-buffer-target-mark-list)
+	(wl-summary-unset-mark number)))))
 
 (defun wl-summary-target-mark-mark-as-unread ()
   (interactive)
@@ -2763,11 +2762,10 @@ The mark is decided according to the FOLDER, FLAGS and CACHED."
     (goto-char (point-min))
     (let ((inhibit-read-only t)
 	  (buffer-read-only nil)
-	  wl-summary-buffer-disp-msg
-	  (mlist wl-summary-buffer-target-mark-list))
-      (dolist (number mlist)
-	(wl-summary-unset-mark number))
-      (wl-summary-mark-as-unread mlist))))
+	  wl-summary-buffer-disp-msg)
+      (wl-summary-mark-as-unread wl-summary-buffer-target-mark-list)
+      (dolist (number wl-summary-buffer-target-mark-list)
+	(wl-summary-unset-mark number)))))
 
 (defun wl-summary-target-mark-mark-as-important ()
   (interactive)
@@ -2775,9 +2773,8 @@ The mark is decided according to the FOLDER, FLAGS and CACHED."
     (goto-char (point-min))
     (let ((inhibit-read-only t)
 	  (buffer-read-only nil)
-	  wl-summary-buffer-disp-msg
-	  (mlist wl-summary-buffer-target-mark-list))
-      (dolist (number mlist)
+	  wl-summary-buffer-disp-msg)
+      (dolist (number wl-summary-buffer-target-mark-list)
 	(wl-summary-unset-mark number)
 	(wl-summary-mark-as-important number))
       (wl-summary-count-unread)