From 67180d45c4a45af6526ad9de88e4db12b600ba59 Mon Sep 17 00:00:00 2001 From: Jai Flack Date: Thu, 24 Mar 2022 21:53:54 +1000 Subject: [PATCH] Parsing priority as relevancy is a bad idea.. --- gnus-search-mu.el | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) diff --git a/gnus-search-mu.el b/gnus-search-mu.el index 8575fac..54c055b 100644 --- a/gnus-search-mu.el +++ b/gnus-search-mu.el @@ -174,22 +174,20 @@ This can also be set per-server." (buffer-substring-no-properties start end))) -(defun gnus-search-mu--parse-priority (priority) - (cond ((string= priority "low") - 0) - ((string= priority "normal") - 50) - ((string= priority "high") - 100))) +;; (defun gnus-search-mu--parse-priority (priority) +;; (cond ((string= priority "low") +;; 0) +;; ((string= priority "normal") +;; 50) +;; ((string= priority "high") +;; 100))) (cl-defmethod gnus-search-indexed-extract ((_engine gnus-search-mu)) (prog1 - (let* ((bol (line-beginning-position)) - (eol (line-end-position)) - (bound (search-forward " " eol))) - (list (gnus-search-mu--substring bound eol) - (gnus-search-mu--parse-priority - (gnus-search-mu--substring bol (1- bound))))) + (let ((bol (line-beginning-position)) + (eol (line-end-position))) + (list (gnus-search-mu--substring bol eol) + 100)) (move-beginning-of-line 2))) (cl-defmethod gnus-search-indexed-search-command ((engine gnus-search-mu) @@ -210,6 +208,6 @@ This can also be set per-server." ")") "") "--format=plain" - "--fields=\"p l\"")))) + "--fields=l")))) (provide 'gnus-search-mu)