From 678fac43613054b8b54db548f5e2806193daf939 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 30 Oct 2010 00:50:11 +0200 Subject: [PATCH] Don't have point move to the previous line on `M-g' From Stephen Berman --- lisp/ChangeLog | 5 +++++ lisp/gnus-group.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 01305ccd7..b03837bb5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-10-29 Stephen Berman (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 * 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 a777beb74..839518344 100644 --- 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 -- 2.25.1