diff options
| author |  Jameson Graef Rollins <jrollins@finestructure.net> | 2014-04-14 12:40:50 -0700 |
|---|---|---|
| committer |  David Bremner <david@tethera.net> | 2014-04-14 23:16:40 -0300 |
| commit | 16a3103023749a8bf1d9bcc232fd50527abe6876 (patch) | |
| tree | 600e35ed2f379b7cae4bd52569c0a1439fae9e73 /emacs | |
| parent | c2048addd40be3047231c786dd8162cfb80a8181 (diff) | |
emacs: remove auto-signing of replies to signed messages
It was decided that auto-signing is potentially too troublesome for the
apparently common case of users who enable crypto processing for the
purpose of checking signature validity but who are not in a position to
sign out-going messages. Users can still manually invoke signing as needed.
Encrypting replies to encrypted messages is more of a security issue
so we leave it in place.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/notmuch-mua.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index bf6253fc..95e4a4d3 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -116,10 +116,9 @@ list." notmuch-mua-hidden-headers)) (defun notmuch-mua-reply-crypto (parts) + "Add mml sign-encrypt flag if any part of original message is encrypted." (loop for part in parts - if (notmuch-match-content-type (plist-get part :content-type) "multipart/signed") - do (mml-secure-message-sign) - else if (notmuch-match-content-type (plist-get part :content-type) "multipart/encrypted") + if (notmuch-match-content-type (plist-get part :content-type) "multipart/encrypted") do (mml-secure-message-sign-encrypt) else if (notmuch-match-content-type (plist-get part :content-type) "multipart/*") do (notmuch-mua-reply-crypto (plist-get part :content)))) @@ -236,7 +235,7 @@ list." ;; Quote the original message according to the user's configured style. (message-cite-original))) - ;; Sign and/or encrypt replies to signed and/or encrypted messages. + ;; Crypto processing based crypto content of the original message (when process-crypto (notmuch-mua-reply-crypto (plist-get original :body)))) |