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

emacs: factor out calculation of mm-inline-override-types

Browse source 
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.
This commit is contained in:
David Bremner 2022-03-19 07:07:53 -03:00
parent e663231681
commit 817e53f4db
2 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch-lib.el
View file

@ -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)

10
emacs/notmuch-show.el
View file

@ -1264,14 +1264,8 @@ matched."
(let ((buffer-name (generate-new-buffer-name
(or buffer-name
(concat "*notmuch-" thread-id "*"))))
;; We override mm-inline-override-types to stop application/*
;; parts from being displayed unless the user has customized
;; it themselves.
(mm-inline-override-types
(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)))
(mm-inline-override-types (notmuch--inline-override-types)))
(pop-to-buffer-same-window (get-buffer-create buffer-name))
;; No need to track undo information for this buffer.
(setq buffer-undo-list t)