(gnus-group-mark-group): Use gnus-group-position-point instead of the summary one.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9160666..79dca4a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-group.el (gnus-group-mark-group): Use gnus-group-position-point
+       instead of the summary one.
+
 2010-10-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mml.el (mml-preview): Work properly when editing article.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 7152c18..7720c1c 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1887,7 +1887,7 @@ If FIRST-TOO, the current line is also eligible as a target."
       (unless no-advance
        (gnus-group-next-group 1))
       (decf n))
-    (gnus-summary-position-point)
+    (gnus-group-position-point)
     n))
 
 (defun gnus-group-unmark-group (n)
@@ -4009,7 +4009,7 @@ If DONT-SCAN is non-nil, scan non-activated groups as well."
       (goto-char beg))
     (when gnus-goto-next-group-when-activating
       (gnus-group-next-unread-group 1 t))
-    (gnus-summary-position-point)
+    (gnus-group-position-point)
     ret))
 
 (defun gnus-group-fetch-control (group)