Re: gnus-group-fetch-charter

[Reiner Steib <4uce.02.r.steib@gmx.net>]

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/