+ (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)