From 879d162b3f23f0947a9934d08f8d9a48e81a6d6a Mon Sep 17 00:00:00 2001 From: dmaus Date: Sat, 14 Aug 2010 11:11:05 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-mode-menu-spec): Add menu option to edit draft message when in draft folder. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * wl-summary.el (wl-summary-mode-menu-spec): Add menu option to + edit draft message when in draft folder. + 2010-07-21 Katsumi Yamaoka * 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)] -- 1.7.10.4