[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/gnus-select 28f6e8a 5/5: Restore accidentally remo
From: |
Andrew G Cohen |
Subject: |
[Emacs-diffs] feature/gnus-select 28f6e8a 5/5: Restore accidentally remove gnus-summary-make-search-group |
Date: |
Mon, 8 May 2017 22:15:34 -0400 (EDT) |
branch: feature/gnus-select
commit 28f6e8a04b1995c04b6ded6e98e732f00d4fc1f6
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)