* gnus-cus.el (()): Make sure that calling `gnus-visual-p' during

	byte-compilation doesn't bug out.

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 12472e28c027ad2ec7d6af45cc9129106b55d16a..78ef0d71e3bf57c26a41a36d5e20605e4842210e 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -108,11 +108,13 @@ Face used for group or summary buffer mouse highlighting.
 The line beneath the mouse pointer will be highlighted with this
 face.")
        (name . gnus-mouse-face)
-       (calculate . (if (gnus-visual-p 'mouse-face 'highlight)
-                        (if (boundp 'gnus-mouse-face)
-                            gnus-mouse-face
-                          'highlight)
-                      'default))
+       (calculate . (condition-case ()
+                        (if (gnus-visual-p 'mouse-face 'highlight)
+                            (if (boundp 'gnus-mouse-face)
+                                gnus-mouse-face
+                              'highlight)
+                          'default))
+                  (error 'default))
        (type . face))
        ((tag . "Article Display")
        (doc . "Controls how the article buffer will look.