(gnus-pick-mouse-pick-region): Use forward-line rather than goto-line.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8af05ff545a7fd8c909c1a8220967f5a78c762d9..9f0cc223cfd805bf4747b5bb6952719c99677e13 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-01  Glenn Morris  <rgm@gnu.org>
+
+       * gnus-salt.el (gnus-pick-mouse-pick-region): Use forward-line rather
+       than goto-line.
+
 2009-08-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * 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 1e1aed52b82873edd54f932266a8a5bd80777311..9b595a8e3caecd97d57813efa1307e01760b34e3 100644 (file)
--- 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 <larsi@gnus.org>
 ;; 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))