From 49d9e51de2e893db73d193935f96e0ffdd4187d2 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 10 Mar 2002 17:56:19 +0000 Subject: [PATCH] * wl-e21.el (wl-draft-overload-menubar): Use define-key-after to add "Preview Message" and "Save Draft and Exit". --- wl/ChangeLog | 5 +++++ wl/wl-e21.el | 16 ++++++++++++---- 2 files changed, 17 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 5011a30..35c5b03 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,10 @@ 2002-03-10 Yoichi NAKAYAMA + * wl-e21.el (wl-draft-overload-menubar): Use define-key-after to + add "Preview Message" and "Save Draft and Exit". + +2002-03-10 Yoichi NAKAYAMA + * wl-addrmgr.el (wl-addrmgr-quit-yes): Put cursor on draft buffer if addrmgr is called from draft in splitted window. diff --git a/wl/wl-e21.el b/wl/wl-e21.el index 6262ac6..11d3cfc 100644 --- a/wl/wl-e21.el +++ b/wl/wl-e21.el @@ -578,16 +578,24 @@ (defun wl-draft-overload-menubar () (let ((keymap (current-local-map))) -; (define-key keymap [menu-bar mail preview] -; '("Preview Message" . wl-draft-preview-message)) (define-key keymap [menu-bar mail send] '("Send Message" . wl-draft-send-and-exit)) (define-key keymap [menu-bar mail send-stay] '("Send, Keep Editing" . wl-draft-send)) + (define-key-after (lookup-key keymap [menu-bar mail]) + [mail-sep-send] '("--") + 'send-stay) (define-key keymap [menu-bar mail cancel] '("Kill Current Draft" . wl-draft-kill)) -; (define-key keymap [menu-bar mail save] -; '("Save Draft and Exit" . wl-draft-save-and-exit)) + (define-key-after (lookup-key keymap [menu-bar mail]) + [save] '("Save Draft and Exit" . wl-draft-save-and-exit) + 'cancel) + (define-key-after (lookup-key keymap [menu-bar mail]) + [mail-sep-exit] '("--") + 'save) + (define-key-after (lookup-key keymap [menu-bar mail]) + [preview] '("Preview Message" . wl-draft-preview-message) + 'mail-sep-exit) (define-key keymap [menu-bar mail yank] '("Cite Message" . wl-draft-yank-original)) (define-key keymap [menu-bar mail signature] -- 1.7.10.4