From xemacs-m  Mon Mar 24 22:58:56 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id WAA10555
	for <xemacs-beta@xemacs.org>; Mon, 24 Mar 1997 22:58:56 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id VAA14203;
	Mon, 24 Mar 1997 21:10:26 -0800
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: file-remote-p broken
References: <y9lvi6h75ym.fsf@modas.informatik.uni-tuebingen.de>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: sperber@informatik.uni-tuebingen.de's message of 24 Mar 1997 14:52:17 +0100
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 24 Mar 1997 21:10:24 -0800
Message-ID: <m2hgi0a75r.fsf@altair.xemacs.org>
Lines: 41
X-Mailer: Gnus v5.4.37/XEmacs 20.1(beta10)

I'm trying to get this patch squared away before applying, bear with
me.

Michael Sperber writes:

> At least in 20.1-b9.  (Has noone used this?)  Its interface is also a
> bit too generous.  I hope this applies to 19.15, also.  My next 19.15
> beta arrives in three hours ...

>   ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
> ! (defun file-remote-p (file-name)
> !   "Test whether FILE-NAME resides on the local system.

>   The special value 'unknown is returned if no remote file access package
>   has been loaded."

Michael K. has already pointed out those lines no longer apply.

> !   (cond ((featurep 'ange-ftp) (and (ange-ftp-ftp-path file-name) t))
>           (t (require 'efs)
                        ^^^^

Shouldn't this be 'efs-auto?  And we should probably add a guard on
`allow-remote-paths' before doing it.

> ! 	   (and (efs-ftp-path file-name) t))))
  
>   ;;; files.el ends here


(defun file-remote-p (file)
  "Test whether file resides on the local system."
  (cond ((featurep 'ange-ftp) (ange-ftp-ftp-path file-name))
        (allow-remote-paths (require 'efs-auto)
	   (efs-ftp-path file-name))
	(t nil)))

Anything else?
-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

