Mercurial > emacs
changeset 110874:7996424ed273
nnir.el (nnir-read-parm): Fix call to gnus-completing-read.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sat, 09 Oct 2010 09:14:46 +0000 |
| parents | d98a67277730 |
| children | bb9bf961ba7b |
| files | lisp/gnus/ChangeLog lisp/gnus/nnir.el |
| diffstat | 2 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Oct 09 08:44:12 2010 +0000 +++ b/lisp/gnus/ChangeLog Sat Oct 09 09:14:46 2010 +0000 @@ -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.
--- a/lisp/gnus/nnir.el Sat Oct 09 08:44:12 2010 +0000 +++ b/lisp/gnus/nnir.el Sat Oct 09 09:14:46 2010 +0000 @@ -376,7 +376,7 @@ (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 @@ (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)))