gnus-agent-add-group: fix call to gnus-completing-read

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 251bc7f..b936ea1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-30  Julien Danjou  <julien@danjou.info>
+
+       * gnus-agent.el (gnus-agent-add-group): Fix call to
+       gnus-completing-read.
+
 2010-09-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nndoc.el (nndoc-retrieve-groups): New function.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 8043620..04bdb3b 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -817,7 +817,7 @@ be a select method."
       "Add to category"
       (mapcar (lambda (cat) (symbol-name (car cat)))
              gnus-category-alist)
-      nil t))
+      t))
     current-prefix-arg))
   (let ((cat (assq category gnus-category-alist))
        c groups)