# HG changeset patch
# User Lars Magne Ingebrigtsen <larsi@gnus.org>
# Date 836618722 0
# Node ID b59b140655ee40ae2a5b07c1b8f0e7997e8aacb7
# Parent  1891a5cddce62d1586b31ecc6e77ef441c000b1f
	* gnus-cus.el (()): Make sure that calling `gnus-visual-p' during
	byte-compilation doesn't bug out.

diff -r 1891a5cddce6 -r b59b140655ee lisp/gnus-cus.el
--- a/lisp/gnus-cus.el	Fri Jul 05 13:35:41 1996 +0000
+++ b/lisp/gnus-cus.el	Sat Jul 06 02:05:22 1996 +0000
@@ -108,11 +108,13 @@
 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.