From 7a4abdd6a767518581665ab73209db3c10fc2b3a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 1 Sep 2009 03:07:11 +0000 Subject: [PATCH] (gnus-pick-mouse-pick-region): Use forward-line rather than goto-line. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-salt.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 8af05ff545a..9f0cc223cfd 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2009-09-01 Glenn Morris + + * gnus-salt.el (gnus-pick-mouse-pick-region): Use forward-line rather + than goto-line. + 2009-08-29 Stefan Monnier * spam.el (spam-ifile-path, spam-bogofilter-path, spam-sa-learn-path) diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el index 1e1aed52b82..9b595a8e3ca 100644 --- a/lisp/gnus/gnus-salt.el +++ b/lisp/gnus/gnus-salt.el @@ -1,7 +1,7 @@ ;;; gnus-salt.el --- alternate summary mode interfaces for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2003, 2004, 2005, +;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news @@ -273,9 +273,9 @@ This must be bound to a button-down mouse event." (let* ((this-line (1+ (count-lines (point-min) end-point))) (min-line (min this-line start-line)) (max-line (max this-line start-line))) - ;; Why not use `forward-line'? --Stef (while (< min-line max-line) - (goto-line min-line) + (goto-char (point-min)) + (forward-line (1- min-line)) (gnus-pick-article) (setq min-line (1+ min-line))) (setq start-line this-line)) -- 2.39.5