From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 21 Aug 2023 19:24:19 +0000 (-0700)
Subject: add back routine to kill the current buffer in message mode
X-Git-Url: https://git.donarmstrong.com/?p=lib.git;a=commitdiff_plain;h=4fe26ea588e1180ef04a879020106b053585115b

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 62a5fcf..b29e143 100644
--- 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)