* lisp/message.el (message-mode-map): Use `define-key' instead of

	`substitute-key-definition' for `message-kill-buffer'.

diff --git a/lisp/message.el b/lisp/message.el
index 22f767a..eb37072 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1386,8 +1386,7 @@ Point is left at the beginning of the narrowed-to region."
 
   (define-key message-mode-map "\t" 'message-tab)
 
-  (substitute-key-definition 'kill-buffer 'message-kill-buffer
-                            message-mode-map))
+  (define-key message-mode-map "\C-xk" 'message-kill-buffer))
 
 (easy-menu-define
  message-mode-menu message-mode-map "Message Menu."