Re: gnus-group-fetch-charter

[Jesper Harder <harder@ifa.au.dk>]

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")))))))