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