[elpa] externals/gnorb 55a630d 238/449: Gnus hinting needs to check in-reply-to as well

[Stefan Monnier]

branch: externals/gnorb
commit 55a630de5983f569db71b181050c2053fb8797dc
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Gnus hinting needs to check in-reply-to as well
    
    * gnorb-gnus.el (gnorb-gnus-hint-relevant-message): Ref-ids should be a
      combination of references and in-reply-to.
    
    In other places I'm able to use mail-header-references on a header
    variable, which combines references and in-reply-to by default. Need to
    do it manually here.
---
 gnorb-gnus.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index 19db49d..bd7a765 100644
--- a/gnorb-gnus.el
+++ b/gnorb-gnus.el
@@ -595,7 +595,9 @@ option `gnorb-gnus-hint-relevant-article' is non-nil."
             (not (memq (car (gnus-find-method-for-group
                              gnus-newsgroup-name))
                        '(nnvirtual nnir))))
-    (let* ((ref-ids (gnus-fetch-original-field "references"))
+    (let* ((ref-ids (concat
+                    (gnus-fetch-original-field "references") " "
+                    (gnus-fetch-original-field "in-reply-to")))
           (msg-id (gnus-fetch-original-field "message-id"))
           (assoc-heading
            (gnus-registry-get-id-key msg-id 'gnorb-ids))