From: morioka <morioka>
Date: Tue, 16 Jun 1998 16:10:59 +0000 (+0000)
Subject: update.
X-Git-Tag: chao-1_3_0_9~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fb92f8377368f4e8da2b4761ba420b3f275d927a;p=elisp%2Fflim.git

update.
---

diff --git a/ChangeLog b/ChangeLog
index 9ff431d..06ceda7 100644
--- 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
--- a/FLIM-VERSION
+++ b/FLIM-VERSION
@@ -25,3 +25,4 @@
 ;;-------------------------------------------------------------------------
 1.2.0	Takeda			$(BC]ED(B		; = $(B6aE4(B $(B5~ET@~(B
 1.3.0	Kuinabashi		$(B$/$$$J66(B
+1.4.0	J-Dþjò-A			$(B==>r(B
diff --git a/mime-def.el b/mime-def.el
index 8b21591..915dba1 100644
--- 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,D~(Bj,Dr(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
 ;;;