From df05fb6e8caf89439f6bb372e7b8a414455e365b Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Fri, 24 Jun 2016 11:19:45 +0200
Subject: email: encrypt if parent message was encrypted.

---
 lisp/email.el | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lisp/email.el')

diff --git a/lisp/email.el b/lisp/email.el
index b5b9a4e..73aa22b 100644
--- a/lisp/email.el
+++ b/lisp/email.el
@@ -85,5 +85,12 @@
 
 (global-set-key (kbd "<f12>") 'mu4e)
 
+;; Encryption
 (setq mml2015-encrypt-to-self t)
 (setq mml2015-sign-with-sender t)
+(add-hook 'mu4e-compose-mode-hook
+  (defun my/maybe-reply-encrypted ()
+    "Encrypt automatically if parent message was also encrypted."
+    (let ((msg mu4e-compose-parent-message))
+      (when (and msg (member 'encrypted (mu4e-message-field msg :flags)))
+        (mml-secure-message-sign-encrypt)))))
-- 
cgit v1.2.3