projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e836f7a
)
* wl-summary.el (wl-summary-suspend): New function.
author
okada
<okada>
Tue, 2 Apr 2002 20:23:48 +0000
(20:23 +0000)
committer
okada
<okada>
Tue, 2 Apr 2002 20:23:48 +0000
(20:23 +0000)
wl/ChangeLog
patch
|
blob
|
history
wl/wl-summary.el
patch
|
blob
|
history
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>
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.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'.
* 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-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)
(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)))))
(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))
(defun wl-summary-sync-force-update (&optional unset-cursor no-check)
(interactive)
(wl-summary-sync-update unset-cursor nil no-check))