(primary-type (mime-content-type-primary-type content-type)))
     (cond ((eq primary-type 'multipart)
           (mime-parse-multipart entity)
-          (mime-entity-children-internal entity)
           )
          ((and (eq primary-type 'message)
                (memq (mime-content-type-subtype content-type)
                      '(rfc822 news external-body)
                      ))
           (mime-parse-encapsulated entity)
-          (mime-entity-children-internal entity)
-          )
-         )))
+          ))
+    ))
 
 (mm-define-method entity-content ((entity buffer))
   (save-excursion