From 63747a583212bf4ce294655844eb23594663addb Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 16 Jul 2003 05:47:02 +0000 Subject: [PATCH] * w-thread.el (wl-thread-copy): Removed definition. (wl-thread-refile): Ditto. (wl-thread-delete): Ditto. (wl-thread-target-mark): Ditto. --- wl/ChangeLog | 8 ++++---- wl/wl-thread.el | 31 ------------------------------- 2 files changed, 4 insertions(+), 35 deletions(-) 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 - * 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)) -- 1.7.10.4