From: Jameson Graef Rollins Date: Mon, 14 Apr 2014 19:40:50 +0000 (-0700) Subject: emacs: remove auto-signing of replies to signed messages X-Git-Tag: 0.18_rc0~28 X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=16a3103023749a8bf1d9bcc232fd50527abe6876;p=notmuch.git 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. --- 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))))