From: David Engster Date: Mon, 8 Sep 2008 21:12:23 +0000 (+0000) Subject: (nnmairix-create-server-and-default-group): Require match in completing-read X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=5d8e85faa32514a412d6fa08389e7c1cfac85c4b (nnmairix-create-server-and-default-group): Require match in completing-read for back end server. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 70498ae75..3ace6f02b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-09-08 David Engster + + * nnmairix.el (nnmairix-create-server-and-default-group): Require match + in completing-read for back end server. + 2008-09-03 Teodor Zlatanov * message.el (message-confirm-send): New variable to confirm sending a diff --git a/lisp/nnmairix.el b/lisp/nnmairix.el index 6917b7739..32ca980fc 100644 --- a/lisp/nnmairix.el +++ b/lisp/nnmairix.el @@ -877,7 +877,7 @@ All necessary information will be queried from the user." (interactive) (let* ((name (read-string "Name of the mairix server: ")) (server (completing-read "Back end server (TAB for completion): " - (nnmairix-get-valid-servers))) + (nnmairix-get-valid-servers) nil 1)) (mairix (read-string "Command to call mairix: " "mairix")) (defaultgroup (read-string "Default search group: ")) (backend (symbol-name (car (gnus-server-to-method server))))