From: yoichi <yoichi>
Date: Mon, 11 Mar 2002 18:34:58 +0000 (+0000)
Subject: * wl-xmas.el (wl-draft-overload-menubar): Add menu properly.
X-Git-Tag: wl-2_9_8~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c99303aa1ced3bc1c4d73b74c7903756ffbbe72b;p=elisp%2Fwanderlust.git

* wl-xmas.el (wl-draft-overload-menubar): Add menu properly.
(tested on xemacs-21.4.6)
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8796a5d..34dc8a3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2002-03-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+	* wl-xmas.el (wl-draft-overload-menubar): Add menu properly.
+
 	* wl-mule.el (wl-draft-overload-menubar): Taken from wl-e21.el.
 
 	* wl-summary.el (wl-summary-write-current-folder): Call wl-draft
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 90b5f23..8e73b84 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -484,16 +484,19 @@
 
 (defun wl-draft-overload-menubar ()
   (when (featurep 'menubar)
-;    (add-menu-item '("Mail") "Preview Message"
-;		   'wl-draft-preview-message t "Preview Message")
     (add-menu-item '("Mail") "Send, Keep Editing"
 		   'wl-draft-send t "Send Mail")
     (add-menu-item '("Mail") "Send Message"
 		   'wl-draft-send-and-exit t "Send and Exit")
-;    (add-menu-item '("Mail") "Save Draft and Exit"
-;		   'wl-draft-save-and-exit t "Save Draft and Exit")
     (delete-menu-item '("Mail" "Send Mail"))
-    (delete-menu-item '("Mail" "Send and Exit"))))
+    (delete-menu-item '("Mail" "Send and Exit"))
+    (add-menu-item '("Mail") "Preview Message"
+		   'wl-draft-preview-message t "Cancel")
+    (add-menu-item '("Mail") "Save Draft and Exit"
+		   'wl-draft-save-and-exit t "Cancel")
+    (add-menu-item '("Mail") "Kill Current Draft"
+		   'wl-draft-kill t "Cancel")
+    (delete-menu-item '("Mail" "Cancel"))))
 
 (defun wl-draft-mode-setup ()
   (require 'derived)