diff options
author | Glenn Morris <rgm@gnu.org> | 2009-08-21 07:34:18 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2009-08-21 07:34:18 +0000 |
commit | fff28970383c88621cfcdd79375ca200bd69bb0e (patch) | |
tree | e44b258073e86ef76aa693c1f8eb73ec5a168885 /lisp/obsolete | |
parent | d93e053bb544bca58f9d993c538ce45a6946cef6 (diff) |
(news-mail-reply): Use goto-char rather than goto-line.
Diffstat (limited to 'lisp/obsolete')
-rw-r--r-- | lisp/obsolete/rnewspost.el | 8 |
1 files changed, 4 insertions, 4 deletions
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") |