Commit 722a8409 authored by Dave Love's avatar Dave Love
Browse files

Use featurep for XEmacs test.

(mm-inline-message): Test for `remove-specifier'; don't use
condition-case.
parent 2e049946
...@@ -36,6 +36,10 @@ ...@@ -36,6 +36,10 @@
2000-11-08 Dave Love <fx@gnu.org> 2000-11-08 Dave Love <fx@gnu.org>
* mm-view.el: Use featurep for XEmacs test.
(mm-inline-message): Test for `remove-specifier'; don't use
condition-case.
* mm-bodies.el (mm-encode-body): Use mm-multibyte-p. * mm-bodies.el (mm-encode-body): Use mm-multibyte-p.
* gnus-score.el (gnus-score-load-file): Use expand-file-name. * gnus-score.el (gnus-score-load-file): Use expand-file-name.
......
...@@ -64,7 +64,7 @@ ...@@ -64,7 +64,7 @@
(set-extent-property annot 'duplicable t))) (set-extent-property annot 'duplicable t)))
(eval-and-compile (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-xemacs)
(defalias 'mm-inline-image 'mm-inline-image-emacs))) (defalias 'mm-inline-image 'mm-inline-image-emacs)))
...@@ -251,13 +251,12 @@ ...@@ -251,13 +251,12 @@
handle handle
`(lambda () `(lambda ()
(let (buffer-read-only) (let (buffer-read-only)
(condition-case nil (if (fboundp 'remove-specifier)
;; This is only valid on XEmacs. ;; This is only valid on XEmacs.
(mapcar (lambda (prop) (mapcar (lambda (prop)
(remove-specifier (remove-specifier
(face-property 'default prop) (current-buffer))) (face-property 'default prop) (current-buffer)))
'(background background-pixmap foreground)) '(background background-pixmap foreground)))
(error nil))
(delete-region ,(point-min-marker) ,(point-max-marker))))))))) (delete-region ,(point-min-marker) ,(point-max-marker)))))))))
(defun mm-display-inline-fontify (handle mode) (defun mm-display-inline-fontify (handle mode)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment