Re: New "gnus-search" syntax and interface

[Eric Abrahamsen <eric@ericabrahamsen.net>]

yoctocell <yoctocell@disroot.org> writes:

> On 13 December 2020 08:49, Eric Abrahamsen <eric@ericabrahamsen.net> wrote:
>
>> Ah, it's possible that some search engine caching I put in there is
>> misbehaving. What are the types and labels of your two accounts?
> I am not sure I understand what you mean by types and labels.

Sorry, I meant the combination of the nnmaildir symbol, and the string
"address" or label that comes after it in the server definition. But I
see that your servers are uniquely labeled, so that was a red herring.

Actually, I have a suspicion of what's going on here: the nils mean that
nnmaildir code is unable to convert the maildir file names to article
numbers, and I think it's unable to do that because it is getting
confused about which nnmaildir backend is "current". Would you eval the
following function, and let me know if it lets you search back and forth
between backends without error?

And just to really push our luck, would you try marking groups from both
backends and searching them at the same time?

Thanks,
Eric

(cl-defmethod gnus-search-indexed-parse-output ((engine gnus-search-indexed)
						server query &optional groups)
  (let ((prefix (slot-value engine 'remove-prefix))
	(group-regexp (when groups
			(mapconcat
			 (lambda (x)
			   (replace-regexp-in-string
			    ;; Accept any of [.\/] as path separators.
			    "[.\\/]" "[.\\\\/]"
			    (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))