# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 973727588 0
# Node ID 71ce9ad48432f56772c92ab42264497641a298dc
# Parent  e97560ed979b3b8f06a40d24d7cd5a1de1eafbe5
Use featurep for XEmacs test.
(mm-inline-message): Test for `remove-specifier'; don't use
condition-case.

diff -r e97560ed979b -r 71ce9ad48432 lisp/gnus/mm-view.el
--- a/lisp/gnus/mm-view.el	Wed Nov 08 23:48:13 2000 +0000
+++ b/lisp/gnus/mm-view.el	Wed Nov 08 23:53:08 2000 +0000
@@ -64,7 +64,7 @@
     (set-extent-property annot 'duplicable t)))
 
 (eval-and-compile
-  (if (string-match "XEmacs" (emacs-version))
+  (if (featurep 'xemacs)
       (defalias 'mm-inline-image 'mm-inline-image-xemacs)
     (defalias 'mm-inline-image 'mm-inline-image-emacs)))
 
@@ -251,13 +251,12 @@
 	 handle
 	 `(lambda ()
 	    (let (buffer-read-only)
-	      (condition-case nil
+	      (if (fboundp 'remove-specifier)
 		  ;; This is only valid on XEmacs.
 		  (mapcar (lambda (prop)
 			    (remove-specifier
 			     (face-property 'default prop) (current-buffer)))
-			  '(background background-pixmap foreground))
-		(error nil))
+			  '(background background-pixmap foreground)))
 	      (delete-region ,(point-min-marker) ,(point-max-marker)))))))))
 
 (defun mm-display-inline-fontify (handle mode)