diff options
| author | Mark Walters <markwalters1009@gmail.com> | 2017-01-28 09:47:42 +0000 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2017-02-26 07:55:00 -0400 |
| commit | df483ed4bd8b7ce6004368860b0130784546bb64 (patch) | |
| tree | ffa9d499b92e223d646c6004a6879c25ca73d607 | |
| parent | 75bb23f74874e3820b0295d0a618045fc5f33417 (diff) | |
emacs: show: stop display of application/* parts
Gnus seems to display application/zip and application/tar by
default. This doesn't seem desirable so we override it.
We only override if the user has not customized
mm-inline-override-types themselves.
| -rw-r--r-- | emacs/notmuch-show.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 364004b8..c670160d 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -1227,7 +1227,15 @@ matched." (interactive "sNotmuch show: \nP") (let ((buffer-name (generate-new-buffer-name (or buffer-name - (concat "*notmuch-" thread-id "*"))))) + (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))) (switch-to-buffer (get-buffer-create buffer-name)) ;; No need to track undo information for this buffer. (setq buffer-undo-list t) |