* 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 (file)
--- 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 (file)
--- 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)