mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Glenn Morris 2009-09-01 03:07:11 +00:00
parent d63eb0e7b4
commit 7a4abdd6a7
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/gnus-salt.el
View file

@ -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))