Mercurial > emacs
changeset 111852:7b4048d45603
nnir.el (nnir-retrieve-headers): Use rassq when comparing article ids.
(nnir-run-gmane): Simplify groupspec formatting.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 08 Dec 2010 13:49:49 +0000 |
| parents | dd83cbcddf69 |
| children | f7152aa1cc94 |
| files | lisp/gnus/ChangeLog lisp/gnus/nnir.el |
| diffstat | 2 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Dec 08 03:09:27 2010 -0500 +++ b/lisp/gnus/ChangeLog Wed Dec 08 13:49:49 2010 +0000 @@ -1,3 +1,9 @@ +2010-12-08 Andrew Cohen <cohen@andy.bu.edu> + + * nnir.el (nnir-retrieve-headers): Use rassq when comparing article + ids. + (nnir-run-gmane): Simplify groupspec formatting. + 2010-12-07 Lars Magne Ingebrigtsen <larsi@gnus.org> * nnimap.el (nnimap-parse-flags): Tweak VANISHED regexp to avoid regexp
--- a/lisp/gnus/nnir.el Wed Dec 08 03:09:27 2010 -0500 +++ b/lisp/gnus/nnir.el Wed Dec 08 13:49:49 2010 +0000 @@ -635,7 +635,7 @@ (while (not (eobp)) (let* ((novitem (funcall parsefunc)) (artno (mail-header-number novitem)) - (art (car (rassoc artno articleids)))) + (art (car (rassq artno articleids)))) (when art (mail-header-set-number novitem art) (push novitem headers)) @@ -1379,11 +1379,10 @@ (let* ((case-fold-search t) (qstring (cdr (assq 'query query))) (server (cadr (gnus-server-to-method srv))) - (groupspec (if groups - (mapconcat - (lambda (x) - (format "group:%s" (gnus-group-short-name x))) - groups " ") "")) + (groupspec (mapconcat + (lambda (x) + (format "group:%s" (gnus-group-short-name x))) + groups " ")) (authorspec (if (assq 'author query) (format "author:%s" (cdr (assq 'author query))) ""))