From: keiichi <keiichi>
Date: Wed, 4 Nov 1998 01:39:12 +0000 (+0000)
Subject: Sync up with Semi-gnus 6.8.
X-Git-Tag: keiichi-199811302358~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=035562bb5018b0c6c33fbcab9488bc5ef20820e9;p=elisp%2Fgnus.git-

Sync up with Semi-gnus 6.8.
---

diff --git a/lisp/message.el b/lisp/message.el
index 691687a..e83afde 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3047,17 +3047,21 @@ to find out how to use this."
   "Return the In-Reply-To header for this message."
   (when message-reply-headers
     (let ((from (mail-header-from message-reply-headers))
-	  (date (mail-header-date message-reply-headers)))
-      (when from
-	(let ((stop-pos
-	       (string-match "  *at \\|  *@ \\| *(\\| *<" from)))
-	  (concat (if (and stop-pos
-			   (not (zerop stop-pos)))
-		      (substring from 0 stop-pos) from)
-		  "'s message of \""
-		  (if (or (not date) (string= date ""))
-		      "(unknown date)" date)
-		  "\""))))))
+	  (date (mail-header-date message-reply-headers))
+	  (msg-id (mail-header-message-id message-reply-headers)))
+      (when msg-id
+	(concat msg-id
+		(when from
+		  (let ((stop-pos
+			 (string-match "  *at \\|  *@ \\| *(\\| *<" from)))
+		    (concat " ("
+			    (if (and stop-pos
+				     (not (zerop stop-pos)))
+				(substring from 0 stop-pos) from)
+			    "'s message of \""
+			    (if (or (not date) (string= date ""))
+				"(unknown date)" date)
+			    "\")"))))))))
 
 (defun message-make-distribution ()
   "Make a Distribution header."