Mercurial > emacs
changeset 104769:6558b4c12a5a
(gnus-pick-mouse-pick-region): Use forward-line rather than goto-line.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 01 Sep 2009 03:07:11 +0000 |
| parents | 17d2ae0948e2 |
| children | 603c369f665b |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-salt.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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))