# HG changeset patch
# User andreasj
# Date 944312402 0
#      Sat Dec 04 13:00:02 1999 +0000
# Node ID b3a3193f22e7f6b6889fb2ec98b5bf8a44bbd374
# Parent  ba46c6e10db089e7c2cabb90147d83455fb66bad
Added James LewisMoss' patch from <hhr9jub47j.fsf@dres.lewismoss.org>
with subject "bzip support in crypt".

diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+1999-09-20  James LewisMoss  <dres@ioa.com>
+
+	* crypt.el (crypt-build-encoding-alist): Add bzip2 data to
+	encoding list.
+	(crypt-find-file-hook): Add .bz2 as an ending to be stripped when
+	loading. 
+
 1999-11-08  Yoshiki Hayashi  <t90553@mail.ecc.u-tokyo.ac.jp>
 
 	* jka-compr.el (auto-compression-mode): Pass original
diff --git a/crypt.el b/crypt.el
--- a/crypt.el
+++ b/crypt.el
@@ -1034,6 +1034,15 @@
          "Zip"
          nil
          t)
+   ;; bzip2
+   (list 'bzip2
+         "BZh" nil
+         "\\(\\.bz2\\)$"
+         "bzip2" "bzip2"
+         "--quiet" "--decompress --quiet"
+         "Bzip2"
+         nil
+         t)
    ;; freeze
    (list 'freeze
          "\037\236\\|\037\237" nil
@@ -1307,6 +1316,10 @@
            (if (and (not (null buffer-file-name))
                     (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 "\\.bz2$" buffer-file-name))
+               (set-visited-file-name
                 (substring buffer-file-name 0 (match-beginning 0)))))
            (message "Decoding %s..." (buffer-name))
            (crypt-encode-buffer t)