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

	byte-compilation doesn't bug out.

1 files changed, 7 insertions, 5 deletions

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 12472e28c02..78ef0d71e3b 100644
--- 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.