(mm-handle-set-disposition): New macro.

(mm-handle-set-description): New macro.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 4d030f8..7cd7339 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -78,8 +78,12 @@
   `(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)