[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-salt.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/01 03:07:13

Modified files:
        lisp/gnus      : ChangeLog gnus-salt.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.820&r2=1.821
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-salt.el?cvsroot=emacs&r1=1.22&r2=1.23

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.820
retrieving revision 1.821
diff -u -b -r1.820 -r1.821
--- ChangeLog   29 Aug 2009 03:03:24 -0000      1.820
+++ ChangeLog   1 Sep 2009 03:07:11 -0000       1.821
@@ -1,3 +1,8 @@
+2009-09-01  Glenn Morris  <address@hidden>
+
+       * gnus-salt.el (gnus-pick-mouse-pick-region): Use forward-line rather
+       than goto-line.
+
 2009-08-29  Stefan Monnier  <address@hidden>
 
        * spam.el (spam-ifile-path, spam-bogofilter-path, spam-sa-learn-path)

Index: gnus-salt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-salt.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- gnus-salt.el        5 Jan 2009 03:22:03 -0000       1.22
+++ gnus-salt.el        1 Sep 2009 03:07:12 -0000       1.23
@@ -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 <address@hidden>
 ;; 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))