gnus-group-fetch-charter

gnus-group-fetch-charter

[Jesper Harder]

I thought it would be nice to have a convenient way to get the charter
for a group (like gnus-group-fetch-faq for FAQ's).  

This works for some of the regional hierarchies (it's not so easy to do
for the Big8 and alt).

(defun gnus-group-fetch-charter (group)
  "Fetch the charter for the current group."
  (interactive
   (list (gnus-group-group-name)))
  (unless group
    (error "No group name given"))
  (let ((name (gnus-group-real-name group))
	url hierarchy)
    (when (string-match "\\(^[^\\.]+\\)\\..*" name)
      (setq hierarchy (match-string 1 name))
      (cond ((string= hierarchy "no")
	     (setq url (concat "http://no.news-admin.org/charter/" name ".txt")))
	    ((string= hierarchy "dk")
	     (setq url (concat "http://www.usenet.dk/grupper.pl?get=" name)))
	    ((string= hierarchy "england")
	     (setq url (concat "http://england.news-admin.org/charters/" name)))
	    ((string= hierarchy "fr")
	     (setq url (concat "http://www.usenet-fr.net/fur/chartes/" name ".html")))
	    ((string= hierarchy "europa")
	     (setq url (concat "http://www.europa.usenet.eu.org/chartas/charta-en-" 
			       (gnus-replace-in-string name "europa\\." "") ".html")))
	    ((string= hierarchy "nl")
	     (setq url (concat "http://www.xs4all.nl/~sister/usenet/charters/" name)))
	    ((string= hierarchy "aus")
	     (setq url (concat "http://aus.news-admin.org/groupinfo.php/" name)))
	    ((string= hierarchy "pl")
	     (setq url (concat "http://www.usenet.pl/opisy/" name)))
	    ((string= hierarchy "ch")
	     (setq url (concat "http://www.use-net.ch/Usenet/charter.html#" name)))
	    ((string= hierarchy "at")
	     (setq url (concat "http://www.usenet.at/chartas/" name "/charta")))
	    ((string= hierarchy "uk")
	     (setq url (concat "http://www.usenet.org.uk/" name ".html")))
	    ((string= hierarchy "wales")
	     (setq url (concat "http://www.wales-usenet.org/english/groups/" name ".html")))
	    ((string= hierarchy "dfw")
	     (setq url (concat "http://www.cirr.com/dfw/charters/" name ".html")))
	    ((string= hierarchy "se")
	     (setq url (concat "http://www.usenet-se.net/Reglementen/" 
			       (gnus-replace-in-string name "\\." "_") ".html")))
	    ((string= hierarchy "milw")
	     (setq url (concat "http://usenet.mil.wi.us/" 
			       (gnus-replace-in-string name "milw\\." "") "-charter")))
	    ((string= hierarchy "ca")
	     (setq url (concat "http://www.sbay.org/ca/charter-" name ".html")))
	    ((string= hierarchy "netins")
	     (setq url (concat "http://www.netins.net/usenet/charter/" 
			       (gnus-replace-in-string name "\\." "-") "-charter.html"))))
      (when url (browse-url url)))))

Re: gnus-group-fetch-charter

[Reiner Steib]

On Wed, Aug 21 2002, Jesper Harder wrote:

> I thought it would be nice to have a convenient way to get the charter
> for a group (like gnus-group-fetch-faq for FAQ's).  

Nice idea.

> This works for some of the regional hierarchies 

The following patch adds the de.* hierarchy. WIBNI we could call the
function from the summary buffer too?

> (it's not so easy to do for the Big8 and alt).

:-(

--- gnus-fetch-charter.el.orig	Fri Aug 23 15:10:36 2002
+++ gnus-fetch-charter.el	Fri Aug 23 15:09:59 2002
@@ -1,7 +1,8 @@
 (defun gnus-group-fetch-charter (group)
   "Fetch the charter for the current group."
   (interactive
-   (list (gnus-group-group-name)))
+   (or (list (gnus-group-group-name))
+       gnus-newsgroup-name))
   (unless group
     (error "No group name given"))
   (let ((name (gnus-group-real-name group))
@@ -10,6 +11,8 @@
       (setq hierarchy (match-string 1 name))
       (cond ((string= hierarchy "no")
 	     (setq url (concat "http://no.news-admin.org/charter/" name ".txt")))
+	    ((string= hierarchy "de")
+	     (setq url (concat "http://purl.net/charta/" name ".html")))
 	    ((string= hierarchy "dk")
 	     (setq url (concat "http://www.usenet.dk/grupper.pl?get=" name)))
 	    ((string= hierarchy "england")

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/

Re: gnus-group-fetch-charter

[Jesper Harder]

Reiner Steib <4uce.02.r.steib@gmx.net> writes:

> On Wed, Aug 21 2002, Jesper Harder wrote:
>
>> I thought it would be nice to have a convenient way to get the charter
>> for a group (like gnus-group-fetch-faq for FAQ's).  
>
> Nice idea.
>
>> This works for some of the regional hierarchies 
>
> The following patch adds the de.* hierarchy. WIBNI we could call the
> function from the summary buffer too?

Thanks.  Here's a new version, which works for alt and big8 as well (at
least if the charter is included in the control message).


(defvar gnus-group-charter-alist
  '(("no" . (concat "http://no.news-admin.org/charter/" name ".txt"))
    ("de" . (concat "http://purl.net/charta/" name ".html"))
    ("dk" . (concat "http://www.usenet.dk/grupper.pl?get=" name))
    ("england" . (concat "http://england.news-admin.org/charters/" name))
    ("fr" . (concat "http://www.usenet-fr.net/fur/chartes/" name ".html"))
    ("europa" . (concat "http://www.europa.usenet.eu.org/chartas/charta-en-" 
			(gnus-replace-in-string name "europa\\." "") ".html"))
    ("nl" . (concat "http://www.xs4all.nl/~sister/usenet/charters/" name))
    ("aus" . (concat "http://aus.news-admin.org/groupinfo.php/" name))
    ("pl" . (concat "http://www.usenet.pl/opisy/" name))
    ("ch" . (concat "http://www.use-net.ch/Usenet/charter.html#" name))
    ("at" . (concat "http://www.usenet.at/chartas/" name "/charta"))
    ("uk" . (concat "http://www.usenet.org.uk/" name ".html"))
    ("wales" . (concat "http://www.wales-usenet.org/english/groups/" name ".html"))
    ("dfw" . (concat "http://www.cirr.com/dfw/charters/" name ".html"))
    ("se" . (concat "http://www.usenet-se.net/Reglementen/" 
		    (gnus-replace-in-string name "\\." "_") ".html"))
    ("milw" . (concat "http://usenet.mil.wi.us/" 
		      (gnus-replace-in-string name "milw\\." "") "-charter"))
    ("ca" . (concat "http://www.sbay.org/ca/charter-" name ".html"))
    ("netins" . (concat "http://www.netins.net/usenet/charter/" 
			(gnus-replace-in-string name "\\." "-") "-charter.html")))
  "An alist of (HIERARCHY . FORM) pairs used by
`gnus-group-fetch-charter' to construct the URL of a charter.")

(defun gnus-group-fetch-charter (group)
  "Fetch the charter for the current group."
  (interactive
    (list (or (gnus-group-group-name)
        gnus-newsgroup-name)))
  (unless group
    (error "No group name given"))
  (let ((name (gnus-group-real-name group))
	url hierarchy)
    (when (string-match "\\(^[^\\.]+\\)\\..*" name)
      (setq hierarchy (match-string 1 name))
      (if (setq url (cdr (assoc hierarchy gnus-group-charter-alist)))
	  (browse-url (eval url))
	(let ((enable-local-variables nil))
	  (find-file (concat "/ftp@ftp.isc.org:/usenet/control/" 
			     hierarchy "/" name ".Z")))))))

Re: gnus-group-fetch-charter

[Kai Großjohann]

Jesper Harder <harder@ifa.au.dk> writes:

> Thanks.  Here's a new version, which works for alt and big8 as well (at
> least if the charter is included in the control message).

This is starting to look good (I mean, it's looking good already).  If
you need my help in getting this into CVS, please holler.  (I don't
know who has CVS access.)  Of course, the less work for me, the better
:-) A patch together with a ChangeLog entry would be nifty.

Where should the command go?
Where should the variable go?
Keybinding?
Documentation?

And then, there is the paperwork thing.  I still can't access the
copyright.list file on fencepost, so I can't look at the current
paperwork situation.

kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)

Re: gnus-group-fetch-charter

[Reiner Steib]

On Sat, Aug 24 2002, Jesper Harder wrote:

> (defun gnus-group-fetch-charter (group)
>   "Fetch the charter for the current group."
[...]
> 	  (browse-url (eval url))
> 	(let ((enable-local-variables nil))
> 	  (find-file (concat "/ftp@ftp.isc.org:/usenet/control/" 
> 			     hierarchy "/" name ".Z")))))))

Additional feature request:

- Could we have a user variable to _always_ use `browse-url' not
  `find-file' (i.e. use »(browse-url "ftp://...")«).

- Same for `gnus-group-fetch-faq'?

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/

Re: gnus-group-fetch-charter

[Jesper Harder]

[-- Attachment #1: Type: text/plain, Size: 1426 bytes --]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> This is starting to look good (I mean, it's looking good already).  If
> you need my help in getting this into CVS, please holler.  (I don't
> know who has CVS access.)  Of course, the less work for me, the better
> :-) A patch together with a ChangeLog entry would be nifty.
>
> Where should the command go?

I split it in two: One to fetch charters and another to fetch control
messages (you might want to see the control msg. rather than the
charter).

They're most similar to `gnus-group-fetch-faq', so I placed them next to
it in gnus-group.el.

> Where should the variable go?

The customizeable variables for g-g-fetch-faq are in gnus.el, so I put
them the same place.

> Keybinding?

g-g-fetch-faq is `H f', so I used 

H c for gnus-group-fetch-charter, and
H C for gnus-group-fetch-control

> Documentation?
>
> And then, there is the paperwork thing.

I have signed the copyright assignment-thingie.

2002-08-26  Jesper harder  <harder@ifa.au.dk>

	* gnus.texi (Group Information): Add gnus-group-fetch-charter and
	gnus-group-fetch-control.

2002-08-26  Jesper harder  <harder@ifa.au.dk>

	* gnus.el (gnus-group-charter-alist): New option.
	(gnus-group-fetch-control-use-browse-url): New option.

	* gnus-group.el (gnus-group-fetch-charter): New function.
	(gnus-group-fetch-control): New function.  
	Add them to the keymap and menu. Require mm-url.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: charter.patch --]
[-- Type: text/x-patch, Size: 6946 bytes --]

diff -ur gnus/lisp/gnus-group.el cvsgnus/lisp/gnus-group.el
--- gnus/lisp/gnus-group.el	Sat Jun  1 23:13:46 2002
+++ cvsgnus/lisp/gnus-group.el	Mon Aug 26 22:19:47 2002
@@ -38,6 +38,7 @@
 (require 'gnus-undo)
 (require 'time-date)
 (require 'gnus-ems)
+(require 'mm-url)
 
 (defcustom gnus-group-archive-directory
   "*ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list/"
@@ -701,6 +702,8 @@
     "f" gnus-score-flush-cache)
 
   (gnus-define-keys (gnus-group-help-map "H" gnus-group-mode-map)
+    "c" gnus-group-fetch-charter
+    "C" gnus-group-fetch-control
     "d" gnus-group-describe-group
     "f" gnus-group-fetch-faq
     "v" gnus-version)
@@ -745,6 +748,12 @@
 	,@(if (featurep 'xemacs) nil
 	    '(:help "Display description of the current group"))]
        ["Fetch FAQ" gnus-group-fetch-faq (gnus-group-group-name)]
+       ["Fetch charter" gnus-group-fetch-charter :active (gnus-group-group-name)
+	,@(if (featurep 'xemacs) nil
+	    '(:help "Display the charter of the current group"))]
+       ["Fetch control message" gnus-group-fetch-control :active (gnus-group-group-name)
+	,@(if (featurep 'xemacs) nil
+	    '(:help "Display the archived control message for the current group"))]
        ;; Actually one should check, if any of the marked groups gives t for
        ;; (gnus-check-backend-function 'request-expire-articles ...)
        ["Expire articles" gnus-group-expire-articles
@@ -3513,6 +3522,44 @@
 	  (find-file file)
 	  (setq found t))))))
 
+(defun gnus-group-fetch-charter (group)
+  "Fetch the charter for the current group."
+  (interactive
+    (list (or (gnus-group-group-name)
+        gnus-newsgroup-name)))
+  (unless group
+    (error "No group name given"))
+  (let ((name (mm-url-form-encode-xwfu (gnus-group-real-name group)))
+	url hierarchy)
+    (when (string-match "\\(^[^\\.]+\\)\\..*" name)
+      (setq hierarchy (match-string 1 name))
+      (if (setq url (cdr (assoc hierarchy gnus-group-charter-alist)))
+	  (browse-url (eval url))
+	(gnus-group-fetch-control group)))))
+
+(defun gnus-group-fetch-control (group)
+  "Fetch the archived control messages for the current group."
+  (interactive
+    (list (or (gnus-group-group-name)
+        gnus-newsgroup-name)))
+  (unless group
+    (error "No group name given"))
+  (let ((name (gnus-group-real-name group))
+	hierarchy)
+    (when (string-match "\\(^[^\\.]+\\)\\..*" name)
+      (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"))
+	(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")))
+		   (nndoc-article-type mbox)) t nil nil))))))
+
 (defun gnus-group-describe-group (force &optional group)
   "Display a description of the current newsgroup."
   (interactive (list current-prefix-arg (gnus-group-group-name)))
diff -ur gnus/lisp/gnus.el cvsgnus/lisp/gnus.el
--- gnus/lisp/gnus.el	Mon Aug 26 21:49:09 2002
+++ cvsgnus/lisp/gnus.el	Mon Aug 26 22:19:28 2002
@@ -1246,6 +1246,41 @@
   :type '(choice directory
 		 (repeat directory)))
 
+(defcustom gnus-group-charter-alist
+  '(("no" . (concat "http://no.news-admin.org/charter/" name ".txt"))
+    ("de" . (concat "http://purl.net/charta/" name ".html"))
+    ("dk" . (concat "http://www.usenet.dk/grupper.pl?get=" name))
+    ("england" . (concat "http://england.news-admin.org/charters/" name))
+    ("fr" . (concat "http://www.usenet-fr.net/fur/chartes/" name ".html"))
+    ("europa" . (concat "http://www.europa.usenet.eu.org/chartas/charta-en-" 
+			(gnus-replace-in-string name "europa\\." "") ".html"))
+    ("nl" . (concat "http://www.xs4all.nl/~sister/usenet/charters/" name))
+    ("aus" . (concat "http://aus.news-admin.org/groupinfo.php/" name))
+    ("pl" . (concat "http://www.usenet.pl/opisy/" name))
+    ("ch" . (concat "http://www.use-net.ch/Usenet/charter.html#" name))
+    ("at" . (concat "http://www.usenet.at/chartas/" name "/charta"))
+    ("uk" . (concat "http://www.usenet.org.uk/" name ".html"))
+    ("wales" . (concat "http://www.wales-usenet.org/english/groups/" name ".html"))
+    ("dfw" . (concat "http://www.cirr.com/dfw/charters/" name ".html"))
+    ("se" . (concat "http://www.usenet-se.net/Reglementen/" 
+		    (gnus-replace-in-string name "\\." "_") ".html"))
+    ("milw" . (concat "http://usenet.mil.wi.us/" 
+		      (gnus-replace-in-string name "milw\\." "") "-charter"))
+    ("ca" . (concat "http://www.sbay.org/ca/charter-" name ".html"))
+    ("netins" . (concat "http://www.netins.net/usenet/charter/" 
+			(gnus-replace-in-string name "\\." "-") "-charter.html")))
+  "*An alist of (HIERARCHY . FORM) pairs used to construct the URL of a charter.
+  When FORM is evaluated `name' is bound to the name of the group."
+  :group 'gnus-group-various
+  :type '(repeat (cons (string :tag "Hierarchy") (sexp :tag "Form"))))
+
+(defcustom gnus-group-fetch-control-use-browse-url nil
+  "*Non-nil means that control messages are displayed using `browse-url'.
+Otherwise they are fetched with ange-ftp and displayed in an ephemeral
+group."
+  :group 'gnus-group-various
+  :type 'boolean)
+
 (defcustom gnus-use-cross-reference t
   "*Non-nil means that cross referenced articles will be marked as read.
 If nil, ignore cross references.  If t, mark articles as read in
diff -ur gnus/texi/gnus.texi cvsgnus/texi/gnus.texi
--- gnus/texi/gnus.texi	Fri Aug 23 00:09:47 2002
+++ cvsgnus/texi/gnus.texi	Mon Aug 26 22:20:01 2002
@@ -4080,6 +4080,34 @@
 If fetching from the first site is unsuccessful, Gnus will attempt to go
 through @code{gnus-group-faq-directory} and try to open them one by one.
 
+@item H c
+@kindex H c (Group)
+@findex gnus-group-fetch-charter
+@vindex gnus-group-charter-alist
+@cindex charter
+Try to open the charter for the current group in a web browser
+(@code{gnus-group-fetch-charter}).  Gnus will use
+@code{gnus-group-charter-alist} to find the location of the charter.
+If no location is known, Gnus will fetch the control messages for the
+group, which in some cases includes the charter.
+
+@item H C
+@kindex H C (Group)
+@findex gnus-group-fetch-control
+@vindex gnus-group-fetch-control-use-browse-url
+@cindex control message
+Fetch the control messages for the group from the archive at
+@code{ftp.isc.org} (@code{gnus-group-fetch-control}).
+
+If @code{gnus-group-fetch-control-use-browse-url} is non-nil, Gnus
+will open the control messages in a browser using @code{browse-url}.
+Otherwise they are fetched using @code{ange-ftp} and displayed in an
+ephemeral group.
+
+Note that the control messages are compressed.  To use this command
+you need to turn on @code{auto-compression-mode}
+(@pxref{(emacs)Compressed Files}).
+
 @item H d
 @itemx C-c C-d
 @c @icon{gnus-group-describe-group}

Re: gnus-group-fetch-charter

[Jesper Harder]

Reiner Steib <4uce.02.r.steib@gmx.net> writes:

> - Could we have a user variable to _always_ use `browse-url' not
>   `find-file' (i.e. use »(browse-url "ftp://...")«).

Sure, why not.  BTW, the control archive is really an mbox file, so we
can open it as an ephemeral group to make it look pretty (neat!).

Re: gnus-group-fetch-charter

[Reiner Steib]

On Mon, Aug 26 2002, Jesper Harder wrote:

> [2. text/x-patch; charter.patch]...

Would somebody please commit the patch?

I think Jesper's code needs a slight correction (there should be no
colon after the host name in the URL for `browse-url'):

--- lisp/gnus-group.el.orig     Fri Aug 30 16:38:12 2002
+++ lisp/gnus-group.el  Fri Aug 30 18:36:38 2002
@@ -3549,7 +3549,7 @@
     (when (string-match "\\(^[^\\.]+\\)\\..*" name)
       (setq hierarchy (match-string 1 name))
       (if gnus-group-fetch-control-use-browse-url
-         (browse-url (concat "ftp://ftp.isc.org:/usenet/control/"
+         (browse-url (concat "ftp://ftp.isc.org/usenet/control/"
                              hierarchy "/" name ".Z"))
        (let ((enable-local-variables nil))
          (gnus-group-read-ephemeral-group

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/

Re: gnus-group-fetch-charter

[Simon Josefsson]

Reiner Steib <4uce.02.r.steib@gmx.net> writes:

> On Mon, Aug 26 2002, Jesper Harder wrote:
>
>> [2. text/x-patch; charter.patch]...
>
> Would somebody please commit the patch?

Done.

> I think Jesper's code needs a slight correction (there should be no
> colon after the host name in the URL for `browse-url'):

Yup.

Re: gnus-group-fetch-charter

[Lars Magne Ingebrigtsen]

Jesper Harder <harder@ifa.au.dk> writes:

> I thought it would be nice to have a convenient way to get the charter
> for a group (like gnus-group-fetch-faq for FAQ's).  

[...]

> 	     (setq url (concat "http://no.news-admin.org/charter/" name ".txt")))
> 	    ((string= hierarchy "dk")
> 	     (setq url (concat "http://www.usenet.dk/grupper.pl?get=" name)))

Good idea, but perhaps it would be more convenient to keep this
basically outside of Gnus?  Like -- set up a server somewhere that
will return the URL of the charter for a given group.  That way the
Gnus source code won't have to change when these URLs change.

The "server" can just be something pretty simple -- say a PHP script
that looks up the hierarchy in a list and returns the URL.  That way
other news readers can use the service, too.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: gnus-group-fetch-charter

[Kai Großjohann]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Good idea, but perhaps it would be more convenient to keep this
> basically outside of Gnus?  Like -- set up a server somewhere that
> will return the URL of the charter for a given group.  That way the
> Gnus source code won't have to change when these URLs change.

How about a table in a simple format that's distributed with Gnus?
Then people can download the new file and dump it into the Emacs etc
dir or something.
-- 
Ambibibentists unite!

Re: gnus-group-fetch-charter

[Jesper Harder]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Jesper Harder <harder@ifa.au.dk> writes:
>
>> I thought it would be nice to have a convenient way to get the charter
>> for a group (like gnus-group-fetch-faq for FAQ's).  
>
> Good idea, but perhaps it would be more convenient to keep this
> basically outside of Gnus?  Like -- set up a server somewhere that
> will return the URL of the charter for a given group.  That way the
> Gnus source code won't have to change when these URLs change.

Yeah, I agree.  

Kjetil Torgrim Homme suggested something similar for the news-admin.org
domain in news.admin.hierarchies recently
<news:1rr8haruar.fsf@thrir.ifi.uio.no> [1].

If everyone used his proposal we wouldn't have to do anything.  Maybe we
should just wait a while to see if more people start supporting his
scheme?

[1] <http://groups.google.com/groups?as_umsgid=%3C1rr8haruar.fsf%40thrir.ifi.uio.no%3E>

Re: gnus-group-fetch-charter

[Lars Magne Ingebrigtsen]

kai.grossjohann@uni-duisburg.de (Kai Großjohann) writes:

> How about a table in a simple format that's distributed with Gnus?
> Then people can download the new file and dump it into the Emacs etc
> dir or something.

That would work, too.  Having it locally is nice in case the server
goes down, but having it locally means that it's very difficult to
maintain.  So it's six of one and half a dozen of the other.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: gnus-group-fetch-charter

[Lars Magne Ingebrigtsen]

Jesper Harder <harder@ifa.au.dk> writes:

> Kjetil Torgrim Homme suggested something similar for the news-admin.org
> domain in news.admin.hierarchies recently
> <news:1rr8haruar.fsf@thrir.ifi.uio.no> [1].

A very sensible scheme.

> If everyone used his proposal we wouldn't have to do anything.  Maybe we
> should just wait a while to see if more people start supporting his
> scheme?

Well, we already have the charter-fetching code in Gnus now, so let's
just keep it there.  But it should be extended to fall back on
whatever the news-admin.org scheme turns out to be.  (Or the other
way around; first try news-admin.org, and then try these URLs.) 

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: gnus-group-fetch-charter

[Jesper Harder]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Jesper Harder <harder@ifa.au.dk> writes:
>
>> Kjetil Torgrim Homme suggested something similar for the
>> news-admin.org domain
>
> Well, we already have the charter-fetching code in Gnus now, so let's
> just keep it there.  But it should be extended to fall back on
> whatever the news-admin.org scheme turns out to be.

Yup, I did this (if the URL package is available to Gnus).