From 28f6e8a04b1995c04b6ded6e98e732f00d4fc1f6 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Tue, 9 May 2017 10:13:50 +0800 Subject: [PATCH] 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 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) -- 2.39.5