[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-art.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/08/22 19:13:35

Modified files:
        lisp/gnus      : ChangeLog gnus-art.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.814&r2=1.815
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-art.el?cvsroot=emacs&r1=1.180&r2=1.181

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.814
retrieving revision 1.815
diff -u -b -r1.814 -r1.815
--- ChangeLog   26 Jul 2009 08:34:53 -0000      1.814
+++ ChangeLog   22 Aug 2009 19:13:34 -0000      1.815
@@ -1,3 +1,8 @@
+2009-08-22  Glenn Morris  <address@hidden>
+
+       * gnus-art.el (gnus-button-patch): Use forward-line rather than
+       goto-line.
+
 2009-07-24  Glenn Morris  <address@hidden>
 
        * gnus-demon.el (gnus-demon-add-nntp-close-connection):

Index: gnus-art.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-art.el,v
retrieving revision 1.180
retrieving revision 1.181
diff -u -b -r1.180 -r1.181
--- gnus-art.el 26 Jul 2009 08:34:54 -0000      1.180
+++ gnus-art.el 22 Aug 2009 19:13:34 -0000      1.181
@@ -7908,7 +7908,8 @@
     (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."