debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 12:28:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: ad-activate 'mm-shr after ad-disable-advice 'mm-shr

Browse source 
Imitated from "Enabling advice" in Emacs lisp manual...

ad-disable-advice by itself only changes the enable flag for a
piece of advice. To make the change take effect in the
advised definition, the advice needs to be activated again.
This commit is contained in:
Tomi Ollila 2014-01-27 22:32:12 +02:00 committed by David Bremner
parent 3e1d7f6476
commit 9ac863c549
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
emacs/notmuch-lib.el
View file

@ -531,7 +531,8 @@ the given type."
(if (>= emacs-major-version 24) (if (>= emacs-major-version 24)
(defadvice mm-shr (before load-gnus-arts activate) (defadvice mm-shr (before load-gnus-arts activate)
(require 'gnus-art nil t) (require 'gnus-art nil t)
(ad-disable-advice 'mm-shr 'before 'load-gnus-arts))) (ad-disable-advice 'mm-shr 'before 'load-gnus-arts)
(ad-activate 'mm-shr)))
(defun notmuch-mm-display-part-inline (msg part nth content-type process-crypto) (defun notmuch-mm-display-part-inline (msg part nth content-type process-crypto)
"Use the mm-decode/mm-view functions to display a part in the "Use the mm-decode/mm-view functions to display a part in the