From c99303aa1ced3bc1c4d73b74c7903756ffbbe72b Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 11 Mar 2002 18:34:58 +0000 Subject: [PATCH] * wl-xmas.el (wl-draft-overload-menubar): Add menu properly. (tested on xemacs-21.4.6) --- wl/ChangeLog | 2 ++ wl/wl-xmas.el | 13 ++++++++----- 2 files changed, 10 insertions(+), 5 deletions(-) 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 + * 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) -- 1.7.10.4