Mercurial > emacs

comparison lisp/obsolete/rnewspost.el @ 104388:395f430854da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a9dc0e7c3f2b
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
104387:1229ad8aec26 104388:395f430854da
1 ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs 1 ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
2 2
3 ;; Copyright (C) 1985, 1986, 1987, 1995, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1985, 1986, 1987, 1995, 2001, 2002, 2003, 2004, 2005,
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4 ;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
5 5
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: mail, news 7 ;; Keywords: mail, news
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
294 original message into it." 294 original message into it."
295 (interactive) 295 (interactive)
296 (let (from cc subject date to reply-to message-id 296 (let (from cc subject date to reply-to message-id
297 (buffer (current-buffer))) 297 (buffer (current-buffer)))
298 (save-restriction 298 (save-restriction
299 (narrow-to-region (point-min) (progn (goto-line (point-min)) 299 (narrow-to-region (point-min) (progn (goto-char (point-min))
300 (search-forward "\n\n") 300 (search-forward "\n\n")
301 (- (point) 1))) 301 (1- (point))))
302 (setq from (mail-fetch-field "from") 302 (setq from (mail-fetch-field "from")
303 subject (mail-fetch-field "subject") 303 subject (mail-fetch-field "subject")
304 reply-to (mail-fetch-field "reply-to") 304 reply-to (mail-fetch-field "reply-to")
305 date (mail-fetch-field "date") 305 date (mail-fetch-field "date")
306 message-id (mail-fetch-field "message-id"))) 306 message-id (mail-fetch-field "message-id")))