From: yoichi <yoichi>
Date: Sat, 26 Jul 2003 11:34:19 +0000 (+0000)
Subject: (wl-summary-define-mark-action): Functions wl-summary-*-region
X-Git-Tag: wl-2_11_5~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3f73e16d6c8943c777212e40f6c76b5885fb7380;p=elisp%2Fwanderlust.git

(wl-summary-define-mark-action): Functions wl-summary-*-region
keep current position.
---

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  <teranisi@gohome.org>
 
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 ()