[Emacs-diffs] emacs/lisp ChangeLog obsolete/rnewspost.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/08/21 07:34:21

Modified files:
        lisp           : ChangeLog 
        lisp/obsolete  : rnewspost.el 

Log message:
        (news-mail-reply): Use goto-char rather than goto-line.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15985&r2=1.15986
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/obsolete/rnewspost.el?cvsroot=emacs&r1=1.17&r2=1.18

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15985
retrieving revision 1.15986
diff -u -b -r1.15985 -r1.15986
--- ChangeLog   21 Aug 2009 07:31:10 -0000      1.15985
+++ ChangeLog   21 Aug 2009 07:34:18 -0000      1.15986
@@ -1,5 +1,8 @@
 2009-08-21  Glenn Morris  <address@hidden>
 
+       * obsolete/rnewspost.el (news-mail-reply):
+       Use goto-char rather than goto-line.
+
        * term/ns-win.el (ns-open-file-select-line):
        Use line-beginning-position rather than goto-line.
 

Index: obsolete/rnewspost.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/obsolete/rnewspost.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- obsolete/rnewspost.el       5 Jan 2009 03:22:59 -0000       1.17
+++ obsolete/rnewspost.el       21 Aug 2009 07:34:21 -0000      1.18
@@ -1,7 +1,7 @@
 ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
 
-;; Copyright (C) 1985, 1986, 1987, 1995, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1987, 1995, 2001, 2002, 2003, 2004, 2005,
+;;   2006, 2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: mail, news
@@ -296,9 +296,9 @@
   (let (from cc subject date to reply-to message-id
             (buffer (current-buffer)))
     (save-restriction
-      (narrow-to-region (point-min) (progn (goto-line (point-min))
+      (narrow-to-region (point-min) (progn (goto-char (point-min))
                                           (search-forward "\n\n")
-                                          (- (point) 1)))
+                                          (1- (point))))
       (setq from (mail-fetch-field "from")
            subject (mail-fetch-field "subject")
            reply-to (mail-fetch-field "reply-to")