update.

diff --git a/ChangeLog b/ChangeLog
index 9ff431d..06ceda7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1998-06-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * eword-decode.el (eword-decode-ignored-field-list): Capitalize
+       default value.
+       (eword-decode-structured-field-list): Capitalize default value.
+       (eword-decode-header): Regularize field name by `capitalize'.
+       (mime-insert-decoded-header): New function.
+
 1998-06-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * mailcap.el (mailcap-file): Use `defcustom'.

diff --git a/FLIM-VERSION b/FLIM-VERSION
index 6b4c994..b2317e4 100644 (file)
--- a/FLIM-VERSION
+++ b/FLIM-VERSION
@@ -25,3 +25,4 @@
 ;;-------------------------------------------------------------------------
 1.2.0  Takeda                  \e$(BC]ED\e(B             ; = \e$(B6aE4\e(B \e$(B5~ET@~\e(B
 1.3.0  Kuinabashi              \e$(B$/$$$J66\e(B
+1.4.0  J\e-Dþjò\e-A                      \e$(B==>r\e(B

diff --git a/mime-def.el b/mime-def.el
index 8b21591..915dba1 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -25,7 +25,7 @@
 ;;; Code:
 
 (defconst mime-spadework-module-version-string
-  "Chao 1.3.0 - \"Kuinabashi\"")
+  "Chao 1.4.0 - \"J\e,D~\e(Bj\e,Dr\e(B\"")
 
 
 ;;; @ variables
@@ -120,6 +120,29 @@
          "][" quoted-printable-hex-chars "]"))
 
 
+;;; @ MIME-entity
+;;;
+
+(defsubst make-mime-entity (buffer
+                           header-start header-end body-start body-end
+                           &optional node-id
+                           content-type content-disposition
+                           encoding children)
+  (vector buffer header-start header-end body-start body-end
+         node-id content-type content-disposition encoding children))
+
+(defsubst mime-entity-buffer (entity)              (aref entity 0))
+(defsubst mime-entity-header-start (entity)        (aref entity 1))
+(defsubst mime-entity-header-end (entity)          (aref entity 2))
+(defsubst mime-entity-body-start (entity)          (aref entity 3))
+(defsubst mime-entity-body-end (entity)            (aref entity 4))
+(defsubst mime-entity-node-id (entity)             (aref entity 5))
+(defsubst mime-entity-content-type (entity)        (aref entity 6))
+(defsubst mime-entity-content-disposition (entity) (aref entity 7))
+(defsubst mime-entity-encoding (entity)            (aref entity 8))
+(defsubst mime-entity-children (entity)            (aref entity 9))
+
+
 ;;; @ utility
 ;;;