# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754210310 0
# Node ID 85aadd2a80ba9bc01d506bec7a8009924373ade8
# Parent  feee1e8ab9adf3789d4dd2e0ff02577e53925e73
(ange-ftp-binary-file-name-regexp): Accept .tgz and .taz files.

diff -r feee1e8ab9ad -r 85aadd2a80ba lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Thu Nov 25 06:47:28 1993 +0000
+++ b/lisp/ange-ftp.el	Thu Nov 25 06:51:50 1993 +0000
@@ -707,7 +707,8 @@
 (defvar ange-ftp-binary-file-name-regexp
   (concat "\\.[zZ]$\\|\\.lzh$\\|\\.arc$\\|\\.zip$\\|\\.zoo$\\|\\.tar$\\|"
 	  "\\.dvi$\\|\\.ps$\\|\\.elc$\\|TAGS$\\|\\.gif$\\|"
-	  "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$\\|\\.gz$")
+	  "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$\\|\\.gz$\\|"
+	  "\\.taz$\\|\\.tgz$")
   "*If a file matches this regexp then it is transferred in binary mode.")
 
 (defvar ange-ftp-gateway-host nil
@@ -856,7 +857,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.35 $")
+(defconst ange-ftp-version "$Revision: 1.36 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")