From f4c41ba769a4a75bc087477bc2d525ee6820c8dd Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 26 Jul 2003 12:14:56 +0000 Subject: [PATCH] (wl-summary-unregister-target-mark): Store result to the variable. --- wl/ChangeLog | 1 + wl/wl-action.el | 5 +++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 890ed92..6673f78 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -5,6 +5,7 @@ duplicate definition. (wl-summary-define-mark-action): Functions wl-summary-*-region keep current position. + (wl-summary-unregister-target-mark): Store result to the variable. 2003-07-24 Yuuichi Teranishi diff --git a/wl/wl-action.el b/wl/wl-action.el index 91bf804..165b4e3 100644 --- a/wl/wl-action.el +++ b/wl/wl-action.el @@ -110,7 +110,8 @@ Return number if put mark succeed" (cons number wl-summary-buffer-target-mark-list)))) (defun wl-summary-unregister-target-mark (number) - (delq number wl-summary-buffer-target-mark-list)) + (setq wl-summary-buffer-target-mark-list + (delq number wl-summary-buffer-target-mark-list))) (defun wl-summary-have-target-mark-p (number) (memq number wl-summary-buffer-target-mark-list)) @@ -217,7 +218,7 @@ Return number if put mark succeed" (let ((buffer-read-only nil) visible mark action) (if number - (setq visible (wl-summary-jump-to-msg number)) + (setq visible (wl-summary-jump-to-msg number)) ; can be nil (setq visible t)) (setq number (or number (wl-summary-message-number))) ;; Delete mark on buffer. -- 1.7.10.4