From 91ad6a8c255d10a83cf0b8f4684e7710ae2b1777 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 26 Jul 2003 11:26:58 +0000 Subject: [PATCH] * wl-action.el (wl-summary-target-mark-region): Remove duplicate definition. --- wl/ChangeLog | 1 + wl/wl-action.el | 7 +++---- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 8eacda9..30ed0a6 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,6 +1,7 @@ 2003-07-26 Yoichi NAKAYAMA * wl-action.el (wl-summary-action-docstring): Add more info. + (wl-summary-target-mark-region): Remove duplicate definition. 2003-07-24 Yuuichi Teranishi diff --git a/wl/wl-action.el b/wl/wl-action.el index 7bd0967..bfbf3ed 100644 --- a/wl/wl-action.el +++ b/wl/wl-action.el @@ -31,6 +31,9 @@ (require 'wl-summary) +(eval-when-compile + (defalias-maybe 'wl-summary-target-mark-region 'ignore)) + (defsubst wl-summary-action-mark (action) (nth 0 action)) (defsubst wl-summary-action-symbol (action) @@ -898,10 +901,6 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (funcall function (wl-summary-message-number) data) (forward-line 1)))))) -(defun wl-summary-target-mark-region (beg end) - (interactive "r") - (wl-summary-mark-region-subr 'wl-summary-target-mark beg end nil)) - (defun wl-summary-target-mark-all () (interactive) (wl-summary-target-mark-region (point-min) (point-max)) -- 1.7.10.4