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

Parsing priority as relevancy is a bad idea..

Browse source
This commit is contained in:
Jai Flack 2022-03-24 21:53:54 +10:00
parent 084dcdcf6a
commit 67180d45c4
No known key found for this signature in database
GPG key ID: B0073AB365D0807D
1 changed files with 12 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
gnus-search-mu.el
View file

@ -174,22 +174,20 @@ This can also be set per-server."
(buffer-substring-no-properties start (buffer-substring-no-properties start
end))) end)))
(defun gnus-search-mu--parse-priority (priority) ;; (defun gnus-search-mu--parse-priority (priority)
(cond ((string= priority "low") ;; (cond ((string= priority "low")
0) ;; 0)
((string= priority "normal") ;; ((string= priority "normal")
50) ;; 50)
((string= priority "high") ;; ((string= priority "high")
100))) ;; 100)))
(cl-defmethod gnus-search-indexed-extract ((_engine gnus-search-mu)) (cl-defmethod gnus-search-indexed-extract ((_engine gnus-search-mu))
(prog1 (prog1
(let* ((bol (line-beginning-position)) (let ((bol (line-beginning-position))
(eol (line-end-position)) (eol (line-end-position)))
(bound (search-forward " " eol))) (list (gnus-search-mu--substring bol eol)
(list (gnus-search-mu--substring bound eol) 100))
(gnus-search-mu--parse-priority
(gnus-search-mu--substring bol (1- bound)))))
(move-beginning-of-line 2))) (move-beginning-of-line 2)))
(cl-defmethod gnus-search-indexed-search-command ((engine gnus-search-mu) (cl-defmethod gnus-search-indexed-search-command ((engine gnus-search-mu)
@ -210,6 +208,6 @@ This can also be set per-server."
")") ")")
"") "")
"--format=plain" "--format=plain"
"--fields=\"p l\"")))) "--fields=l"))))
(provide 'gnus-search-mu) (provide 'gnus-search-mu)