X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fgnus-srvr.el;h=69774587d809af381fe3d9f3089c4caf014c87f3;hb=3d437db492eb745dc3eb870dbb3bee4dcb4d5a3d;hp=762ea60909dd26206d4e73de72fba31e4fc4fe1f;hpb=f56434220241047ae0d5cafc235b1e6250ef15bf;p=gnus

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 762ea6090..69774587d 100644
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -1,6 +1,6 @@
 ;;; gnus-srvr.el --- virtual server support for Gnus
 
-;; Copyright (C) 1995-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1995-2013 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -965,7 +965,7 @@ 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)
+(defun gnus-browse-delete-group (group force)
   "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