Add new command gnus-browse-delete-group

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89b6c67..cf50eb5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-12-24  Lars Ingebrigtsen  <larsi@gnus.org>
 
 2012-12-24  Lars Ingebrigtsen  <larsi@gnus.org>
 

+       * gnus-srvr.el (gnus-browse-delete-group): New command and keystroke.
+

        * gnus-sum.el (gnus-summary-hide-thread): If point were further to the
        right than four characters, this command would move point to
        `point-max'.  Don't do that.
        * gnus-sum.el (gnus-summary-hide-thread): If point were further to the
        right than four characters, this command would move point to
        `point-max'.  Don't do that.

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index f58cb80..762ea60 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -713,6 +713,7 @@ claim them."
     "q" gnus-browse-exit
     "Q" gnus-browse-exit
     "d" gnus-browse-describe-group
     "q" gnus-browse-exit
     "Q" gnus-browse-exit
     "d" gnus-browse-describe-group

+    [delete] gnus-browse-delete-group

     "\C-c\C-c" gnus-browse-exit
     "?" gnus-browse-describe-briefly
 
     "\C-c\C-c" gnus-browse-exit
     "?" gnus-browse-describe-briefly
 


@@ -964,6 +965,16 @@ how new groups will be entered into the group buffer."
   (interactive (list (gnus-browse-group-name)))
   (gnus-group-describe-group nil group))
 
   (interactive (list (gnus-browse-group-name)))
   (gnus-group-describe-group nil group))
 

+(defun gnus-browse-delete-group (group)
+  "Delete the current group.  Only meaningful with editable groups.
+If FORCE (the prefix) is non-nil, all the articles in the group will
+be deleted.  This is \"deleted\" as in \"removed forever from the face
+of the Earth\".  There is no undo.  The user will be prompted before
+doing the deletion."
+  (interactive (list (gnus-browse-group-name)
+                    current-prefix-arg))
+  (gnus-group-delete-group group force))
+

 (defun gnus-browse-unsubscribe-group ()
   "Toggle subscription of the current group in the browse buffer."
   (let ((sub nil)
 (defun gnus-browse-unsubscribe-group ()
   "Toggle subscription of the current group in the browse buffer."
   (let ((sub nil)

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 45dccc1..cd3182b 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-24  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.texi (Browse Foreign Server): Document
+       `gnus-browse-delete-group'.
+

 2012-12-21  Glenn Morris  <rgm@gnu.org>
 
        * auth.texi, epa.texi, gnus-coding.texi, sasl.texi:
 2012-12-21  Glenn Morris  <rgm@gnu.org>
 
        * auth.texi, epa.texi, gnus-coding.texi, sasl.texi:

diff --git a/texi/gnus.texi b/texi/gnus.texi
index d954a27..8fb5904 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -3645,6 +3645,15 @@ Describe the current group (@code{gnus-browse-describe-group}).
 @findex gnus-browse-describe-briefly
 Describe browse mode briefly (well, there's not much to describe, is
 there) (@code{gnus-browse-describe-briefly}).
 @findex gnus-browse-describe-briefly
 Describe browse mode briefly (well, there's not much to describe, is
 there) (@code{gnus-browse-describe-briefly}).

+
+@item DEL
+@kindex DEL (Browse)
+@findex gnus-browse-delete-group
+This function will delete the current group
+(@code{gnus-browse-delete-group}).  If given a prefix, this function
+will actually delete all the articles in the group, and forcibly
+remove the group itself from the face of the Earth.  Use a prefix only
+if you are absolutely sure of what you are doing.

 @end table
 
 
 @end table