Remove Message and mm-decode XEmacs compat code

[gnu-emacs] / lisp / gnus / mm-partial.el

diff --git a/lisp/gnus/mm-partial.el b/lisp/gnus/mm-partial.el
index 523a53b7f5e2042a9604fed8983f81d138752b2d..2b037f1cf96318bc9b2ae0f64d88e3ebe6209e72 100644 (file)
--- a/lisp/gnus/mm-partial.el
+++ b/lisp/gnus/mm-partial.el
@@ -136,13 +136,6 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
           handle
           `(lambda ()
              (let (buffer-read-only)
-               (condition-case nil
-                   ;; This is only valid on XEmacs.
-                   (mapcar (lambda (prop)
-                           (remove-specifier
-                            (face-property 'default prop) (current-buffer)))
-                           '(background background-pixmap foreground))
-                 (error nil))
                (delete-region ,(point-min-marker) ,(point-max-marker))))))))))
 
 (provide 'mm-partial)