X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-compat.el;h=2b25e45edcdce476b5fafd773745b9a78fd6d299;hb=873ba7b51ddfb07246cd874b7de72662308236c9;hp=130748853e68d3a8ef78389f2fe774f64f75ed41;hpb=dce35658e5d9aebb1509d691e0de256c1511854b;p=gnus

diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index 130748853..2b25e45ed 100644
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -97,6 +97,13 @@ TRASH is ignored."
 			   (lambda (process status)
 			     (apply function process status args))))))
 
+;; XEmacs 21.4
+(unless (fboundp 'bound-and-true-p)
+  (defmacro bound-and-true-p (var)
+    "Return the value of symbol VAR if it is bound, else nil."
+    (and (boundp var)
+	 (symbol-value var))))
+
 (provide 'gnus-compat)
 
 ;; gnus-compat.el ends here