andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2009-08-21 07:34:18 +00:00
parent d93e053bb5
commit fff2897038
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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.

8
lisp/obsolete/rnewspost.el
View file

@ -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")