# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 992774599 0
# Node ID e52b4f89d86fced51a7520cdf9feb2a20ca92cf9
# Parent  8e47deabedf6fa5b0070d5493f7cd6e78d1f9719
(ffap-machine-p): Always return nil if
open-network-stream is not fboundp.

diff -r 8e47deabedf6 -r e52b4f89d86f lisp/ffap.el
--- a/lisp/ffap.el	Sun Jun 17 09:22:54 2001 +0000
+++ b/lisp/ffap.el	Sun Jun 17 10:43:19 2001 +0000
@@ -396,6 +396,7 @@
       (cond
        ((eq strategy 'accept) 'accept)
        ((eq strategy 'reject) nil)
+       ((not (fboundp 'open-network-stream)) nil)
        ;; assume (eq strategy 'ping)
        (t
 	(or quiet