X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-mua.el;h=df2ac4470f5200fcfb183f5c1cf01c5c84a15c24;hb=0888639489dcde2b60e425d76842a4970e444cf6;hp=7a341ebf0588a3e91ee3666b119701be2ca91c8f;hpb=040c3236afcf95bead0324a48c2e0b9cd7934993;p=notmuch diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index 7a341ebf..df2ac447 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -103,7 +103,7 @@ Note that these functions use `mail-citation-hook' if that is non-nil." "Function to decide which parts get a header when replying. This function specifies which parts of a mime message with -mutiple parts get a header." +multiple parts get a header." :type '(radio (const :tag "No part headers" notmuch-show-reply-insert-header-p-never) (const :tag "All except multipart/* and hidden parts" @@ -181,7 +181,7 @@ mutiple parts get a header." reply original) (when process-crypto - (setq args (append args '("--decrypt")))) + (setq args (append args '("--decrypt=true")))) (if reply-all (setq args (append args '("--reply-to=all"))) @@ -543,6 +543,7 @@ unencrypted. Really send? ")))) (defun notmuch-mua-send-common (arg &optional exit) (interactive "P") + (run-hooks 'notmuch-mua-send-hook) (when (and (notmuch-mua-check-no-misplaced-secure-tag) (notmuch-mua-check-secure-tag-has-newline)) (letf (((symbol-function 'message-do-fcc) #'notmuch-maildir-message-do-fcc))