From: dmaus <dmaus>
Date: Sat, 14 Aug 2010 11:11:05 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mode-menu-spec): Add menu option to
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=879d162b3f23f0947a9934d08f8d9a48e81a6d6a;p=elisp%2Fwanderlust.git

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