From: Glenn Morris <rgm@gnu.org>
Date: Fri, 21 Aug 2009 07:34:18 +0000 (+0000)
Subject: (news-mail-reply): Use goto-char rather than goto-line.
X-Git-Tag: emacs-pretest-23.1.90~1764
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fff28970383c88621cfcdd79375ca200bd69bb0e;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e73697dcf0d..67d416c8ada 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-08-21  Glenn Morris  <rgm@gnu.org>
 
+	* 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.
 
diff --git a/lisp/obsolete/rnewspost.el b/lisp/obsolete/rnewspost.el
index 4513cad6d5c..3b64516b410 100644
--- a/lisp/obsolete/rnewspost.el
+++ b/lisp/obsolete/rnewspost.el
@@ -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 @@ original message into it."
   (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")