From 8057db3f8a36e3c86c52dc569be492afeda192ec Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 6 Sep 2002 18:35:31 +0000 Subject: [PATCH] (gnus-browse-describe-group): New command and keystroke. --- lisp/ChangeLog | 5 +++++ lisp/gnus-srvr.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b323be6e4..4ef112b47 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-09-06 Lars Magne Ingebrigtsen + + * gnus-srvr.el (gnus-browse-describe-group): New command and + keystroke. + 2002-09-06 Katsumi Yamaoka * gnus-art.el (gnus-article-treat-body-boundary): Don't quote a diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el index 3d8377863..8705cf113 100644 --- a/lisp/gnus-srvr.el +++ b/lisp/gnus-srvr.el @@ -662,6 +662,7 @@ The following commands are available: "L" gnus-browse-exit "q" gnus-browse-exit "Q" gnus-browse-exit + "d" gnus-server-describe-group "\C-c\C-c" gnus-browse-exit "?" gnus-browse-describe-briefly @@ -878,6 +879,11 @@ buffer. (match-string-no-properties 1)) gnus-browse-current-method))))) +(defun gnus-browse-describe-group (group) + "Describe the current group." + (interactive (list (gnus-browse-group-name))) + (gnus-group-describe-group nil group)) + (defun gnus-browse-unsubscribe-group () "Toggle subscription of the current group in the browse buffer." (let ((sub nil) @@ -889,10 +895,6 @@ buffer. (unless (eq (char-after) ? ) (setq sub t)) (setq group (gnus-browse-group-name)) - ;;;; - ;;(when (and sub - ;; (cadr (gnus-gethash group gnus-newsrc-hashtb))) - ;;(error "Group already subscribed")) (if sub (progn ;; Make sure the group has been properly removed before we -- 2.34.1