From 5958eef64ff051cdc49400369475759e56c654ea Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 17 Dec 1996 20:53:28 +0000 Subject: [PATCH] (news-mail-reply, news-reply): Include the message ID in the In-reply-to line. --- lisp/mail/rnewspost.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el index 46becf890b5..3d6be2505f0 100644 --- a/lisp/mail/rnewspost.el +++ b/lisp/mail/rnewspost.el @@ -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 -- 2.39.5