(defun mm-inline-text (handle)
    (let ((type (cadr (split-string (car (mm-handle-type handle)) "/")))
  	text buffer-read-only)
      (cond
       ((equal type "plain")
!       (with-temp-buffer
! 	(insert-buffer-substring (mm-handle-buffer handle))
! 	(mm-decode-content-transfer-encoding
! 	 (mm-handle-encoding handle)
! 	 (car (mm-handle-type handle)))
! 	(setq text (buffer-string)))
        (let ((b (point)))
  	(insert text)
  	(save-restriction
--- 39,59 ----
      (set-extent-property annot 'mm t)
      (set-extent-property annot 'duplicable t)))
  
+ (defvar mm-w3-setup nil)
+ (defun mm-setup-w3 ()
+   (unless mm-w3-setup
+     (w3-do-setup)
+     (require 'url)
+     (require 'w3-vars)
+     (url-register-protocol 'cid nil 'url-identity-expander)
+     (setq mm-w3-setup t)))
+ 
  (defun mm-inline-text (handle)
    (let ((type (cadr (split-string (car (mm-handle-type handle)) "/")))
  	text buffer-read-only)
      (cond
       ((equal type "plain")
!       (setq text (mm-get-part handle))
        (let ((b (point)))
  	(insert text)
  	(save-restriction