[Emacs-diffs] /srv/bzr/emacs/trunk r102650: nnir.el (nnir-run-gmane): Better check for gmane groups: error out if groupname doesn't contain "gmane".

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102650
author: Andrew Cohen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-12-13 23:31:59 +0000
message:
  nnir.el (nnir-run-gmane): Better check for gmane groups: error out if 
groupname doesn't contain "gmane".
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnir.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-12-13 22:29:12 +0000
+++ b/lisp/gnus/ChangeLog       2010-12-13 23:31:59 +0000
@@ -1,3 +1,8 @@
+2010-12-13  Andrew Cohen  <address@hidden>
+
+       * nnir.el (nnir-run-gmane): Better check for gmane groups: error out if
+       groupname doesn't contain "gmane".
+
 2010-12-13  Lars Magne Ingebrigtsen  <address@hidden>
 
        * gnus-start.el (gnus-matches-options-n): Fix typo in last change.

=== modified file 'lisp/gnus/nnir.el'
--- a/lisp/gnus/nnir.el 2010-12-13 22:29:12 +0000
+++ b/lisp/gnus/nnir.el 2010-12-13 23:31:59 +0000
@@ -1397,14 +1397,15 @@
 ;; gmane interface
 (defun nnir-run-gmane (query srv &optional groups)
   "Run a search against a gmane back-end server."
-  (if (gnus-string-match-p  "gmane" srv)
       (let* ((case-fold-search t)
             (qstring (cdr (assq 'query query)))
             (server (cadr (gnus-server-to-method srv)))
             (groupspec (mapconcat
                         (lambda (x)
-                          (format "group:%s" (gnus-group-short-name x)))
-                        groups " "))
+                          (if (gnus-string-match-p "gmane" x)
+                              (format "group:%s" (gnus-group-short-name x))
+                            (error "Can't search non-gmane groups: %s" x)))
+                          groups " "))
             (authorspec
              (if (assq 'author query)
                  (format "author:%s" (cdr (assq 'author query))) ""))
@@ -1439,9 +1440,7 @@
                      (string-to-number (match-string 2 xref)) xscore)
                     artlist)))))
            (forward-line 1)))
-       (apply 'vector (nreverse (mm-delete-duplicates artlist))))
-    (message "Can't search non-gmane nntp groups")
-    nil))
+       (apply 'vector (nreverse (mm-delete-duplicates artlist)))))
 
 ;;; Util Code: