gnus-group-fetch-charter

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

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