From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/46234 Path: main.gmane.org!not-for-mail From: Reiner Steib <4uce.02.r.steib@gmx.net> Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-group-fetch-charter Date: Fri, 23 Aug 2002 15:26:21 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: References: Reply-To: reiner.steib@gmx.de NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1030109176 11076 127.0.0.1 (23 Aug 2002 13:26:16 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 23 Aug 2002 13:26:16 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17iES6-0002sV-00 for ; Fri, 23 Aug 2002 15:26:14 +0200 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 17iESb-00065p-00; Fri, 23 Aug 2002 08:26:45 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 23 Aug 2002 08:27:17 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id IAA02819 for ; Fri, 23 Aug 2002 08:27:06 -0500 (CDT) Original-Received: (qmail 19695 invoked by alias); 23 Aug 2002 13:26:24 -0000 Original-Received: (qmail 19690 invoked from network); 23 Aug 2002 13:26:24 -0000 Original-Received: from theotp5.physik.uni-ulm.de (134.60.10.145) by gnus.org with SMTP; 23 Aug 2002 13:26:24 -0000 Original-Received: (from ste@localhost) by theotp5.physik.uni-ulm.de (8.11.2/8.11.2) id g7NDQL311775; Fri, 23 Aug 2002 15:26:21 +0200 X-Authentication-Warning: theotp5.physik.uni-ulm.de: ste set sender to reiner.steib@physik.uni-ulm.de using -f Original-To: ding@gnus.org Mail-Followup-To: ding@gnus.org X-Face: P05mdcZT&lL[-s2=mw~RsllZ0zZAb?vdE}.s 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/