From: morioka <morioka>
Date: Thu, 20 May 1999 10:24:32 +0000 (+0000)
Subject: (mime-display-entity): Don't move to (point-max) before run
X-Git-Tag: semi-1_13_5~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=75279aac4c5f36c3b0a3be0cf2c1b189b2c85960;p=elisp%2Fsemi.git

(mime-display-entity): Don't move to (point-max) before run
`mime-display-header-hook)'.
---

diff --git a/mime-view.el b/mime-view.el
index 51938b7..086bd16 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -768,9 +768,9 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 	  (mime-insert-header entity
 			      mime-view-ignored-field-list
 			      mime-view-visible-field-list))
-	(goto-char (point-max))
 	(run-hooks 'mime-display-header-hook)
 	(put-text-property nhb (point-max) 'mime-view-entity-header entity)
+	(goto-char (point-max))
 	(insert "\n")
 	)
       (setq nbb (point))