From bde0e9c1a3561305195f02eb1ad096393557a9ca Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 28 Sep 2006 13:40:33 +0000 Subject: [PATCH] * wl-action.el (wl-summary-set-mark): Fix the last change. Forbid interactive call. --- wl/ChangeLog | 5 +++++ wl/wl-action.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) 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 + + * wl-action.el (wl-summary-set-mark): Fix the last change. + Forbid interactive call. + 2006-09-28 Hiroya Murata * 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)))))) -- 1.7.10.4