(gnus-browse-delete-group): Fix syntax error.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2eb6023..93e06eb 100644 (file)
--- 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): Fix syntax error.
+
        * message.el (message-ignored-news-headers): Always remove
        X-Message-SMTP-Method to avoid information leakage if the user
        mistakenly inserts the header into news messages.

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 762ea60..ad86ef2 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -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