add back routine to kill the current buffer in message mode

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index 62a5fcfc77e21a5d316a926838a34d8c311ec6b6..b29e1439203a2a3083d9c57cb1afe05e24a80490 100644 (file)
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -1445,7 +1445,9 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
   :hook 'my/message-mode-settings
   :hook 'turn-on-flyspell
   :bind (:map message-mode-map
-      ("C-c C-a" . my/post-attach-file))
+      ("C-c C-a" . my/post-attach-file)
+      ("C-x p" . my/message-kill-buffer)
+      )
   :config
   (defun my/message-mode-settings ()
     (font-lock-add-keywords nil
@@ -1454,7 +1456,10 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
               ("^[ \t]*>[ \t]*>.*$"
                (0 'message-double-quoted-text-face))))
     )
-
+  (defun my/message-kill-buffer ()
+    (interactive)
+    (kill-buffer nil)
+    )
   (defun my/post-attach-file ()
     "Prompt for an attachment."
     (interactive)
@@ -2593,9 +2598,6 @@ same directory as the org-buffer and insert a link to this file."
     ))
 ; (setq mouse-drag-copy-region t)
 
-;; tramp configuration
-(setq tramp-use-ssh-controlmaster-options nil)
-
 (setq-default c-indent-level 4)
 (setq-default c-brace-imaginary-offset 0)
 (setq-default c-brace-offset -4)