From: yoichi <yoichi>
Date: Thu, 28 Sep 2006 13:40:33 +0000 (+0000)
Subject: * wl-action.el (wl-summary-set-mark): Fix the last change.
X-Git-Tag: wl-2_15_5~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bde0e9c1a3561305195f02eb1ad096393557a9ca;p=elisp%2Fwanderlust.git

* wl-action.el (wl-summary-set-mark): Fix the last change.
Forbid interactive call.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 190c070..14a5d7b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-28  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-action.el (wl-summary-set-mark): Fix the last change.
+	Forbid interactive call.
+
 2006-09-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-mime.el (wl-define-dummy-functions): New macro.
diff --git a/wl/wl-action.el b/wl/wl-action.el
index 19b3c41..805a7fc 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -53,7 +53,6 @@
 
 ;; Set mark
 (defun wl-summary-set-mark (&optional set-mark number interactive data)
-  (interactive)
   "Set temporary mark SET-MARK on the message with NUMBER.
 NUMBER is the message number to set the mark on.
 INTERACTIVE is set as t if it have to run interactively.
@@ -102,13 +101,14 @@ Return number if put mark succeed"
 	      (when data
 		(wl-summary-print-argument number data)))
 	    (set-buffer-modified-p nil)
-	    (when (and (eq wl-summary-buffer-view 'thread)
-		       interactive)
-	      (wl-thread-open-close 'force-open))
 	    ;; Return value.
 	    number))
+      (when (and (eq wl-summary-buffer-view 'thread)
+		 interactive)
+	(wl-thread-open-close 'force-open)
+	(wl-summary-jump-to-msg number))
       ;; Move the cursor.
-      (if (or interactive (interactive-p))
+      (if interactive
 	  (if (eq wl-summary-move-direction-downward nil)
 	      (wl-summary-prev)
 	    (wl-summary-next))))))