[Emacs-diffs] feature/gnus-select2 fde0e40 21/32: Restore accidentally remove gnus-summary-make-search-group

[Andrew G Cohen]

branch: feature/gnus-select2
commit fde0e4025a7bd4f07b80e21f688d462f6a97be75
Author: Andrew G Cohen <address@hidden>
Commit: Andrew G Cohen <address@hidden>

    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.
---
 lisp/gnus/nnselect.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 3887442..5bb59bf 100644
--- 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)