(nnmairix-create-server-and-default-group): Require match in completing-read
authorDavid Engster <dengste@eml.cc>
Mon, 8 Sep 2008 21:12:23 +0000 (21:12 +0000)
committerDavid Engster <dengste@eml.cc>
Mon, 8 Sep 2008 21:12:23 +0000 (21:12 +0000)
for back end server.

lisp/ChangeLog
lisp/nnmairix.el

index 70498ae..3ace6f0 100644 (file)
@@ -1,3 +1,8 @@
+2008-09-08  David Engster  <dengste@eml.cc>
+
+       * nnmairix.el (nnmairix-create-server-and-default-group): Require match
+       in completing-read for back end server.
+
 2008-09-03  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * message.el (message-confirm-send): New variable to confirm sending a
index 6917b77..32ca980 100644 (file)
@@ -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))))