diff options
| author | David Bremner <david@tethera.net> | 2017-12-08 22:19:06 -0400 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2017-12-08 22:19:06 -0400 |
| commit | 040c3236afcf95bead0324a48c2e0b9cd7934993 (patch) | |
| tree | 9732f633b47cc71797f966c9ac4113b1ebac7801 /emacs | |
| parent | be555b9d27f5675ef04edc5a34a4dc2b6dfc71ff (diff) | |
| parent | ae55a86639f86ad1b547e961f71b1bde2180752d (diff) | |
Merge branch 'release'
Conflicts:
NEWS
Add in NEWS from point release
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/notmuch-show.el | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 99390277..43debb26 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -773,14 +773,19 @@ will return nil if the CID is unknown or cannot be retrieved." (defun notmuch-show-insert-part-text/x-vcalendar (msg part content-type nth depth button) (notmuch-show-insert-part-text/calendar msg part content-type nth depth button)) -;; https://bugs.gnu.org/28350 -(defun notmuch-show--enriched-decode-display-prop (start end &optional param) - (list start end)) - -(defun notmuch-show-insert-part-text/enriched (msg part content-type nth depth button) - (advice-add 'enriched-decode-display-prop :override - #'notmuch-show--enriched-decode-display-prop) - nil) +(if (version< emacs-version "25.3") + ;; https://bugs.gnu.org/28350 + ;; + ;; For newer emacs, we fall back to notmuch-show-insert-part-*/* + ;; (see notmuch-show-handlers-for) + (defun notmuch-show-insert-part-text/enriched (msg part content-type nth depth button) + ;; By requiring enriched below, we ensure that the function enriched-decode-display-prop + ;; is defined before it will be shadowed by the letf below. Otherwise the version + ;; in enriched.el may be loaded a bit later and used instead (for the first time). + (require 'enriched) + (letf (((symbol-function 'enriched-decode-display-prop) + (lambda (start end &optional param) (list start end)))) + (notmuch-show-insert-part-*/* msg part content-type nth depth button)))) (defun notmuch-show-get-mime-type-of-application/octet-stream (part) ;; If we can deduce a MIME type from the filename of the attachment, |
