Anonymous avatar Anonymous committed 3920748

EFS 1.20pre2.

Comments (0)

Files changed (39)

+2001-06-09  Michael Sperber [Mr. Preprocessor]  <sperber@informatik.uni-tuebingen.de>
+
+	* RELEASE: 1.20pre2
+
+	* Makefile (GENERATED): Add custom-load AFTER including
+	XEmacs.rules.
+
+	* efs.el (efs-send-progress-off): Add this variable to support ftp
+	clients that display fancy progress bars instead of hash marks.
+	(efs-good-msgs): Ignore "Progress bar off" message.
+	(efs-guess-hash-mark-size): Send "progress off" command if so
+	desired.
+	(efs-process-handle-line): Back out introduction of
+	`efs-cmd-ok-cmds-p'.  The new logic was flawed.
+
+2001-06-03  Michael Sperber [Mr. Preprocessor]  <sperber@informatik.uni-tuebingen.de>
+
+	* efs.el (efs-month-and-time-regexp): Allow a space in time specs
+	such as 5:13.  This is needed eg. on ftp.microsoft.com.
+	(efs-slash-local-paths): Add.
+	(efs-adjust-local-path): Rename from `efs-quote-local-paths' and
+	extend to handle `efs-slash-local-paths'.
+
+2001-06-01  Steve Youngs  <youngs@xemacs.org>
+
+	* Makefile (GENERATED): Add custom-load.elc.
+	(all): Ditto.
+
 2001-05-17  Michael Sperber [Mr. Preprocessor]  <sperber@informatik.uni-tuebingen.de>
 
 	* RELEASE: 1.20pre1
 include Makefile.efs
 
 VERSION = 1.25
-AUTHOR_VERSION = 1.20pre1
+AUTHOR_VERSION = 1.20pre2
 MAINTAINER = Mike Sperber <sperber@informatik.uni-tuebingen.de>
 PACKAGE = efs
 PKG_TYPE = regular
 
 include ../../XEmacs.rules
 
-all:: $(ELCS) auto-autoloads.elc efs.info
+GENERATED += custom-load.elc
+
+all:: $(ELCS) auto-autoloads.elc custom-load.elc efs.info
 
 srckit: srckit-std
 
 ###############################################################################
 #
 # File:         Makefile
-# Release:      $EFS release: 1.20pre1 $
+# Release:      $EFS release: 1.20pre2 $
 # Release:      $dired release: 7.10 $
 # Version:      #Revision: 1.9 $
 # RCS:
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-auto.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.8 $
 ;; RCS:          
 ;; Description:  Simple way of autoloading efs
 (require 'efs-fnh)
 
 (defconst efs-auto-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.8 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-cms-knet.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  CMS support for efs using KNET/VM server
 (require 'efs)
 
 (defconst efs-cms-knet-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-cms.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.9 $
 ;; RCS:          
 ;; Description:  CMS support for efs
 (require 'efs)
 
 (defconst efs-cms-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.9 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-coke.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Coke Machine support for efs
 (require 'efs)
 
 (defconst efs-coke-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-cp-p.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Support for preserving file modtimes with copies. i.e. cp -p
 ;;;; Internal Variables
 
 (defconst efs-cp-p-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-cu.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.12 $
 ;; RCS:          
 ;; Description:  Common utilities needed by efs files.
 ;;;; -------------------------------------------------------------
 
 (defconst efs-cu-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.12 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-defun.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  efs-defun allows for OS-dependent coding of functions
 ;;; Variables
 
 (defconst efs-defun-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 

efs-dired-mule.el

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dired.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:          
 ;; Description:  Makes efs-dired.el work with MULE.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defconst efs-dired-mule-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dired.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.32 $
 ;; RCS:          
 ;; Description:  Extends much of Dired to work under efs.
 (autoload 'dired-shell-call-process "dired-shell")
 
 (defconst efs-dired-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.32 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dl.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.3 $
 ;; RCS:          
 ;; Description:  Unix descriptive listing support for efs
 (require 'efs)
 
 (defconst efs-dl-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.3 $" 11 -2)))
 

efs-dos-distinct.el

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dos-distinct.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Distinct's DOS FTP server support for efs
 (require 'efs)
 
 (defconst efs-dos-distinct-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dump.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:
 ;; Description:  Install a bare-bones EFS hook into file-name-handler-alist
 (provide 'efs-dump)
 
 (defconst efs-dump-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-fnh.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.4 $
 ;; RCS:
 ;; Description:  Look for the emacs version, and install into
 (provide 'efs-fnh)
 
 (defconst efs-fnh-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.4 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-guardian.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.7 $
 ;; RCS:          
 ;; Description:  Guardian support for efs
 ;;; and debugging. Thanks.
 
 (defconst efs-guardian-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.7 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-gwp.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Support for efs to use an interactive gateway.
 ;;; Internal Variables
 
 (defconst efs-gwp-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-hell.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Hellsoft FTP server support for efs
 (require 'efs)
 
 (defconst efs-hell-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ka9q.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:          
 ;; Description:  KA9Q support for efs
 (require 'efs)
 
 (defconst efs-ka9q-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-kerberos.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:
 ;; Description:  Support for Kerberos gateways.
 (require 'efs)
 
 (defconst efs-kerberos-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-mpe.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.8 $
 ;; RCS:          
 ;; Description:  MPE (HP3000) support for efs.
 ;;; Internal Variables
 
 (defconst efs-mpe-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.8 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ms-unix.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  efs support for the Microsoft PC FTP server in unix mode.
 (require 'efs)
 
 (defconst efs-ms-unix-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-mts.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  MTS support for efs
 (require 'efs)
 
 (defconst efs-mts-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-mvs.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.4 $
 ;; RCS:          
 ;; Description:  MVS support for efs
 (require 'efs)
 
 (defconst efs-mvs-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.4 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-netrc.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.3 $
 ;; RCS:          
 ;; Description:  Parses ~/.netrc file, and does completion in /.
 ;;;; ------------------------------------------------------------
 
 (defconst efs-netrc-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-netware.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.5 $
 ;; RCS:          
 ;; Description:  efs support for the Novell Netware FTP server
 (require 'efs)
 
 (defconst efs-netware-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.5 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-nos-ve.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:          
 ;; Description:  efs support for NOS/VE
 ;;; providing imformation and testing.
 
 (defconst efs-nos-ve-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ovwrt.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.3 $
 ;; RCS:
 ;; Description:  Utilities for overwriting functions with new definitions.
     (error)))
 
 (defconst efs-ovwrt-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.3 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-pc.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  PC support for efs
 (require 'efs)
 
 (defconst efs-pc-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-plan9.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  efs support for the Plan 9 FTP Server
 (require 'efs)
 
 (defconst efs-plan9-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-report.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.10 $
 ;; RCS:          
 ;; Description:  Function to report efs bugs in a usable way.
 ;;; Variables
 
 (defconst efs-report-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.10 $" 11 -2)))
 

efs-ti-explorer.el

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ti-explorer.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Explorer support for efs
 (require 'efs)
 
 (defconst efs-ti-explorer-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ti-twenex.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Support for a TI lisp machine in Twenex emulation mode.
 (require 'efs)
 
 (defconst efs-ti-twenex-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-tops-20.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  TOPS-20 support for efs
 (provide 'efs-tops-20)
 
 (defconst efs-tops-20-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-vms.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.13 $
 ;; RCS:          
 ;; Description:  VMS support for efs
 (require 'efs)
 
 (defconst efs-vms-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.13 $" 11 -2)))
 
 ;;
 ;; File:         efs-vos.el
 ;; Description:  VOS support for efs
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Author:       Sandy Rutherford <sandy@ibm550.sissa.it>
 (require 'efs)
 
 (defconst efs-vos-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-x19.15.el
-;; Release:      $efs release: 1.20pre1 $
+;; Release:      $efs release: 1.20pre2 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:          
 ;; Description:  efs support for XEmacs, versions 19.15, and later.
 (require 'efs-ovwrt)
 
 (defconst efs-x19\.15-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs.el
-;; Release:      $efs release: 1.20pre1 $
-;; Version:      #Revision: 1.64 $
+;; Release:      $efs release: 1.20pre2 $
+;; Version:      #Revision: 1.65 $
 ;; RCS:          
 ;; Description:  Transparent FTP support for the original GNU Emacs
 ;;               from FSF and XEmacs
 ;;;    efs|Andy Norman and Sandy Rutherford
 ;;;    |ange@hplb.hpl.hp.com and sandy@ibm550.sissa.it
 ;;;    |transparent FTP Support for GNU Emacs
-;;;    |$Date$|$efs release: 1.20pre1 $|
+;;;    |$Date$|$efs release: 1.20pre2 $|
 
 ;;; Host and listing type notation:
 ;;;
 ;;;; ------------------------------------------------------------
 
 (defconst efs-version
-  (concat (substring "$efs release: 1.20pre1 $" 14 -2)
+  (concat (substring "$efs release: 1.20pre2 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.63 $" 11 -2)))
 
   :type 'regexp
   :group 'efs-programs)
 
+(defcustom efs-send-progress-off nil
+  "*If non-NIL, turn off fancy progress bar of some newer ftp clients."
+  :type 'boolean
+  :group 'efs-programs)
+
 ;; This works around a bug in the NT ftp client, really.
 
 (defcustom efs-ftp-flush-command (and (eq system-type 'windows-nt) "help help")
   :type 'boolean
   :group 'efs-programs)
 
+(defcustom efs-slash-local-paths nil
+  "*If non-nil, always use slashes for local paths.
+This is to support ftp clients that use a different separator
+convention from that of the host Emacs."
+  :type 'boolean
+  :group 'efs-programs)
+
+(defcustom efs-quote-local-paths nil
+  "*If non-nil, quote special characters of local path names in FTP commands.
+Set this to non-nil if your FTP client expects local path names to be quoted.
+This avoids the 'swallowing' of single backslashes."
+  :type 'boolean
+  :group 'efs-programs)
+
 (defcustom efs-compute-remote-buffer-file-truename nil
   "*If non-nil, `buffer-file-truename' will be computed for remote buffers.
 In emacs 19, each buffer has a local variable, `buffer-file-truename',
 	 ;; filter out the reply.
 	 "^500 EPSV not understood")))
   
+(defvar efs-cmd-ok-msgs
+  ;; RFC959 compliant
+  "^200 \\|^227 ")
+;; Regexp to match the server command OK response.
+;; Because PORT commands return this we usually ignore it. However, it is
+;; a valid response for TYPE, SITE, and a few other commands (cf. RFC 959).
+;; If we are explicitly sending a PORT, or one of these other commands, 
+;; then we don't want to ignore this response code.  Also use this to match
+;; the return code for PASV, as some clients burp these things out at odd
+;; times.
+
 (defvar efs-pending-msgs
   ;; RFC959 compliant
   "^350 ") ; Requested file action, pending further information.
 ;; message. These are usually ignored, except if we are using RNFR to test for
 ;; file existence.
 
-(defvar efs-cmd-ok-cmds-msgs-alist
-  (list
-   (cons
-    (concat
-     "^quote port \\|^type \\|^quote site \\|^chmod \\|^quote noop\\|"
-     "^quote pasv\\|^passive")
-    ;; RFC959 compliant
-    "^200 \\|^227 "
-    ;; Regexp to match the server command OK response.
-    ;; Because PORT commands return this we usually ignore it. However, it is
-    ;; a valid response for TYPE, SITE, and a few other commands (cf. RFC 959).
-    ;; If we are explicitly sending a PORT, or one of these other commands, 
-    ;; then we don't want to ignore this response code.  Also use this to match
-    ;; the return code for PASV, as some clients burp these things out at odd
-    ;; times.
-    )))
-;; Alist to match commands against OK responses.
+(defvar efs-cmd-ok-cmds
+  (concat
+   "^quote port \\|^type \\|^quote site \\|^chmod \\|^quote noop\\|"
+   "^quote pasv\\|^passive"))
+;; Regexp to match commands for which efs-cmd-ok-msgs is a valid server
+;; response for success.
 
 (defvar efs-passwd-cmds
   "^quote pass \\|^quote acct \\|^quote site gpass ")
    ;; passive
    "^[Pp]assive \\|"
    ;; client codes
-   "^[Hh]ash"))
+   "^[Hh]ash\\|"
+   "^[Pp]rogress bar off"))
 ;; Response to indicate that the requested action was successfully completed.
 
 (defvar efs-failed-msgs
    "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|June?\\|July?\\|Aug\\|Sep\\|Oct"
 					; June and July are for HP-UX 9.0
    "\\|Nov\\|Dec\\) \\([ 0-3][0-9]\\)\\("
-   " [012][0-9]:[0-6][0-9] \\|"  ; time
+   " [ 012][0-9]:[0-6][0-9] \\|"  ; time
    "  [12][90][0-9][0-9] \\|"    ; year on IRIX, NeXT, SunOS, ULTRIX, Apollo
 				 ; HP-UX, A/UX
    " [12][90][0-9][0-9]  \\)"    ; year on AIX
 	
 	((efs-skip-cmd-msg-p efs-process-cmd line))
 
-	((efs-cmd-ok-p efs-process-cmd line)
-	 (setq efs-process-busy nil
-	       efs-process-result nil
-	       efs-process-result-line line))
+	((string-match efs-cmd-ok-msgs line)
+	 (if (string-match efs-cmd-ok-cmds efs-process-cmd)
+	     (setq efs-process-busy nil
+		   efs-process-result nil
+		   efs-process-result-line line)))
 
 	((string-match efs-pending-msgs line)
 	 (if (string-match "^quote rnfr " efs-process-cmd)
 	   (string-match (cdr pair) response))))
    efs-skip-msgs-alist))
 
-(defun efs-cmd-ok-p (process-cmd response)
-  "Check if RESPONSE is a valid response for PROCESS-CMD."
-  (efs-any
-   (function
-    (lambda (pair)
-      (and (string-match (car pair) process-cmd)
-	   (string-match (cdr pair) response))))
-   efs-cmd-ok-cmds-msgs-alist))
-
 (defun efs-any (func-p list)
   "Check if predicate FUNC-P matches any element of LIST.
 If yes, return element.  Return NIL otherwise."
   (if efs-send-hash
       (save-excursion
 	(set-buffer (process-buffer proc))
+	(if efs-send-progress-off
+	    (efs-raw-send-cmd proc "progress off"))
 	(let ((line (nth 1 (efs-raw-send-cmd proc "hash")))
 	      (gate-p (efs-use-gateway-p efs-process-host t)))
 	  ;; Don't guess if the hash-mark-size is already set.
     
     (error "FTP process %s has died." (process-name proc))))
 
-(defun efs-maybe-quote-local-path (path)
-  "Quote special characters in PATH if `efs-quote-local-paths' is non-nil."
+(defun efs-adjust-local-path (path)
+  "Adjust PATH to conventions of local ftp client."
+  (if efs-slash-local-paths
+      (setq path (replace-in-string path "\\\\" "/")))
   (if efs-quote-local-paths
       (apply (function concat)
 	     (mapcar (function
 		(setq cmd-string (concat efs-nlist-cmd " "
 					 (efs-quote-string host-type cmd1)
 					 " "
-					 (efs-maybe-quote-local-path cmd2))))
+					 (efs-adjust-local-path cmd2))))
 	       ((or (memq host-type efs-dumb-host-types)
 		    (null cmd3))
 		(setq cmd-string (format "%s %s %s"
 					 (if (string-equal cmd1 "")
 					     "\" \""
 					   (efs-quote-string host-type cmd1))
-					 (efs-maybe-quote-local-path cmd2))))
+					 (efs-adjust-local-path cmd2))))
 	       ((setq cmd-string
 		      (format "%s \"%s%s%s\" %s"
 			      (if (eq cmd0 'nlist)
 			      cmd3
 			      (if (string-equal cmd1 "") "" " ")
 			      (efs-quote-string host-type cmd1 t)
-			      (efs-maybe-quote-local-path cmd2)))))))
+			      (efs-adjust-local-path cmd2)))))))
 	   
 	   ;; First argument is the remote pathname
 	   ((memq cmd0 '(delete mkdir rmdir cd))
 		    cmd-string (concat "get "
 				       cmd1
 				       " "
-				       (efs-maybe-quote-local-path cmd2)))))
+				       (efs-adjust-local-path cmd2)))))
 	   
 	   ;; PUT command
 	   ((eq cmd0 'put)
 	      (setq cmd2 (efs-quote-string host-type
 					   (efs-fix-path host-type cmd2))
 		    cmd-string (concat "put "
-				       (efs-maybe-quote-local-path cmd1)
+				       (efs-adjust-local-path cmd1)
 				       " " cmd2))))
 
 	   ;; APPEND command
 	      (setq cmd2 (efs-quote-string host-type
 					   (efs-fix-path host-type cmd2))
 		    cmd-string (concat "append "
-				       (efs-maybe-quote-local-path cmd1)
+				       (efs-adjust-local-path cmd1)
 				       " "
 				       cmd2))))
 	   
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.