nnir.el (gnus-nnir-group-p): Fix to work with unprefixed groups.

[gnus] / lisp / nnir.el

diff --git a/lisp/nnir.el b/lisp/nnir.el
index 871ac96..779bd2c 100644 (file)
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -1709,8 +1709,9 @@ actually)."
 
 (defun gnus-nnir-group-p (group)
   "Say whether GROUP is nnir or not."
-  (eq 'nnir (car (gnus-find-method-for-group group))))
-
+  (if (gnus-group-prefixed-p group)
+      (eq 'nnir (car (gnus-find-method-for-group group)))
+    (and group (string-match "^nnir" group))))
 
 (defun nnir-read-parms (nnir-search-engine)
   "Reads additional search parameters according to `nnir-engines'."