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