From df54feccfea225c8429e6d5696739cdc563de27b Mon Sep 17 00:00:00 2001 From: okada Date: Tue, 2 Apr 2002 20:23:48 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-suspend): New function. --- wl/ChangeLog | 6 +++++- wl/wl-summary.el | 6 ++++++ 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 13fdc23..bd75708 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,7 +1,11 @@ 2002-04-03 Kenichi OKADA + * wl-summary.el (wl-summary-suspend): New function. + +2002-04-03 Kenichi OKADA + * wl.el (wl): Do not check variables if check is nil. - * wl-utils.el (wl-collect-draft): New function. + * wl-utils.el (wl-collect-draft): New function. * wl-folder.el (wl-folder-suspend): Put summary buffers and draft buffers at the end of buffer list. * wl-draft.el (wl-jump-to-draft-folder): Use `wl-collect-draft'. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index cafee58..010ab10 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -421,6 +421,7 @@ (define-key wl-summary-mode-map "Z" 'wl-status-update) (define-key wl-summary-mode-map "#" 'wl-summary-print-message) (define-key wl-summary-mode-map "|" 'wl-summary-pipe-message) + (define-key wl-summary-mode-map "z" 'wl-summary-suspend) (define-key wl-summary-mode-map "q" 'wl-summary-exit) (define-key wl-summary-mode-map "Q" 'wl-summary-force-exit) @@ -1096,6 +1097,11 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'." (kill-buffer summary-buf))) (run-hooks 'wl-summary-exit-hook))))) +(defun wl-summary-suspend () + (interactive) + (wl-summary-exit) + (wl-folder-suspend)) + (defun wl-summary-sync-force-update (&optional unset-cursor no-check) (interactive) (wl-summary-sync-update unset-cursor nil no-check)) -- 1.7.10.4