From: yoichi <yoichi>
Date: Sun, 10 Mar 2002 17:56:19 +0000 (+0000)
Subject: * wl-e21.el (wl-draft-overload-menubar): Use define-key-after to
X-Git-Tag: wl-2_9_8~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=49d9e51de2e893db73d193935f96e0ffdd4187d2;p=elisp%2Fwanderlust.git

* wl-e21.el (wl-draft-overload-menubar): Use define-key-after to
add "Preview Message" and "Save Draft and Exit".
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+	* 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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
 	* 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]