nnir.el (nnir-read-parm): Fix call to gnus-completing-read.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8184183c451c89a34df044317c014bb802f878a0..7947aff31bcbd66d7cf683503ee72c44c5368b11 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-09  Julien Danjou  <julien@danjou.info>
 
+       * nnir.el (nnir-read-parm): Fix call to gnus-completing-read.
+
        * gnus-gravatar.el (gnus-gravatar-transform-address): Error errors when
        retrieving gravatars.
 

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 3739cb8614fb39fe71334a8b1bc4d6bdb0cddf6a..6d64935550f184fd4f28c153cff3cf1aa5617a2c 100644 (file)
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -376,7 +376,7 @@ result, `gnus-retrieve-headers' will be called instead.")
     (imap    nnir-run-imap
              ((criteria
               "Search in: "                      ; Prompt
-              ,nnir-imap-search-arguments        ; alist for completing
+              ,(mapcar 'car nnir-imap-search-arguments) ; alist for completing
               nil                                ; no filtering
               nil                                ; allow any user input
               nil                                ; initial value
@@ -1579,7 +1579,7 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
   (let ((sym (car parmspec))
         (prompt (cdr parmspec)))
     (if (listp prompt)
-       (let* ((result (gnus-completing-read prompt nil))
+       (let* ((result (apply 'gnus-completing-read prompt))
               (mapping (or (assoc result nnir-imap-search-arguments)
                            (assoc nil nnir-imap-search-arguments))))
          (cons sym (format (cdr mapping) result)))