[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/gnus-search c7cf212 05/30: Move search group creat
From: |
Eric Abrahamsen |
Subject: |
[Emacs-diffs] scratch/gnus-search c7cf212 05/30: Move search group creation functions to gnus-group.el |
Date: |
Thu, 1 Jun 2017 03:50:19 -0400 (EDT) |
branch: scratch/gnus-search
commit c7cf2127d863bdd74b91e64a7975df246c251ebd
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Move search group creation functions to gnus-group.el
* lisp/gnus/gnus-group.el (gnus-group-make-search-group,
gnus-group-make-permanent-search-group): These two functions live in
gnus.group.el now.
* lisp/gnus/gnus-search.el: Remove from here.
---
lisp/gnus/gnus-group.el | 60 +++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 60 insertions(+)
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index a89201e..2e61b7d 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -52,6 +52,7 @@
(autoload 'gnus-cloud-upload-all-data "gnus-cloud")
(autoload 'gnus-cloud-download-all-data "gnus-cloud")
+(autoload 'gnus-registry-get-id-key "gnus-registry")
(defcustom gnus-no-groups-message "No news is good news"
"Message displayed by Gnus when no groups are available."
@@ -2795,6 +2796,65 @@ server."
(nnheader-get-report backend))))
t))
+(defun gnus-group-make-permanent-search-group (&optional arg specs)
+ (interactive "P")
+ (gnus-group-make-search-group arg t specs))
+
+(defun gnus-group-make-search-group (&optional arg perm specs)
+ "Create an nnselect group based on a search. Prompt for a
+search query and determine the groups to search as follows: if
+called from the *Server* buffer search all groups belonging to
+the server on the current line; if called from the *Group* buffer
+search any marked groups, or the group on the current line, or
+all the groups under the current topic. Calling with a prefix-arg
+means the search query will be passed raw to the . A
+non-nil `specs' arg must be an alist with `search-query-spec' and
+`search-group-spec' keys, and skips all prompting."
+ (interactive "P")
+ (let* ((group-spec
+ (or (cdr (assq 'search-group-spec specs))
+ (if (gnus-server-server-name)
+ (list (list (gnus-server-server-name)))
+ (nnselect-categorize
+ (or gnus-group-marked
+ (if (gnus-group-group-name)
+ (list (gnus-group-group-name))
+ (cdr (assoc (gnus-group-topic-name) gnus-topic-alist))))
+ gnus-group-server))))
+ (query-spec
+ (or (cdr (assq 'search-query-spec specs))
+ (list (cons 'query
+ (read-string "Query: " nil 'gnus-search-history))
+ (cons 'no-parse arg)))))
+ (if perm
+ (let ((name (read-string "Group name: " nil)))
+ (gnus-group-make-group
+ name
+ (list 'nnselect "nnselect")
+ nil
+ (list
+ (cons 'nnselect-specs
+ (list
+ (cons 'nnselect-function 'gnus-search-run-query)
+ (cons 'nnselect-args
+ (list (cons 'search-query-spec query-spec)
+ (cons 'search-group-spec group-spec))))))))
+ (gnus-group-read-ephemeral-group
+ (concat "nnselect-" (message-unique-id))
+ (list 'nnselect "nnselect")
+ nil
+ (cons (current-buffer) gnus-current-window-configuration)
+ ; nil
+ nil nil
+ (list
+ (cons 'nnselect-specs
+ (list
+ (cons 'nnselect-function 'gnus-search-run-query)
+ (cons 'nnselect-args
+ (list (cons 'search-query-spec query-spec)
+ (cons 'search-group-spec group-spec)))))
+ (cons 'nnselect-artlist nil))))))
+
(defun gnus-group-delete-groups (&optional arg)
"Delete the current group. Only meaningful with editable groups."
(interactive "P")
- [Emacs-diffs] branch scratch/gnus-search created (now 039df5e), Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search ad83eab 03/30: Make related change to nnselect.el, Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search c7cf212 05/30: Move search group creation functions to gnus-group.el,
Eric Abrahamsen <=
- [Emacs-diffs] scratch/gnus-search c89e129 11/30: Change "no-parse" query meta-key to "raw", Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search 5e80a4d 06/30: Create general gnus-search-indexed-massage-output method, Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search ede46af 12/30: Avoid circular import, Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search 9e61dd3 16/30: Find-grep can only search on plain strings, Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search cc541ba 14/30: Missing a base implementation of transform-expression for strings, Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search 31514a0 04/30: Add function gnus-search-prepare-query, Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search 32a328f 17/30: Fix for parsing delimited strings, Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search b086d9a 07/30: Handle regexp and wildcard search terms, Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search a4fe929 18/30: Notmuch query transformation improvements, Eric Abrahamsen, 2017/06/01
- [Emacs-diffs] scratch/gnus-search 2ae2549 24/30: Fix bum namazu search command, Eric Abrahamsen, 2017/06/01