From: yoichi <yoichi>
Date: Sat, 26 Jul 2003 12:14:56 +0000 (+0000)
Subject: (wl-summary-unregister-target-mark): Store result to the variable.
X-Git-Tag: wl-2_11_5~30
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f4c41ba769a4a75bc087477bc2d525ee6820c8dd;p=elisp%2Fwanderlust.git

(wl-summary-unregister-target-mark): Store result to the variable.
---

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