* wl-summary.el (wl-summary-suspend): New function.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 13fdc23..bd75708 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,7 +1,11 @@
 2002-04-03  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-summary.el (wl-summary-suspend): New function.
+
+2002-04-03  Kenichi OKADA  <okada@opaopa.org>
+
        * 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 (file)
--- 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))