From 5ea96c9fb1742b9fd3a3560ea6f812b1a5159fb3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 12 Sep 2003 02:27:54 +0000 Subject: [PATCH] Synch to Gnus 200309120105. --- lisp/ChangeLog | 3 +++ lisp/gnus-group.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) 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 + * 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) -- 1.7.10.4