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.
+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
(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)))
(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))
"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
("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]
+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.
@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)
@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}.