+(defmacro mail-header-entity (header)
+ "Return mime-entity in HEADER."
+ `(aref ,header 1))
+
+(defmacro mail-header-set-entity (header entity)
+ "Set mime-entity of HEADER to ENTITY."
+ `(aset ,header 1 entity))
+
+(defmacro mail-header-set-field (header field body)
+ `(mime-entity-set-original-header-internal
+ (mail-header-entity ,header)
+ (put-alist ,field ,body
+ (mime-entity-original-header-internal
+ (mail-header-entity ,header)))
+ ))
+
+(defmacro mail-header-set-parsed-field (header field body)
+ `(mime-entity-set-parsed-header-internal
+ (mail-header-entity ,header)
+ (put-alist ,field ,body
+ (mime-entity-parsed-header-internal
+ (mail-header-entity ,header)))
+ ))
+