* gnus-group.el (gnus-group-mark-article-read): Typo. Increase n.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 906fdea..b6000b8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-01-07  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-group.el (gnus-group-mark-article-read): Typo. Increase n.
+
        * gnus-art.el (gnus-header-button-alist): Handle mailto.
 
        * mml.el (mml-preview): Bind gnus-original-article-buffer because

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index fa3eebc..6703dd9 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -4029,8 +4029,9 @@ This command may read the active file."
            (when active
              (setq n (1+ (cdr active)))
              (while (<= n (cdr gnus-newsgroup-active))
-               (unless (eq n mark)
-                 (push n gnus-newsgroup-unselected))))))
+               (unless (eq n article)
+                 (push n gnus-newsgroup-unselected))
+               (setq n (1+ n))))))
       (gnus-activate-group group)
       (gnus-group-make-articles-read group
                                     (list article))