From 3f73e16d6c8943c777212e40f6c76b5885fb7380 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 26 Jul 2003 11:34:19 +0000 Subject: [PATCH] (wl-summary-define-mark-action): Functions wl-summary-*-region keep current position. --- wl/ChangeLog | 2 ++ wl/wl-action.el | 21 +++++++++++---------- 2 files changed, 13 insertions(+), 10 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 30ed0a6..5568e07 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -2,6 +2,8 @@ * wl-action.el (wl-summary-action-docstring): Add more info. (wl-summary-target-mark-region): Remove duplicate definition. + (wl-summary-define-mark-action): Functions wl-summary-*-region + keep current position. 2003-07-24 Yuuichi Teranishi diff --git a/wl/wl-action.el b/wl/wl-action.el index bfbf3ed..7c45b21 100644 --- a/wl/wl-action.el +++ b/wl/wl-action.el @@ -358,16 +358,17 @@ Return number if put mark succeed" `(lambda (beg end) ,(wl-summary-action-docstring action) (interactive "r") - (goto-char beg) - (wl-summary-mark-region-subr - (quote ,(intern (format "wl-summary-%s" - (wl-summary-action-symbol action)))) - beg end - (if (quote ,(wl-summary-action-argument-function action)) - (funcall (function - ,(wl-summary-action-argument-function action)) - (quote ,(wl-summary-action-symbol action)) - (wl-summary-message-number)))))) + (save-excursion + (goto-char beg) + (wl-summary-mark-region-subr + (quote ,(intern (format "wl-summary-%s" + (wl-summary-action-symbol action)))) + beg end + (if (quote ,(wl-summary-action-argument-function action)) + (funcall (function + ,(wl-summary-action-argument-function action)) + (quote ,(wl-summary-action-symbol action)) + (wl-summary-message-number))))))) (fset (intern (format "wl-summary-target-mark-%s" (wl-summary-action-symbol action))) `(lambda () -- 1.7.10.4