X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-int.el;h=33d020f2a1a849e15378ed3d46af560f9d449b0e;hb=8339220cc25db3fbdab4367d6252e596bddd9cb1;hp=3245b16997b2d6358817d8cb6c03f5f2cf2b77fc;hpb=c59af0125bbb6e57a071d9f11bf130f251ca1749;p=gnus

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 3245b1699..33d020f2a 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -94,11 +94,10 @@ If CONFIRM is non-nil, the user will be asked for an NNTP server."
       (when confirm
 	;; Read server name with completion.
 	(setq gnus-nntp-server
-	      (completing-read "NNTP server: "
-			       (mapcar 'list
-				       (cons (list gnus-nntp-server)
-					     gnus-secondary-servers))
-			       nil nil gnus-nntp-server)))
+	      (gnus-completing-read "NNTP server"
+                                    (cons gnus-nntp-server
+                                          gnus-secondary-servers)
+                                    nil gnus-nntp-server)))
 
       (when (and gnus-nntp-server
 		 (stringp gnus-nntp-server)