diff options
Diffstat (limited to 'lisp/email.el')
-rw-r--r-- | lisp/email.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/email.el b/lisp/email.el index 735588b..5f1ccd9 100644 --- a/lisp/email.el +++ b/lisp/email.el @@ -113,7 +113,10 @@ (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))) + (when (and msg + (or (member 'encrypted (mu4e-message-field msg :flags)) + (string-match "-----BEGIN PGP MESSAGE-----$" + (mu4e-message-field msg :body-txt)))) (mml-secure-message-sign-encrypt))))) (add-hook 'mu4e-view-mode-hook |