(gnus-group-fetch-control): ISC changed

compression from .Z to .gz.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index efb920a..9e5256b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-09-12  Jesper Harder  <harder@ifa.au.dk>
 
+       * gnus-group.el (gnus-group-fetch-control): ISC changed
+       compression from .Z to .gz.
+
        * rfc2047.el (rfc2047-header-encoding-alist): Add "Approved" to
        address-mime.
 

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 25fa925..fdb8fcd 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3688,14 +3688,14 @@ If given a prefix argument, prompt for a group."
       (setq hierarchy (match-string 1 name))
       (if gnus-group-fetch-control-use-browse-url
          (browse-url (concat "ftp://ftp.isc.org/usenet/control/"
-                             hierarchy "/" name ".Z"))
+                             hierarchy "/" name ".gz"))
        (let ((enable-local-variables nil))
          (gnus-group-read-ephemeral-group
           group
           `(nndoc ,group (nndoc-address
                           ,(find-file-noselect
                             (concat "/ftp@ftp.isc.org:/usenet/control/"
-                                    hierarchy "/" name ".Z")))
+                                    hierarchy "/" name ".gz")))
                   (nndoc-article-type mbox)) t nil nil))))))
 
 (defun gnus-group-describe-group (force &optional group)