+ (let ((url-standalone-mode t))
+ (w3-prepare-buffer)))
+
+(defun mm-view-message ()
+ (mm-enable-multibyte)
+ (gnus-article-prepare-display)
+ (run-hooks 'gnus-article-decode-hook)
+ (fundamental-mode)
+ (goto-char (point-min)))
+
+(defun mm-inline-message (handle)
+ (let ((b (point)))
+ (save-excursion
+ (save-restriction
+ (narrow-to-region b b)
+ (mm-insert-part handle)
+ (run-hooks 'gnus-article-decode-hook)
+ (gnus-article-prepare-display)
+ (mm-handle-set-undisplayer
+ handle
+ `(lambda ()
+ (let (buffer-read-only)
+ (mapc (lambda (prop)
+ (remove-specifier
+ (face-property 'default prop) (current-buffer)))
+ '(background background-pixmap foreground))
+ (delete-region ,(point-min-marker) ,(point-max-marker)))))))))