X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-util.el;h=14551737837d61ca0a170cff86ee5a92ce0f6746;hb=b2e161e45306625b70210104019fc45e262974b2;hp=71ed50591ad85c2da31639d66de0fac2e1e9f40d;hpb=ee1e12dd667738a4738b4eafe4b8b9590cf0a362;p=gnus

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 71ed50591..145517378 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1986,15 +1986,9 @@ definitions to shadow the loaded ones for use in file byte-compilation."
 	      (gnus-macroexpand-all expanded environment)))
 	form))))
 
-(eval-when-compile
-  ;; This is unnecessary in the compiled version as it is a macro.
-  (if (fboundp 'bound-and-true-p)
-      (defalias 'gnus-bound-and-true-p 'bound-and-true-p)
-    (defmacro gnus-bound-and-true-p (var)
-      "Return the value of symbol VAR if it is bound, else nil."
-      `(and (boundp (quote ,var)) ,var))))
-
-(defun gnus-bound-and-true-dumber-p (sym)
+;; Simple check: can be a macro but this way, although slow, it's really clear.
+;; We don't use `bound-and-true-p' because it's not in XEmacs.
+(defun gnus-bound-and-true-p (sym)
   (and (boundp sym) (symbol-value sym)))
 
 (provide 'gnus-util)