diff options
| author | David Bremner <david@tethera.net> | 2022-03-19 07:07:53 -0300 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2022-05-16 07:12:28 -0300 |
| commit | 817e53f4dbda45bfad22bc9b9fb75d9c90c49774 (patch) | |
| tree | c0b49e04f7f7c0bfa0f0656d9537fde8ec3e4893 /emacs/notmuch-lib.el | |
| parent | e663231681b129befadd9f66cb064c104149fb16 (diff) | |
emacs: factor out calculation of mm-inline-override-types
The intended use case of this new function is to make reply behaviour
track that of show with respect to attachments.
Also fix the glob (which worked by fluke) into the documented regexp.
Diffstat (limited to 'emacs/notmuch-lib.el')
| -rw-r--r-- | emacs/notmuch-lib.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 6fc71cc7..1cc7e9c4 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -1037,6 +1037,14 @@ region if the region is active, or both `point' otherwise." 'notmuch-interactive-region "notmuch 0.29") +(defun notmuch--inline-override-types () + "Override mm-inline-override-types to stop application/* +parts from being displayed unless the user has customized +it themselves." + (if (equal mm-inline-override-types + (eval (car (get 'mm-inline-override-types 'standard-value)))) + (cons "application/.*" mm-inline-override-types) + mm-inline-override-types)) ;;; _ (provide 'notmuch-lib) |