(gnus-bookmark-mouse-available-p): Don't test for display-color-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7905d07..6b0283e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-08  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-bookmark.el (gnus-bookmark-mouse-available-p): Don't test for
+       display-color-p.  Reported by Reiner Steib <Reiner.Steib@gmx.de>.
+
 2008-01-06  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-group.el (gnus-group-gmane-group-download-format): New variable.

diff --git a/lisp/gnus-bookmark.el b/lisp/gnus-bookmark.el
index 6341c8e..41f9dd0 100644 (file)
--- a/lisp/gnus-bookmark.el
+++ b/lisp/gnus-bookmark.el
@@ -174,8 +174,8 @@ So the cdr of each bookmark is an alist too.")
 (defmacro gnus-bookmark-mouse-available-p ()
   "Return non-nil if a mouse is available."
   (if (featurep 'xemacs)
-      '(and (eq (device-class) 'color) (device-on-window-system-p))
-    '(and (display-color-p) (display-mouse-p))))
+      '(device-on-window-system-p)
+    '(display-mouse-p)))
 
 (defun gnus-bookmark-remove-properties (string)
   "Remove all text properties from STRING."