From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 24 Dec 2012 17:03:42 +0000 (+0100)
Subject: Add new command gnus-browse-delete-group
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=f56434220241047ae0d5cafc235b1e6250ef15bf;p=gnus

Add new command gnus-browse-delete-group
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89b6c67ae..cf50eb5ce 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 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.
diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index f58cb8031..762ea6090 100644
--- 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
+    [delete] gnus-browse-delete-group
     "\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))
 
+(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)
diff --git a/texi/ChangeLog b/texi/ChangeLog
index 45dccc1f6..cd3182b95 100644
--- 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:
diff --git a/texi/gnus.texi b/texi/gnus.texi
index d954a270c..8fb590435 100644
--- 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}).
+
+@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