From xemacs-m  Tue Feb 18 08:52:07 1997
Received: from macon.informatik.uni-tuebingen.de (macon2.Informatik.Uni-Tuebingen.De [134.2.13.2])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id IAA27547
	for <xemacs-beta@xemacs.org>; Tue, 18 Feb 1997 08:52:05 -0600 (CST)
Received: from modas.informatik.uni-tuebingen.de (modas.Informatik.Uni-Tuebingen.De [134.2.12.3]) by macon.informatik.uni-tuebingen.de (8.8.4/8.8.3/AIX-4.1/WSI-1.0) with SMTP id PAA27416 for <xemacs-beta@xemacs.org>; Tue, 18 Feb 1997 15:52:05 +0100
Received: by modas.informatik.uni-tuebingen.de (AIX 4.1/UCB 5.64/4.03)
          id AA19992; Tue, 18 Feb 1997 15:52:03 +0100
Sender: sperber@informatik.uni-tuebingen.de
To: xemacs-beta@xemacs.org
Subject: Re: efs lossage
References: <199702172114.AA058304072@cuckoo.hpl.hp.com> <m2iv3r9kbh.fsf@altair.xemacs.org> <rxsg1yub3xm.fsf@midnight.ecf.teradyne.com>
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII
From: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Date: 18 Feb 1997 15:52:02 +0100
In-Reply-To: Adrian Aichner's message of 18 Feb 1997 15:10:29 +0100
Message-Id: <y9lsp2uyxnx.fsf@modas.informatik.uni-tuebingen.de>
Lines: 31
X-Mailer: Gnus v5.4.13/XEmacs 20.1

>>>>> "Adrian" == Adrian Aichner <aichner@ecf.teradyne.com> writes:

Adrian> Steven,

Adrian> do you have an approved efs patch for xemacs-20.1-b1 you could post
Adrian> here?

The only relevant change I have so far is the attached patch---the
rest are version number glitches and typos.  This patch will be in the
next beta, if we don't screw up royally.

It also seems the EFS in 19.15b94 (NOT 20.1b1) needs Jens
Lautenbacher's patch to default-dir.el posted previously.

Cheers =8-} Mike

Index: elisp/efs/efs.el
diff -c elisp/efs/efs.el:1.1.1.3 elisp/efs/efs.el:1.7
*** elisp/efs/efs.el:1.1.1.3	Tue Feb 18 08:21:42 1997
--- elisp/efs/efs.el	Tue Feb 18 08:48:51 1997
***************
*** 7438,7445 ****
  			 (efs-internal-file-name-extension filename)))
  		  (type (efs-xfer-type host-type filename nil nil))
  		  (abbr (efs-relativize-filename filename))
- 		  (temp (concat (car (efs-make-tmp-name nil host))
- 				(or (substring abbr (string-match "\\." abbr)) "")))
  		  (i-f-c-size 0))
  	      
  	      (unwind-protect
--- 7438,7443 ----

