Commit 7a4abdd6 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent d63eb0e7
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)
......
;;; 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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment