From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Tue, 9 May 2017 02:13:50 +0000 (+0800)
Subject: Restore accidentally remove gnus-summary-make-search-group
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28f6e8a04b1995c04b6ded6e98e732f00d4fc1f6;p=emacs.git

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 3887442201f..5bb59bf540c 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)