+(defvar wl-message-mode-map nil)
+(if wl-message-mode-map
+ ()
+ (setq wl-message-mode-map (make-sparse-keymap))
+ (define-key wl-message-mode-map "q" 'wl-message-exit)
+ (define-key wl-message-mode-map "n" 'wl-message-exit)
+ (define-key wl-message-mode-map "p" 'wl-message-exit))
+