* gnus.texi (Group Information): Mention prefix argument for

gnus-group-fetch-charter and gnus-group-fetch-control.
From Jesper Harder.

* gnus-group.el (gnus-group-fetch-charter,
gnus-group-fetch-control): Prompt for group if given a prefix
argument.
* gnus-sum.el (t): Add gnus-group-fetch-charter and
gnus-group-fetch-control to summary key map and menu.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4c6bae..e1e9ec8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2002-10-03  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+       From Jesper Harder.
+
+       * gnus-group.el (gnus-group-fetch-charter,
+       gnus-group-fetch-control): Prompt for group if given a prefix
+       argument.
+       * gnus-sum.el (t): Add gnus-group-fetch-charter and
+       gnus-group-fetch-control to summary key map and menu.
+
+
 2002-10-03  Paul Jarc  <prj@po.cwru.edu>
 
        * nnmaildir.el (nnmaildir--group-maxnum-art): fix maximum article

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 0db56e4..e7df567 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3523,10 +3523,13 @@ to use."
          (setq found t))))))
 
 (defun gnus-group-fetch-charter (group)
-  "Fetch the charter for the current group."
+  "Fetch the charter for the current group.
+If given a prefix argument, prompt for a group."
   (interactive
-    (list (or (gnus-group-group-name)
-        gnus-newsgroup-name)))
+   (list (or (when current-prefix-arg
+              (completing-read "Group: " gnus-active-hashtb))
+            (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)))
@@ -3538,10 +3541,13 @@ to use."
        (gnus-group-fetch-control group)))))
 
 (defun gnus-group-fetch-control (group)
-  "Fetch the archived control messages for the current group."
+  "Fetch the archived control messages for the current group.
+If given a prefix argument, prompt for a group."
   (interactive
-    (list (or (gnus-group-group-name)
-        gnus-newsgroup-name)))
+   (list (or (when current-prefix-arg
+              (completing-read "Group: " gnus-active-hashtb))
+            (gnus-group-group-name)
+            gnus-newsgroup-name)))
   (unless group
     (error "No group name given"))
   (let ((name (gnus-group-real-name group))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 9ca9bab..a43e6ae 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1833,7 +1833,9 @@ increase the score of each group you read."
     "f" gnus-summary-fetch-faq
     "d" gnus-summary-describe-group
     "h" gnus-summary-describe-briefly
-    "i" gnus-info-find-node)
+    "i" gnus-info-find-node
+    "c" gnus-group-fetch-charter
+    "C" gnus-group-fetch-control)
 
   (gnus-define-keys (gnus-summary-backend-map "B" gnus-summary-mode-map)
     "e" gnus-summary-expire-articles
@@ -2332,6 +2334,12 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
        ("Help"
         ["Fetch group FAQ" gnus-summary-fetch-faq t]
         ["Describe group" gnus-summary-describe-group t]
+        ["Fetch charter" gnus-group-fetch-charter
+         ,@(if (featurep 'xemacs) nil
+             '(:help "Display the charter of the current group"))]
+        ["Fetch control message" gnus-group-fetch-control
+         ,@(if (featurep 'xemacs) nil
+             '(:help "Display the archived control message for the current group"))]
         ["Read manual" gnus-info-find-node t])
        ("Modes"
         ["Pick and read" gnus-pick-mode t]

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 3ab8902..9bbe5d9 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-03  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus.texi (Group Information): Mention prefix argument for
+       gnus-group-fetch-charter and gnus-group-fetch-control.
+       From Jesper Harder.
+
 2002-09-26  Simon Josefsson  <jas@extundo.com>
 
        * gnus.texi (Agent Variables): Add.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 7250f5c..c539a57 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -4093,10 +4093,12 @@ through @code{gnus-group-faq-directory} and try to open them one by one.
 @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.
+(@code{gnus-group-fetch-charter}).  Query for a group if given a
+prefix argument.
+
+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)
@@ -4104,7 +4106,8 @@ group, which in some cases includes the charter.
 @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}).
+@code{ftp.isc.org} (@code{gnus-group-fetch-control}). Query for a
+group if given a prefix argument.
 
 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}.