From: Andrew G Cohen 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)