(require 'mmgeneric)
(require 'mime)
(require 'pces)
-(require 'static)
(require 'mime-parse)
(eval-and-compile
(defun mmimap-entity-section (node-id)
"Return a section string from NODE-ID"
(cond
+ ((null node-id)
+ "1")
((numberp node-id)
(number-to-string (1+ node-id)))
((listp node-id)
entity
(list (mmimap-make-mime-entity
(nth 8 bodystructure) class
- location node-id 0
+ location node-id nil
entity))))
entity))))