[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 35da3ed: Fix gnus search by message-id
From: |
Andrew G Cohen |
Subject: |
master 35da3ed: Fix gnus search by message-id |
Date: |
Sat, 18 Dec 2021 17:16:17 -0500 (EST) |
branch: master
commit 35da3ed05212e0222841becf614c109011f9ad80
Author: Andrew G Cohen <cohen@andy.bu.edu>
Commit: Andrew G Cohen <cohen@andy.bu.edu>
Fix gnus search by message-id
* lisp/gnus/gnus-search.el (gnus-search-run-search): Continue
iterating until a match is found.
* lisp/gnus/nnselect.el (nnselect-request-article): Use new
gnus-search query format.
---
lisp/gnus/gnus-search.el | 2 +-
lisp/gnus/nnselect.el | 5 ++---
2 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 46dc1cf..d64c0cb 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1060,7 +1060,7 @@ Responsible for handling and, or, and parenthetical
expressions.")
q-string)))
(while (and (setq group (pop grouplist))
- (or (null single-search) (null artlist)))
+ (or (null single-search) (= 0 (length artlist))))
(when (nnimap-change-group
(gnus-group-short-name group) server)
(with-current-buffer (nnimap-buffer)
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 252e9f6..0130f68 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -395,8 +395,7 @@ If this variable is nil, or if the provided function
returns nil,
(gnus-search-run-query
(list
(cons 'search-query-spec
- (list (cons 'query `((id . ,article)))
- (cons 'criteria "") (cons 'shortcut t)))
+ (list (cons 'query (format "id:%s" article))))
(cons 'search-group-spec servers))))
(unless (zerop (nnselect-artlist-length artlist))
(setq
@@ -905,7 +904,7 @@ article came from is also searched."
;; make sure
(setq list
(sort (map-merge
- 'list list
+ 'alist list
(alist-get type (gnus-info-marks group-info)))
(lambda (elt1 elt2)
(< (car elt1) (car elt2))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 35da3ed: Fix gnus search by message-id,
Andrew G Cohen <=