* w-thread.el (wl-thread-copy): Removed definition.

(wl-thread-refile): Ditto.
(wl-thread-delete): Ditto.
(wl-thread-target-mark): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 17a9e4f..01f0d91 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,9 +1,9 @@
 2003-07-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
-       * wl-summary.el (wl-summary-delete-messages-on-buffer): Don't display
-       buffer line deleting progress.
-       (wl-summary-mode-map): Bind wl-thread-dispose, Changed binding for
-       wl-thread-delete.
+       * w-thread.el (wl-thread-copy): Removed definition.
+       (wl-thread-refile): Ditto.
+       (wl-thread-delete): Ditto.
+       (wl-thread-target-mark): Ditto.
 
        * wl-action.el (wl-summary-register-target-mark): Fixed argument.
        (wl-summary-target-mark-set-action): Fixed.

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 73c5cf1..f7337d8 100644 (file)
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -757,37 +757,6 @@ Message is inserted to the summary buffer."
   (interactive "P")
   (wl-thread-call-region-func 'wl-summary-mark-as-important-region arg))
 
-(defun wl-thread-copy (&optional arg)
-  (interactive "P")
-  (wl-thread-call-region-func 'wl-summary-copy-region arg))
-
-(defun wl-thread-refile (&optional arg)
-  (interactive "P")
-  (condition-case err
-      (progn
-       (wl-thread-call-region-func 'wl-summary-refile-region arg)
-       (if arg
-           (wl-summary-goto-top-of-current-thread))
-       (wl-thread-goto-bottom-of-sub-thread))
-    (error
-     (elmo-display-error err t)
-     nil)))
-
-(defun wl-thread-delete (&optional arg)
-  (interactive "P")
-  (wl-thread-call-region-func 'wl-summary-delete-region arg)
-  (if arg
-      (wl-summary-goto-top-of-current-thread))
-  (if (not wl-summary-move-direction-downward)
-      (wl-summary-prev)
-    (wl-thread-goto-bottom-of-sub-thread)
-    (if wl-summary-buffer-disp-msg
-       (wl-summary-redisplay))))
-
-(defun wl-thread-target-mark (&optional arg)
-  (interactive "P")
-  (wl-thread-call-region-func 'wl-summary-target-mark-region arg))
-
 (defun wl-thread-unmark (&optional arg)
   (interactive "P")
   (wl-thread-call-region-func 'wl-summary-unmark-region arg))