(gnus-group-delete-articles): New command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 459c57c..85d3d64 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-12-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-group.el (gnus-group-delete-articles): New command.
+
 2010-12-17  Andrew Cohen  <cohen@andy.bu.edu>
 
        * nnir.el (nnir-mode): Make sure 'gnus-registry-install is bound.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 73eeb71..9ce4f86 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2734,6 +2734,15 @@ server."
        (lambda (group)
          (gnus-group-delete-group group nil t))))))
 
+(defun gnus-group-delete-articles (group)
+  "Delete all articles in the current group."
+  (interactive (list (gnus-group-group-name)))
+  (let ((articles (gnus-uncompress-range (gnus-active group))))
+    (when (gnus-yes-or-no-p
+          (format "Do you really want to delete these %d articles forever? "
+                  (length articles)))
+      (gnus-request-expire-articles articles group 'force))))
+
 (defun gnus-group-delete-group (group &optional force no-prompt)
   "Delete the current group.  Only meaningful with editable groups.
 If FORCE (the prefix) is non-nil, all the articles in the group will