(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
(mime-imap-location-section-body
(mime-entity-location-internal entity)
- (if (if (eq (car (mime-entity-node-id-internal entity)) 0)
- (cdr (mime-entity-node-id-internal entity))
- (mime-entity-node-id-internal entity))
+ (if (mime-entity-node-id-internal entity)
(concat (mmimap-entity-section
- (if (eq (car (mime-entity-node-id-internal entity)) 0)
- (cdr (mime-entity-node-id-internal entity))
- (mime-entity-node-id-internal entity)))
+ (mime-entity-node-id-internal entity))
".HEADER")
"HEADER")))))