(mime-entity-content-disposition): New implementation.

[elisp/flim.git] / mime-def.el

diff --git a/mime-def.el b/mime-def.el
index 38d5008..c74f445 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -186,10 +186,9 @@
                                     header-start header-end
                                     body-start body-end
                                     &optional node-id
-                                    content-type content-disposition
-                                    encoding children)
+                                    content-type encoding children)
   (vector buffer header-start header-end body-start body-end
-         node-id content-type content-disposition encoding nil
+         node-id content-type nil encoding nil
          children nil))
 
 (defsubst mime-entity-buffer-internal (entity)              (aref entity  0))
@@ -205,6 +204,8 @@
 (defsubst mime-entity-children-internal (entity)            (aref entity 10))
 (defsubst mime-entity-parsed-header-internal (entity)       (aref entity 11))
 
+(defsubst mime-entity-set-content-disposition-internal (entity disposition)
+  (aset entity  7 disposition))
 (defsubst mime-entity-set-original-header-internal (entity header)
   (aset entity  9 header))
 (defsubst mime-entity-set-children-internal (entity children)