Don't have point move to the previous line on `M-g'

From Stephen Berman  <stephen.berman@gmx.net>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 01305cc..b03837b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-29  Stephen Berman  <stephen.berman@gmx.net>  (tiny change)
+
+       * gnus-group.el (gnus-group-get-new-news-this-group): Don't have point
+       move to the previous line on `M-g'.
+
 2010-10-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-msg.el (gnus-inews-do-gcc): Don't have the backends do the slow

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index a777beb..8395183 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3988,7 +3988,7 @@ If DONT-SCAN is non-nil, scan non-activated groups as well."
   (let* ((groups (gnus-group-process-prefix n))
         (ret (if (numberp n) (- n (length groups)) 0))
         (beg (unless n
-               (point)))
+               (point-marker)))
         group method
         (gnus-inhibit-demon t)
         ;; Binding this variable will inhibit multiple fetchings