From: Eric Abrahamsen Date: Sun, 4 Aug 2019 00:01:52 +0000 (-0700) Subject: Fix Gnus group name reference in gnus-mark-xrefs-as-read X-Git-Tag: emacs-27.0.90~1716 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d47483e815979d0ae0edd6f878b7fbb85fd72fa;p=emacs.git 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. --- diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index a6a0bdb2287..73478f4cbdd 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -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) "Look through all the headers and mark the Xrefs as read." (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 (when (setq xref-hashtb (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." (unless (string= from-newsgroup group) ;; Dead groups are not updated. (and (prog1 - (setq info (gnus-get-info name)) + (setq info (gnus-get-info group)) (when (stringp (setq nth4 (gnus-info-method info))) (setq nth4 (gnus-server-to-method nth4)))) ;; 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." ;; Only do cross-references on subscribed ;; groups, if that is what is wanted. (<= (gnus-info-level info) gnus-level-subscribed)) - (gnus-group-make-articles-read name idlist)))) + (gnus-group-make-articles-read group idlist)))) xref-hashtb))))) (defun gnus-compute-read-articles (group articles)