From: yamaoka <yamaoka>
Date: Wed, 7 Oct 1998 23:34:21 +0000 (+0000)
Subject: 	* lisp/message.el (message-mode-map): Define key `C-x k'.
X-Git-Tag: gnus-6_8-199811302358~68
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bf3f8f497fc14e45e9d63b23a41de257873f1ea2;p=elisp%2Fgnus.git-

	* 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
--- 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."