(wl-summary-define-mark-action): Functions wl-summary-*-region

keep current position.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 30ed0a6..5568e07 100644 (file)
--- 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  <teranisi@gohome.org>
 

diff --git a/wl/wl-action.el b/wl/wl-action.el
index bfbf3ed..7c45b21 100644 (file)
--- 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 ()