From: teranisi <teranisi>
Date: Wed, 16 Jul 2003 05:47:02 +0000 (+0000)
Subject: * w-thread.el (wl-thread-copy): Removed definition.
X-Git-Tag: elmo-mark-restart~46
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=63747a583212bf4ce294655844eb23594663addb;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))