* wl-summary.el (wl-summary-mode-menu-spec): Add menu option to

edit draft message when in draft folder.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6e9495e..d8936a4 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-14  David Maus  <dmaus@ictsoc.de>
+
+       * wl-summary.el (wl-summary-mode-menu-spec): Add menu option to
+       edit draft message when in draft folder.
+
 2010-07-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * wl-summary.el (wl-summary-put-temp-mark): Use (delete-char -1)

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index eff7f67..63cabbe 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -245,6 +245,7 @@ See also variable `wl-use-petname'."
 (defvar wl-summary-mode-menu-spec
   '("Summary"
     ["Read" wl-summary-read t]
+    ["Edit draft message" wl-summary-reedit :visible (string= (wl-summary-buffer-folder-name) wl-draft-folder)]
     ["Prev page" wl-summary-prev-page t]
     ["Next page" wl-summary-next-page t]
     ["Top"       wl-summary-display-top t]
@@ -292,7 +293,8 @@ See also variable `wl-use-petname'."
      ["Enter the message" wl-summary-jump-to-current-message t]
      ["Pipe message" wl-summary-pipe-message t]
      ["Print message" wl-summary-print-message t]
-     ["View raw message" wl-summary-display-raw t])
+     ["View raw message" wl-summary-display-raw t]
+     )
     ("Thread Operation"
      ["Open or Close" wl-thread-open-close (eq wl-summary-buffer-view 'thread)]
      ["Open all"     wl-thread-open-all (eq wl-summary-buffer-view 'thread)]