From: yoichi <yoichi>
Date: Wed, 6 Mar 2002 14:46:27 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-mode-menu-spec): Add "Write for current
X-Git-Tag: wl-2_9_8~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e346df9b63620f28fd9f2bbc0064ad9ea9b537a7;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-mode-menu-spec): Add "Write for current
  folder" entry.
* wl-summary.el (wl-summary-mode-menu-spec): Ditto.
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* 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  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-folder.el (wl-folder-goto-folder-sticky): Simply call
@@ -13,12 +19,12 @@
 
 2002-03-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
-	* 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])