From: yamaoka <yamaoka>
Date: Thu, 20 May 1999 22:42:12 +0000 (+0000)
Subject: Sync up with the latest semi-1_13.
X-Git-Tag: wemi-1_13_5~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2d1d5c2d74a1edf286bce333e6ba825a84346f59;p=elisp%2Fsemi.git

Sync up with the latest semi-1_13.
---

diff --git a/ChangeLog b/ChangeLog
index 3aa1586..610a4de 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+1999-05-20  MORIOKA Tomohiko  <tomo@m17n.org>
+
+	* NEWS (Text property `mime-view-entity-{header|body}'): New
+	subsection.
+	(Behavior change about `mime-display-header-hook'): Likewise.
+
+	* mime-view.el (mime-display-entity): Don't move to (point-max)
+	before run `mime-display-header-hook)'.
+
 1999-05-19  MORIOKA Tomohiko  <tomo@m17n.org>
 
 	* mime-view.el (mime-display-entity): Put text-property
diff --git a/NEWS b/NEWS
index ad678eb..3ffd67e 100644
--- a/NEWS
+++ b/NEWS
@@ -23,6 +23,21 @@ Function `mime-play-entity' was changed to permit to run in any buffer
 any buffer.
 
 
+** Text property `mime-view-entity-{header|body}'
+
+Now mime-view put text property `mime-view-entity-header' and
+`mime-view-entity-body' in header and body of each entity.
+
+
+** Behavior change about `mime-display-header-hook'
+
+Function `mime-display-entity' runs `mime-display-header-hook' before
+it inserts "\n".
+
+In addition, now it is cleared that current point means beginning of
+header when `mime-display-entity' runs `mime-display-header-hook'.
+Therefore header-presentation-method must not change current point.
+
 
 * Changes in SEMI 1.12
 
diff --git a/mime-view.el b/mime-view.el
index b5d86d7..67d284d 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -769,9 +769,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))