From: teranisi <teranisi>
Date: Mon, 24 Mar 2003 01:19:20 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mark-as-read-internal): New inline function.
X-Git-Tag: elmo-mark-restart~73
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0e9d3813051edefa7afff108a0d97799bd25a067;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-mark-as-read-internal): New inline function.
(wl-summary-mark-as-read, wl-summary-mark-as-read): Use it.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index becd91d..bdf7953 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,10 +1,8 @@
-2003-02-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+2003-03-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
-	* wl-xmas.el (wl-xmas-highlight-folder-group-line): Use
-	`map-extents' instead of `extent-at' repeatedly.
-	(wl-highlight-folder-current-line): Ditto.
-
-	* wl-highlight.el: Remove useless dummy functions.
+	* wl-summary.el (wl-summary-mark-as-read-internal): New inline
+	function.
+	(wl-summary-mark-as-read, wl-summary-mark-as-read): Use it.
 
 2003-03-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 836b2ad..6432804 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3936,6 +3936,7 @@ If ARG, exit virtual folder."
 (defun wl-summary-mark-as-read (&optional number-or-numbers
 					  no-folder-mark
 					  no-modeline-update)
+  (interactive)
   (wl-summary-mark-as-read-internal nil
 				    number-or-numbers
 				    no-folder-mark
@@ -3944,6 +3945,7 @@ If ARG, exit virtual folder."
 (defun wl-summary-mark-as-unread (&optional number-or-numbers
 					    no-folder-mark
 					    no-modeline-update)
+  (interactive)
   (wl-summary-mark-as-read-internal 'inverse
 				    number-or-numbers
 				    no-folder-mark