+2010-12-05 Andrew Cohen <cohen@andy.bu.edu>
+
+ * nnir.el (nnir-run-gmane): Use more careful test for gmane nntp
+ server.
+
2010-12-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-html.el (gnus-html-put-image): Use widget instead of local maps
;; 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.org$" srv)
+ (if (gnus-string-match-p
+ "gmane.org$"
+ (or (cadr (assoc 'nntp-address (cddr (gnus-server-to-method srv))))
+ ""))
(let* ((case-fold-search t)
(qstring (cdr (assq 'query query)))
(server (cadr (gnus-server-to-method srv)))