Commit 2d47483e authored by Eric Abrahamsen's avatar Eric Abrahamsen

Fix Gnus group name reference in gnus-mark-xrefs-as-read

* lisp/gnus/gnus-sum.el (gnus-mark-xrefs-as-read): There's already a
local binding for "group", don't need another "name". This was left
over from the obarray-to-hashtable change.
parent 727e0eab
Pipeline #2743 failed with stage
in 56 minutes and 27 seconds
...@@ -6263,7 +6263,7 @@ The resulting hash table is returned, or nil if no Xrefs were found." ...@@ -6263,7 +6263,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
(defun gnus-mark-xrefs-as-read (from-newsgroup headers unreads) (defun gnus-mark-xrefs-as-read (from-newsgroup headers unreads)
"Look through all the headers and mark the Xrefs as read." "Look through all the headers and mark the Xrefs as read."
(let ((virtual (gnus-virtual-group-p from-newsgroup)) (let ((virtual (gnus-virtual-group-p from-newsgroup))
name info xref-hashtb method nth4) info xref-hashtb method nth4)
(with-current-buffer gnus-group-buffer (with-current-buffer gnus-group-buffer
(when (setq xref-hashtb (when (setq xref-hashtb
(gnus-create-xref-hashtb from-newsgroup headers unreads)) (gnus-create-xref-hashtb from-newsgroup headers unreads))
...@@ -6272,7 +6272,7 @@ The resulting hash table is returned, or nil if no Xrefs were found." ...@@ -6272,7 +6272,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
(unless (string= from-newsgroup group) (unless (string= from-newsgroup group)
;; Dead groups are not updated. ;; Dead groups are not updated.
(and (prog1 (and (prog1
(setq info (gnus-get-info name)) (setq info (gnus-get-info group))
(when (stringp (setq nth4 (gnus-info-method info))) (when (stringp (setq nth4 (gnus-info-method info)))
(setq nth4 (gnus-server-to-method nth4)))) (setq nth4 (gnus-server-to-method nth4))))
;; Only do the xrefs if the group has the same ;; Only do the xrefs if the group has the same
...@@ -6290,7 +6290,7 @@ The resulting hash table is returned, or nil if no Xrefs were found." ...@@ -6290,7 +6290,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
;; Only do cross-references on subscribed ;; Only do cross-references on subscribed
;; groups, if that is what is wanted. ;; groups, if that is what is wanted.
(<= (gnus-info-level info) gnus-level-subscribed)) (<= (gnus-info-level info) gnus-level-subscribed))
(gnus-group-make-articles-read name idlist)))) (gnus-group-make-articles-read group idlist))))
xref-hashtb))))) xref-hashtb)))))
(defun gnus-compute-read-articles (group articles) (defun gnus-compute-read-articles (group articles)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment