From: okada <okada>
Date: Tue, 2 Apr 2002 20:23:48 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-suspend): New function.
X-Git-Tag: elmo-mark-root~222
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=df54feccfea225c8429e6d5696739cdc563de27b;p=elisp%2Fwanderlust.git

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

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