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
5958eef6
Commit
5958eef6
authored
Dec 17, 1996
by
Richard M. Stallman
Browse files
(news-mail-reply, news-reply): Include the message
ID in the In-reply-to line.
parent
2ff20b7e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
4 deletions
+11
-4
lisp/mail/rnewspost.el
lisp/mail/rnewspost.el
+11
-4
No files found.
lisp/mail/rnewspost.el
View file @
5958eef6
...
...
@@ -290,7 +290,7 @@ summary (abstract) of the message."
While composing the reply, use \\[news-reply-yank-original] to yank the
original message into it."
(
interactive
)
(
let
(
from
cc
subject
date
to
reply-to
(
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
))
...
...
@@ -299,7 +299,8 @@ original message into it."
(
setq
from
(
mail-fetch-field
"from"
)
subject
(
mail-fetch-field
"subject"
)
reply-to
(
mail-fetch-field
"reply-to"
)
date
(
mail-fetch-field
"date"
)))
date
(
mail-fetch-field
"date"
)
message-id
(
mail-fetch-field
"message-id"
)))
(
setq
to
from
)
(
pop-to-buffer
"*mail*"
)
(
mail
nil
...
...
@@ -307,7 +308,10 @@ original message into it."
subject
(
let
((
stop-pos
(
string-match
" *at \\| *@ \\| *(\\| *<"
from
)))
(
concat
(
if
stop-pos
(
substring
from
0
stop-pos
)
from
)
"'s message of "
"'s message "
(
if
message-id
(
concat
message-id
" of "
)
"of "
)
date
))
nil
buffer
)))
...
...
@@ -366,7 +370,10 @@ original message into it."
(
setq
message-of
(
concat
(
if
stop-pos
(
substring
from
0
stop-pos
)
from
)
"'s message of "
"'s message "
(
if
message-id
(
concat
message-id
" of "
)
"of "
)
date
)))))
(
news-setup
nil
...
...
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