procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Find correct parent for articles in gnus

Browse source 
* lisp/gnus/gnus-sum.el (gnus-summary-refer-parent-article): When an
article's headers have been altered, use the altered headers to find the
parent.
This commit is contained in:
Andrew G Cohen 2024-04-27 09:10:44 +08:00
parent 1b8613063c
commit e29eb0e0f1
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/gnus-sum.el
View file

@ -8939,7 +8939,8 @@ The difference between N and the number of articles fetched is returned."
(while (and (> n 0)
(not error))
(setq header (gnus-summary-article-header))
(if (and (eq (mail-header-number header)
(if (and (null gnus-alter-header-function)
(eq (mail-header-number header)
(cdr gnus-article-current))
(equal gnus-newsgroup-name
(car gnus-article-current)))
@ -8947,7 +8948,8 @@ The difference between N and the number of articles fetched is returned."
;; displayed article, then we take a look at the actual
;; References header, since this is slightly more
;; reliable than the References field we got from the
;; server.
;; server. But if we altered the header, we should prefer
;; the version from the header vector.
(with-current-buffer gnus-original-article-buffer
(nnheader-narrow-to-headers)
(unless (setq ref (message-fetch-field "references"))
@ -8955,8 +8957,8 @@ The difference between N and the number of articles fetched is returned."
(setq ref (gnus-extract-message-id-from-in-reply-to ref))))
(widen))
(setq ref
;; It's not the current article, so we take a bet on
;; the value we got from the server.
;; It's not the current article, or we altered the header,
;; so we use whats in the header vector.
(mail-header-references header)))
(if (and ref
(not (equal ref "")))