From xemacs-m  Mon Feb 17 14:41:08 1997
Received: from newman (root@newman.aventail.com [38.225.141.10])
	by xemacs.org (8.8.5/8.8.5) with SMTP id OAA23090
	for <xemacs-beta@xemacs.org>; Mon, 17 Feb 1997 14:41:06 -0600 (CST)
Received: from kramer.in.aventail.com.aventail.com (wmperry@kramer [192.168.1.12]) by newman (8.6.12/8.6.9) with SMTP id MAA21739; Mon, 17 Feb 1997 12:39:05 -0800
Date: Mon, 17 Feb 1997 12:39:05 -0800
Message-Id: <199702172039.MAA21739@newman>
From: "William M. Perry" <wmperry@aventail.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: Neal Becker <neal@ctd.comsat.com>
Cc: xemacs-beta@xemacs.org
Subject: Re: efs lossage
In-Reply-To: <u9iv3rfa84.fsf@neal.ctd.comsat.com>
References: <u9iv3rfa84.fsf@neal.ctd.comsat.com>
Errors-to: wmperry@aventail.com
Reply-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;

Neal Becker writes:
>Signaling: (void-variable abbr)
>  efs-insert-file-contents("/root@neal:/local/etc/named/ctd.hosts" t nil nil nil)

  Try this patch.  This let binding was bad bad bad.

-bill p.

*** efs.el	1997/02/17 20:33:18	1.1
--- efs.el	1997/02/17 20:35:04
***************
*** 7433,7446 ****
  		     efs-files-hashtable)
  		    (file-exists-p filename))))
  	    
! 	    (let ((temp (concat
! 			 (car (efs-make-tmp-name nil host))
! 			 (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
  		  (efs-copy-file-internal
--- 7433,7444 ----
  		     efs-files-hashtable)
  		    (file-exists-p filename))))
  	    
! 	    (let* ((temp (concat
! 			  (car (efs-make-tmp-name nil host))
! 			  (efs-internal-file-name-extension filename)))
! 		   (type (efs-xfer-type host-type filename nil nil))
! 		   (abbr (efs-relativize-filename filename))
! 		   (i-f-c-size 0))
  	      
  	      (unwind-protect
  		  (efs-copy-file-internal
***************
*** 7466,7473 ****
  				   (file-readable-p temp))
  			       
  			       (setq i-f-c-size
! 				   (nth 1 (apply 'insert-file-contents
! 						 temp visit args)))
  			     (signal 'ftp-error
  				     (list
  				      "Opening input file:"
--- 7464,7471 ----
  				   (file-readable-p temp))
  			       
  			       (setq i-f-c-size
! 				     (nth 1 (apply 'insert-file-contents
! 						   temp visit args)))
  			     (signal 'ftp-error
  				     (list
  				      "Opening input file:"

