(mm-inline-message): Correspondence with FLIM.
 ;;; Code:
 
 (require 'mail-parse)
-(require 'mailcap)
+(require 'mm-mailcap)
 (require 'mm-bodies)
 (require 'mm-decode)
 
          (insert "\n"))
        (insert "----------\n\n")
        (when handles
-         (setq gnus-article-mime-handles
-               (nconc gnus-article-mime-handles 
-                      (if (listp (car handles)) 
-                          handles (list handles)))))
+         (mm-handle-set-child handle handles))
        (mm-handle-set-undisplayer
         handle
         `(lambda ()