debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: notmuch-mua-add-more-hidden-headers: use local binding

Browse source
This commit is contained in:
Jonas Bernoulli 2021-01-10 19:47:19 +01:00 committed by David Bremner
parent a2bf29ad35
commit 6cae6f32b1
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
emacs/notmuch-mua.el
View file

@ -217,11 +217,10 @@ Typically this is added to `notmuch-mua-send-hook'."
(defun notmuch-mua-reply-crypto (parts) (defun notmuch-mua-reply-crypto (parts)
"Add mml sign-encrypt flag if any part of original message is encrypted." "Add mml sign-encrypt flag if any part of original message is encrypted."
(cl-loop for part in parts (cl-loop for part in parts
if (notmuch-match-content-type (plist-get part :content-type) for type = (plist-get part :content-type)
"multipart/encrypted") if (notmuch-match-content-type type "multipart/encrypted")
do (mml-secure-message-sign-encrypt) do (mml-secure-message-sign-encrypt)
else if (notmuch-match-content-type (plist-get part :content-type) else if (notmuch-match-content-type type "multipart/*")
"multipart/*")
do (notmuch-mua-reply-crypto (plist-get part :content)))) do (notmuch-mua-reply-crypto (plist-get part :content))))
;; There is a bug in Emacs' message.el that results in a newline ;; There is a bug in Emacs' message.el that results in a newline