* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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])