`(setcar (nthcdr 3 ,handle) ,function))
(defmacro mm-handle-disposition (handle)
`(nth 4 ,handle))
-(defmacro mm-handle-set-disposition (handle disposition)
- `(setcar (nthcdr 4 ,handle) ,disposition))
(defmacro mm-handle-description (handle)
`(nth 5 ,handle))
-(defmacro mm-handle-set-description (handle description)
- `(setcar (nthcdr 5 ,handle) ,description))
(defmacro mm-handle-cache (handle)
`(nth 6 ,handle))
(defmacro mm-handle-set-cache (handle contents)