# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1291816189 0
# Node ID 7b4048d4560368be4e2b9cb657ef16de2d3c28f1
# Parent  dd83cbcddf69f8a18cbce296e5ed2f69587ca304
nnir.el (nnir-retrieve-headers): Use rassq when comparing article ids.
 (nnir-run-gmane): Simplify groupspec formatting.

diff -r dd83cbcddf69 -r 7b4048d45603 lisp/gnus/ChangeLog
--- 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
diff -r dd83cbcddf69 -r 7b4048d45603 lisp/gnus/nnir.el
--- 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))) ""))