From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7070
Path: main.gmane.org!not-for-mail
From: Jan Vroonhof <vroonhof@math.ethz.ch>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: ange-ftp caching problems for remote nndir groups
Date: 02 Jul 1996 20:45:26 +0200
Sender: vroonhof@math.ethz.ch
Message-ID: <bywx0msddl.fsf@math.ethz.ch>
References: <199606272340.XAA00285@alpha.hpl.hp.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035147434 5792 80.91.224.250 (20 Oct 2002 20:57:14 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:57:14 +0000 (UTC)
Cc: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>, ding@ifi.uio.no,
        ange-ftp-lovers%cuckoo.hpl.hp.com@hplb.hpl.hp.com
Return-Path: ding-request@ifi.uio.no
Original-Received: from spork.callamer.com (root@spork.callamer.com [199.74.141.2]) by deanna.miranova.com (8.7.5/8.6.9) with ESMTP id MAA13805 for <steve@miranova.com>; Tue, 2 Jul 1996 12:46:03 -0700
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by spork.callamer.com (8.7.5/8.7.3) with SMTP id MAA19144 for <steve@miranova.com>; Tue, 2 Jul 1996 12:43:05 -0700 (PDT)
Original-Received: from frege.math.ethz.ch (root@frege-math-bb.math.ethz.ch [129.132.148.14]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <UAA15674@ifi.uio.no> ; Tue, 2 Jul 1996 20:46:04 +0200
Original-Received: from fresnel.math.ethz.ch (vroonhof@fresnel-d-math-south-g-servers.math.ethz.ch [129.132.145.6]) by frege.math.ethz.ch (8.6.4/Main-mathdept-mailer) with ESMTP id UAA27851; Tue, 2 Jul 1996 20:46:00 +0200
Original-Received: (vroonhof@localhost) by fresnel.math.ethz.ch (8.6.9/D-MATH-client) id UAA06682; Tue, 2 Jul 1996 20:45:27 +0200
Original-To: Andy Norman <ange@hplb.hpl.hp.com>
In-Reply-To: Andy Norman's message of Thu, 27 Jun 1996 23:40:44 +0000
Original-Lines: 40
X-Mailer: Gnus v5.2.29/XEmacs 19.14
Xref: main.gmane.org gmane.emacs.gnus.general:7070
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7070

Andy Norman <ange@hplb.hpl.hp.com> writes:

> Something yukky like:
> 
> (defun remote-filename-p (path)
>   (if (boundp 'ange-ftp-path-format)
>       (save-match-data
> 	(string-match (car ange-ftp-path-format) path))
>     (if (boundp 'efs-path-regexp)
> 	(save-match-data
> 	  (string-match efs-path-regexp path)))))
> 
> or some similar variant might work OK.
> 					-- ange -- <><

On my prebuild XEmacs 19.14 the variable ange-ftp-path-format is
defined without the ange-ftp package being loaded. Since I am using
efs ange-ftp.el never gets loaded, so I think this should be changed
to:


(defun nnheader-re-read-dir (path)
  "Re-read directory PATH if PATH is on a remote system."
    (if (or (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp))
	(when (string-match efs-path-regexp path)
	  (efs-re-read-dir path))
     (if (or (fboundp 'ange-ftp-re-read-dir) (boundp 'ange-ftp-path-format))
      (when (string-match (car ange-ftp-path-format) path)
	(ange-ftp-re-read-dir path)))
     ))

With the assumption that efs is always prefered over ange-ftp.

Jan

-- 
Jan Vroonhof                    http://www.math.ethz.ch/~vroonhof/
Mathematik,                                  vroonhof@math.ethz.ch
HG E16, ETH-Zentrum,                      Tel: +41-1-6325456/25154
Raemistrasse 101, CH-8092 Zuerich.              Fax: +41-1-6321085