# HG changeset patch
# User yoshiki
# Date 965381897 0
#      Fri Aug 04 09:38:17 2000 +0000
# Node ID 4d5331fca01012f4dece19c83fd6184a85c4b9e5
# Parent  ea0755da3255752313b02a315cb6e7fd0a9b7ff7
* crypt.el (crypt-encoding-alist): Gzip Files with .gz and .tgz
extension.
(crypt-find-file-hook): renaming of then ungzipped buffers
name.gz => name and name.tgz => name.tar
Johannes' patch "Patch for xemacs-packages/os-utils/crypt.el",
<200003130943.KAA17701@sulla.informatik.uni-ulm.de>

diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2000-03-13  Johannes Ziegler <ziegler@bach.informatik.uni-ulm.de>
+
+	* crypt.el (crypt-encoding-alist): Gzip Files with .gz and .tgz
+	extension.
+	(crypt-find-file-hook): renaming of then ungzipped buffers
+	name.gz => name and name.tgz => name.tar
+
 2000-02-23  Jan Vroonhof  <vroonhof@math.ethz.ch>
 
 	* jka-compr.el: Globally replace 'no-conversion with 'binary
diff --git a/crypt.el b/crypt.el
--- a/crypt.el
+++ b/crypt.el
@@ -1028,7 +1028,7 @@
    ;; gzip (GNU zip)
    (list 'gzip
          "\037\213" nil
-         "\\(\\.g?z\\)$"
+         "\\.\\(tgz\\|g?z\\)$"
          "gzip" "gzip"
          "--quiet" "--decompress --quiet"
          "Zip"
@@ -1317,6 +1317,10 @@
                     (string-match "\\.gz$" buffer-file-name))
                (set-visited-file-name
                 (substring buffer-file-name 0 (match-beginning 0))))
+	   (if (and (not (null-buffer-file-name))
+		    (string-match "\\.tgz$" buffer-file-name))
+	       (set-visited-file-name
+		(concat (substring buffer-file-name 0 (match-beginning 0)) ".tar"))
            (if (and (not (null buffer-file-name))
                     (string-match "\\.bz2$" buffer-file-name))
                (set-visited-file-name