(mime-display-entity): Run `mime-display-header-hook'.

diff --git a/mime-view.el b/mime-view.el
index 3d2bc18..135442b 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -816,6 +816,7 @@ The compressed face will be piped to this command.")
             )))
        (goto-char (point-max))
        (insert "\n")
+       (run-hooks 'mime-display-header-hook)
        )
       (cond ((eq body-presentation-method 'with-filter)
             (let ((body-filter (cdr (assq 'body-filter situation))))