From: Mark Walters Date: Sat, 28 Jan 2017 09:47:42 +0000 (+0000) Subject: emacs: show: stop display of application/* parts X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=df483ed4bd8b7ce6004368860b0130784546bb64;p=notmuch.git 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. --- 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)