jflack
/
gnus-search-mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove gnus-search-indexed-parse-output defmethod as patch is merged

This commit is contained in:
Jai Flack 2021-02-15 18:43:16 +10:00
parent f639efc649
commit 18f8b41045
Signed by: jflack
GPG Key ID: 1337AEA30052317F
1 changed files with 0 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
gnus-search-mu.el
View File

@ -201,61 +201,4 @@ This can also be set per-server."
"")
"--format=sexp"))))
(cl-defmethod gnus-search-indexed-parse-output ((engine gnus-search-mu)
server query &optional groups)
(let ((prefix (slot-value engine 'remove-prefix))
(group-regexp (when groups
(mapconcat
(lambda (x)
(regexp-quote (gnus-group-real-name x)))
groups "\\|")))
artlist vectors article group)
(goto-char (point-min))
(while (not (eobp))
(pcase-let ((`(,f-name ,score) (gnus-search-indexed-extract engine)))
(when (and (file-readable-p f-name)
(null (file-directory-p f-name))
(or (null groups)
(and (gnus-search-single-p query)
(alist-get 'thread query))
(string-match-p group-regexp f-name)))
(push (list f-name score) artlist))))
;; Are we running an additional grep query?
(when-let ((grep-reg (alist-get 'grep query)))
(setq artlist (gnus-search-grep-search engine artlist grep-reg)))
;; Prep prefix.
(when (and prefix (null (string-empty-p prefix)))
(setq prefix (file-name-as-directory (expand-file-name prefix))))
;; Turn (file-name score) into [group article score].
(pcase-dolist (`(,f-name ,score) artlist)
(setq article (file-name-nondirectory f-name)
group (file-name-directory f-name))
;; Remove prefix.
(when prefix
(setq group (string-remove-prefix prefix group)))
;; Break the directory name down until it's something that
;; (probably) can be used as a group name.
(setq group
(replace-regexp-in-string
"[/\\]" "."
(replace-regexp-in-string
"/?\\(cur\\|new\\|tmp\\)?/\\'" ""
(replace-regexp-in-string
"^[./\\]" ""
group nil t)
nil t)
nil t))
(push (vector (gnus-group-full-name group server)
(if (string-match-p "\\`[[:digit:]]+\\'" article)
(string-to-number article)
(nnmaildir-base-name-to-article-number
(substring article 0 (string-match ":" article))
group (string-remove-prefix "nnmaildir:" server)))
(if (numberp score)
score
(string-to-number score)))
vectors))
vectors))
(provide 'gnus-search-mu)