Sync up with the latest semi-1_13.

diff --git a/ChangeLog b/ChangeLog
index 3aa1586..610a4de 100644 (file)
--- 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 (file)
--- 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.
+
 \f
 * Changes in SEMI 1.12
 

diff --git a/mime-view.el b/mime-view.el
index b5d86d7..67d284d 100644 (file)
--- 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))