Restore accidentally remove gnus-summary-make-search-group

* lisp/gnus/nnselect.el (gnus-summary-make-search-group): Restore the
function that was removed in a fit of overzealousness.

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 3887442201f6f2a56520c92279d57e6300480e8b..5bb59bf540cea88440dcd9ad56882adc09afecc8 100644 (file)
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -843,6 +843,19 @@ non-nil `specs' arg must be an alist with `nnir-query-spec' and
                           (cons 'nnir-group-spec group-spec)))))
        (cons 'nnselect-artlist nil))))))
 
+(defun gnus-summary-make-search-group (nnir-extra-parms)
+  "Search a group from the summary buffer."
+  (interactive "P")
+  (gnus-warp-to-article)
+  (let ((spec
+        (list
+         (cons 'nnir-group-spec
+               (list (list
+                      (gnus-group-server gnus-newsgroup-name)
+                      gnus-newsgroup-name))))))
+    (gnus-group-make-search-group nnir-extra-parms spec)))
+
+
 
 ;; The end.
 (provide 'nnselect)