--- lisp/gnus-art.el~	Fri Mar  7 10:39:27 2003
+++ lisp/gnus-art.el	Sun Mar  9 15:52:15 2003
@@ -178,22 +178,26 @@
   :type '(repeat regexp)
   :group 'gnus-article-hiding)
 
-(defcustom gnus-boring-article-headers '(empty followup-to reply-to)
+(defcustom gnus-boring-article-headers '(empty broken-reply-to
+					       followup-to reply-to)
   "Headers that are only to be displayed if they have interesting data.
 Possible values in this list are:
 
-  'empty       Headers with no content.
-  'newsgroups  Newsgroup identical to Gnus group.
-  'to-address  To identical to To-address.
-  'to-list     To identical to To-list.
-  'cc-list     CC identical to To-list.
-  'followup-to Followup-to identical to Newsgroups.
-  'reply-to    Reply-to identical to From.
-  'date        Date less than four days old.
-  'long-to     To and/or Cc longer than 1024 characters.
-  'many-to     Multiple To and/or Cc."
+  'empty           Headers with no content.
+  'newsgroups      Newsgroup identical to Gnus group.
+  'broken-reply-to Reply-To in groups with (broken-reply-to . t).
+  'to-address      To identical to To-address.
+  'to-list         To identical to To-list.
+  'cc-list         CC identical to To-list.
+  'followup-to     Followup-to identical to Newsgroups.
+  'reply-to        Reply-to identical to From.
+  'date            Date less than four days old.
+  'long-to         To and/or Cc longer than 1024 characters.
+  'many-to         Multiple To and/or Cc."
   :type '(set (const :tag "Headers with no content." empty)
 	      (const :tag "Newsgroups identical to Gnus group." newsgroups)
+	      (const :tag "Reply-To in groups with (broken-reply-to . t)."
+		     broken-reply-to)
 	      (const :tag "To identical to To-address." to-address)
 	      (const :tag "To identical to To-list." to-list)
 	      (const :tag "CC identical to To-list." cc-list)
@@ -1604,6 +1608,10 @@
 			  gnus-newsgroup-name
 			"")))
 		(gnus-article-hide-header "newsgroups")))
+	     ((eq elem 'broken-reply-to)
+	      (if (gnus-group-find-parameter
+		   gnus-newsgroup-name 'broken-reply-to)
+		  (gnus-article-hide-header "reply-to")))
 	     ((eq elem 'to-address)
 	      (let ((to (message-fetch-field "to"))
 		    (to-address