* lisp/message.el (message-mode-map): Define key `C-x k'.

diff --git a/lisp/message.el b/lisp/message.el
index 4487c32..3d7ef16 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1275,7 +1275,9 @@ Return the number of headers removed."
   (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
   (define-key message-mode-map "\M-\r" 'message-newline-and-reformat)
 
-  (define-key message-mode-map "\t" 'message-tab))
+  (define-key message-mode-map "\t" 'message-tab)
+
+  (define-key message-mode-map "\C-xk" 'message-kill-buffer))
 
 (easy-menu-define
  message-mode-menu message-mode-map "Message Menu."