From: Glenn Morris <rgm@gnu.org>
Date: Sat, 22 Aug 2009 19:13:34 +0000 (+0000)
Subject: (gnus-button-patch): Use forward-line rather than goto-line.
X-Git-Tag: emacs-pretest-23.1.90~1744
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5dcc825f21c290704e0bb205080e4f6e36bad69c;p=emacs.git

(gnus-button-patch): Use forward-line rather than goto-line.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index cd5bcc4f4d3..24500b64744 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-22  Glenn Morris  <rgm@gnu.org>
+
+	* gnus-art.el (gnus-button-patch): Use forward-line rather than
+	goto-line.
+
 2009-07-24  Glenn Morris  <rgm@gnu.org>
 
 	* gnus-demon.el (gnus-demon-add-nntp-close-connection):
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 09f481763df..cedfff0421c 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -7908,7 +7908,8 @@ url is put as the `gnus-button-url' overlay property on the button."
     (unless file
       (error "Couldn't find library %s" library))
     (find-file file)
-    (goto-line (string-to-number line))))
+    (goto-char (point-min))
+    (forward-line (1- (string-to-number line)))))
 
 (defun gnus-button-handle-man (url)
   "Fetch a man page."