Mercurial > emacs
changeset 104388:395f430854da
(news-mail-reply): Use goto-char rather than goto-line.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 21 Aug 2009 07:34:18 +0000 |
| parents | 1229ad8aec26 |
| children | 03262c903016 |
| files | lisp/ChangeLog lisp/obsolete/rnewspost.el |
| diffstat | 2 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Aug 21 07:31:10 2009 +0000 +++ b/lisp/ChangeLog Fri Aug 21 07:34:18 2009 +0000 @@ -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.
--- a/lisp/obsolete/rnewspost.el Fri Aug 21 07:31:10 2009 +0000 +++ b/lisp/obsolete/rnewspost.el Fri Aug 21 07:34:18 2009 +0000 @@ -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")