[Emacs-diffs] master 2d47483: Fix Gnus group name reference in gnus-mark-xrefs-as-read

[Eric Abrahamsen]

branch: master
commit 2d47483e815979d0ae0edd6f878b7fbb85fd72fa
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    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.
---
 lisp/gnus/gnus-sum.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index a6a0bdb..73478f4 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)