- (setq content-type
- (list (cons 'type (intern (downcase (car bodystructure))))))
- (if (nth 1 bodystructure)
- (setq content-type (append content-type
- (list
- (cons 'subtype
- (intern
- (downcase
- (nth 1 bodystructure))))))))
- (if (nth 2 bodystructure)
- (setq content-type (append content-type
- (mmimap-parse-parameters-from-list
- (nth 2 bodystructure)))))
- (setq node-id (nconc (list number) node-id))