Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fff28970
Commit
fff28970
authored
Aug 21, 2009
by
Glenn Morris
Browse files
(news-mail-reply): Use goto-char rather than goto-line.
parent
d93e053b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
4 deletions
+7
-4
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/obsolete/rnewspost.el
lisp/obsolete/rnewspost.el
+4
-4
No files found.
lisp/ChangeLog
View file @
fff28970
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.
...
...
lisp/obsolete/rnewspost.el
View file @
fff28970
;;; 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"
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment