(news-mail-reply, news-reply): Include the message

ID in the In-reply-to line.

1 files 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