diff options
| author | rekado <rekado@elephly.net> | 2016-06-24 11:19:45 +0200 |
|---|---|---|
| committer | rekado <rekado@elephly.net> | 2016-06-24 11:19:45 +0200 |
| commit | df05fb6e8caf89439f6bb372e7b8a414455e365b (patch) | |
| tree | de4eac57746fdc295b6fb42596b0fe54d4fd1264 | |
| parent | a4e3276cd182f647b4b56e2a685a63b1ceb63c3e (diff) | |
email: encrypt if parent message was encrypted.
| -rw-r--r-- | lisp/email.el | 7 |
1 files changed, 7 insertions, 0 deletions
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))))) |