From 0e9d3813051edefa7afff108a0d97799bd25a067 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 24 Mar 2003 01:19:20 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-mark-as-read-internal): New inline function. (wl-summary-mark-as-read, wl-summary-mark-as-read): Use it. --- wl/ChangeLog | 10 ++++------ wl/wl-summary.el | 2 ++ 2 files changed, 6 insertions(+), 6 deletions(-) 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 +2003-03-24 Yuuichi Teranishi - * 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 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 -- 1.7.10.4