From e346df9b63620f28fd9f2bbc0064ad9ea9b537a7 Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 6 Mar 2002 14:46:27 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-mode-menu-spec): Add "Write for current folder" entry. * wl-summary.el (wl-summary-mode-menu-spec): Ditto. --- wl/ChangeLog | 12 +++++++++--- wl/wl-folder.el | 1 + wl/wl-summary.el | 1 + 3 files changed, 11 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 9d3f8e9..e8cfd9a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2002-03-06 Yoichi NAKAYAMA + + * wl-folder.el (wl-folder-mode-menu-spec): Add "Write for current + folder" entry. + * wl-summary.el (wl-summary-mode-menu-spec): Ditto. + 2002-03-05 Yoichi NAKAYAMA * wl-folder.el (wl-folder-goto-folder-sticky): Simply call @@ -13,12 +19,12 @@ 2002-03-05 Yoichi NAKAYAMA - * wl-folder.el (toplevel): Bind [(shift return)] to + * wl-folder.el (wl-folder-mode-map): Bind [(shift return)] for wl-folder-jump-to-current-entity-with-arg. (wl-folder-jump-to-current-entity-with-arg): Simply call with arg `wl-folder-jump-to-current-entity'. - * wl-summary.el (toplevel): Bind `wl-summary-goto-folder-sticky' - to "G". + * wl-summary.el (wl-summary-mode-map): Bind "G" for + `wl-summary-goto-folder-sticky'. (wl-summary-goto-folder-sticky): Simply call with the sticky arg `wl-summary-goto-folder'. (wl-summary-goto-folder-subr): Add 7th argument force-exit. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 52f8990..46af146 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -110,6 +110,7 @@ ["Display all" wl-fldmgr-access-display-all t]) "----" ["Write a message" wl-draft t] + ["Write for current folder" wl-folder-write-current-folder t] "----" ["Toggle Plug Status" wl-toggle-plugged t] ["Change Plug Status" wl-plugged-change t] diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 1caa60d..c31703f 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -345,6 +345,7 @@ "----" ("Writing Messages" ["Write a message" wl-summary-write t] + ["Write for current folder" wl-summary-write-current-folder t] ["Reply" wl-summary-reply t] ["Reply with citation" wl-summary-reply-with-citation t] ["Forward" wl-summary-forward t]) -- 1.7.10.4