master 1007800a59: Make mh-colors-available-p obsolete

[Stefan Kangas]

branch: master
commit 1007800a5994ac49b6bc9cd7528edb2d709d2031
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Make mh-colors-available-p obsolete
    
    * lisp/mh-e/mh-utils.el (mh-colors-available-p): Redefine as
    obsolete function alias for 'display-color-p'.
---
 lisp/mh-e/mh-folder.el |  2 +-
 lisp/mh-e/mh-utils.el  | 10 +++-------
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el
index 5b90290237..308660431a 100644
--- a/lisp/mh-e/mh-folder.el
+++ b/lisp/mh-e/mh-folder.el
@@ -583,7 +583,7 @@ perform the operation on all messages in that region.
   (make-local-variable 'desktop-save-buffer)
   (setq desktop-save-buffer t)
   (setq-local
-   mh-colors-available-flag (mh-colors-available-p)
+   mh-colors-available-flag (display-color-p)
                                         ; Do we have colors available
    mh-current-folder (buffer-name)      ; Name of folder, a string
    mh-show-buffer (format "show-%s" (buffer-name)) ; Buffer that displays msgs
diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index dd662f3552..b2c79350c4 100644
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -59,13 +59,6 @@ used in lieu of `search' in the CL package."
           (point))
       (set-syntax-table syntax-table))))
 
-;;;###mh-autoload
-(defun mh-colors-available-p ()
-  "Check if colors are available in the Emacs being used."
-  ;; FIXME: Can this be replaced with `display-color-p'?
-  (let ((color-cells (display-color-cells)))
-    (and (numberp color-cells) (>= color-cells 8))))
-
 ;;;###mh-autoload
 (defun mh-colors-in-use-p ()
   "Check if colors are being used in the folder buffer."
@@ -1005,6 +998,9 @@ If the current line is too long truncate a part of it as 
well."
     (goto-char (point-min))
     (re-search-forward mh-signature-separator-regexp nil t)))
 
+;;;###mh-autoload
+(define-obsolete-function-alias 'mh-colors-available-p #'display-color-p 
"29.1")
+
 (provide 'mh-utils)
 
 ;; Local Variables: