# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1251774431 0
# Node ID 6558b4c12a5ab135359f1afdfb3a5c96a3a608bc
# Parent  17d2ae0948e22edb8fdf9312c88d16bf30ccbbfd
(gnus-pick-mouse-pick-region): Use forward-line rather than goto-line.

diff -r 17d2ae0948e2 -r 6558b4c12a5a lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Sep 01 03:02:25 2009 +0000
+++ b/lisp/gnus/ChangeLog	Tue Sep 01 03:07:11 2009 +0000
@@ -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 -r 17d2ae0948e2 -r 6558b4c12a5a lisp/gnus/gnus-salt.el
--- a/lisp/gnus/gnus-salt.el	Tue Sep 01 03:02:25 2009 +0000
+++ b/lisp/gnus/gnus-salt.el	Tue Sep 01 03:07:11 2009 +0000
@@ -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 @@
 	      (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))