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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 890ed92..6673f78 100644 (file)
--- 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 (file)
--- 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.