GNU bug report logs - #75305
31.0.50; gnus-refer-thread-use-search isn't exact enough about how the current group is searched

Previous Next

Full log

Message #37 received at 75305 <at> debbugs.gnu.org (full text, mbox):

From: Andrew Cohen <acohen <at> ust.hk>
To: Eli Zaretskii <eliz <at> gnu.org>
Cc: eric <at> ericabrahamsen.net, bjorn.bidar <at> thaodan.de, cohen <at> andy.bu.edu,
 75305 <at> debbugs.gnu.org
Subject: Re: bug#75305: 31.0.50; gnus-refer-thread-use-search isn't exact
 enough about how the current group is searched
Date: Mon, 03 Feb 2025 10:26:36 +0800

>>>>> "EZ" == Eli Zaretskii <eliz <at> gnu.org> writes:

    EZ> Ping! Ping!  Andrew and Eric, any comments on the patch?

Sorry for not responding earlier.  I remain swamped with other things.

I think I understand what Bjorn wants, but I don't think the code is
quite correct. Bjorn, can you try the following and let me know if it
does what you want (these should apply but probably with some offset).

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 8aba3605f5b..b46ecf3b666 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -2224,7 +2224,11 @@ gnus-search-thread
                       (list (cons 'search-query-spec query)
                             (cons 'search-group-spec
                                   (if (listp gnus-refer-thread-use-search)
-                                      gnus-refer-thread-use-search
+                                      (mapcar (lambda (x)
+                                                (if (eq 'current x)
+                                                    (list server group)
+                                                  x))
+                                              gnus-refer-thread-use-search)
                                     (list (list server))))))))
         (if (< (nnselect-artlist-length thread) 2)
             (message "No other articles in thread")


diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 3cf720a8784..0b4dc384c19 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -737,7 +761,10 @@ nnselect-request-thread
                   (if (not gnus-refer-thread-use-search)
                       (list (list server artgroup))
                     (if (listp gnus-refer-thread-use-search)
-                        gnus-refer-thread-use-search
+                        (mapcar (lambda (x)
+                                  (if (eq 'current x)
+                                      (list server artgroup) x))
+                                gnus-refer-thread-use-search)
                       (list (list server)))))
                  (ids (cons (mail-header-id header)
                             (split-string

-- 
Andrew Cohen

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.