From 9a88092c6a0bab362829a1ebcdb8817fd973a6ac Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Tue, 11 Oct 2022 18:56:52 +0200
Subject: Add keybind for quick capturing of mu4e respond tasks

---
 gui/conf/email.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gui/conf/email.el b/gui/conf/email.el
index 4236bff..442540e 100644
--- a/gui/conf/email.el
+++ b/gui/conf/email.el
@@ -84,7 +84,14 @@
                "* TODO /%:subject/\n See %a\n%?"
                :prepend t))
 (add-to-list 'org-capture-templates
-             '("r" "Respond to eMail" entry (file org-default-notes-file)
+             '("rm" "Respond to eMail" entry (file org-default-notes-file)
                "* TODO Respond to /%:subject/\n See %a\n%?"
                :prepend t
                :immediate-finish t))
+
+(defun org-mail-capture-response ()
+  (interactive)
+  (call-interactively 'org-store-link)
+  (org-capture nil "rm"))
+
+(define-key mu4e-headers-mode-map (kbd "C-c r") 'org-mail-capture-response)
-- 
cgit v1.2.3