Index: lisp/message.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v
retrieving revision 6.228
diff -u -r6.228 message.el
--- lisp/message.el	2002/04/21 02:42:45	6.228
+++ lisp/message.el	2002/06/01 06:01:30
@@ -3723,6 +3723,10 @@
 		 (and psupersedes
 		      (string-match "_-_@" psupersedes)))
 		"_-_" ""))
+	  (let ((msgid-arch-tag-p (message-fetch-field "x-msgid-archive-tag")))
+	    (if msgid-arch-tag-p
+		msgid-arch-tag-p
+	      ""))
 	  "@" (message-make-fqdn) ">"))
 
 (defvar message-unique-id-char nil)