From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Mon, 24 Apr 2017 02:53:07 +0000 (+0800)
Subject: ; Clean up parameter input for nnselect groups
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ff9a4f22ef8687368cacc913aa76a58b337dc4c;p=emacs.git

; Clean up parameter input for nnselect groups

* lisp/gnus/nnselect.el (nnselect-request-create-group): Better
argument parsing.
---

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 560468e2f7f..89255ee7b19 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -524,11 +524,10 @@ If this variable is nil, or if the provided function returns nil,
          (specs (assq 'nnselect-specs args))
          (function-spec
           (or  (alist-get 'nnselect-function specs)
-              (list
-	       (read-from-minibuffer "Function: " nil nil t))))
+	       (read-from-minibuffer "Function: " nil nil t)))
          (args-spec
           (or  (alist-get 'nnselect-args specs)
-               (read-from-minibuffer "Args: " nil nil t)))
+               (read-from-minibuffer "Args: " nil nil t nil "nil")))
          (nnselect-specs (list (cons 'nnselect-function function-spec)
 			       (cons 'nnselect-args args-spec))))
     (gnus-group-set-parameter group 'nnselect-specs nnselect-specs)