diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2021-01-10 19:47:19 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2021-01-15 07:29:09 -0400 |
| commit | 6cae6f32b197f863c2e53a8fc28d888998a4fb7c (patch) | |
| tree | c367a9dc1f8c9acb69978b3196f85cbc49849cb4 | |
| parent | a2bf29ad359539ed48a75ebb593897382d9a1de4 (diff) | |
emacs: notmuch-mua-add-more-hidden-headers: use local binding
| -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 08c73c16..bbf059a2 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -217,11 +217,10 @@ Typically this is added to `notmuch-mua-send-hook'." (defun notmuch-mua-reply-crypto (parts) "Add mml sign-encrypt flag if any part of original message is encrypted." (cl-loop for part in parts - if (notmuch-match-content-type (plist-get part :content-type) - "multipart/encrypted") + for type = (plist-get part :content-type) + if (notmuch-match-content-type type "multipart/encrypted") do (mml-secure-message-sign-encrypt) - else if (notmuch-match-content-type (plist-get part :content-type) - "multipart/*") + else if (notmuch-match-content-type type "multipart/*") do (notmuch-mua-reply-crypto (plist-get part :content)))) ;; There is a bug in Emacs' message.el that results in a newline |