From: yamaoka <yamaoka>
Date: Fri, 12 Sep 2003 02:27:54 +0000 (+0000)
Subject: Synch to Gnus 200309120105.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5ea96c9fb1742b9fd3a3560ea6f812b1a5159fb3;p=elisp%2Fgnus.git-

Synch to Gnus 200309120105.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index efb920a..9e5256b 100644
--- 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 2de876a..200aef2 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3731,14 +3731,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)