[Emacs-diffs] /srv/bzr/emacs/trunk r102610: nnir.el (nnir-retrieve-headers): Use rassq when comparing article ids.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102610
author: Andrew Cohen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-12-08 13:49:49 +0000
message:
  nnir.el (nnir-retrieve-headers): Use rassq when comparing article ids.
   (nnir-run-gmane): Simplify groupspec formatting.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnir.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-12-07 22:12:50 +0000
+++ b/lisp/gnus/ChangeLog       2010-12-08 13:49:49 +0000
@@ -1,3 +1,9 @@
+2010-12-08  Andrew Cohen  <address@hidden>
+
+       * nnir.el (nnir-retrieve-headers): Use rassq when comparing article
+       ids.
+       (nnir-run-gmane): Simplify groupspec formatting.
+
 2010-12-07  Lars Magne Ingebrigtsen  <address@hidden>
 
        * nnimap.el (nnimap-parse-flags): Tweak VANISHED regexp to avoid regexp

=== modified file 'lisp/gnus/nnir.el'
--- a/lisp/gnus/nnir.el 2010-12-07 14:10:11 +0000
+++ b/lisp/gnus/nnir.el 2010-12-08 13:49:49 +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))) ""))