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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index cd5bcc4f4d30e0d498443642db3c66fab780f4d3..24500b647440ecfa659787c0dce54597fe0c81a9 100644 (file)
--- 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 09f481763df59091748484da75bd44f3b48ffc45..cedfff0421c14aefb74ca2a52d581a7ee383f0c4 100644 (file)
--- 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."