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