# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739079613 0
# Node ID 72ea04cee4f12e8d508d6b4a948111d97ddab9e7
# Parent  bccf04c8a5b6ef85a2913b204a63637acb8f28ad
(ange-ftp-binary-file-name-regexp): Handle .gz.

diff -r bccf04c8a5b6 -r 72ea04cee4f1 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Thu Jun 03 03:50:05 1993 +0000
+++ b/lisp/ange-ftp.el	Thu Jun 03 03:53:33 1993 +0000
@@ -707,7 +707,7 @@
 (defvar ange-ftp-binary-file-name-regexp
   (concat "\\.[zZ]$\\|\\.lzh$\\|\\.arc$\\|\\.zip$\\|\\.zoo$\\|\\.tar$\\|"
 	  "\\.dvi$\\|\\.ps$\\|\\.elc$\\|TAGS$\\|\\.gif$\\|"
-	  "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$")
+	  "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$\\|\\.gz$")
   "*If a file matches this regexp then it is transferred in binary mode.")
 
 (defvar ange-ftp-gateway-host nil
@@ -856,7 +856,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.20 $")
+(defconst ange-ftp-version "$Revision: 1.21 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")