From 42b5e8d9aafa0cafc724744939875f48cbcfe2e7 Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 3 Sep 2003 04:20:16 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 8 ++++++++ wl/wl-summary.el | 23 ++++++++++------------- 2 files changed, 18 insertions(+), 13 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4