2 files changed, 5 insertions, 0 deletions
diff --git a/NEWS b/NEWS
index 291f21d..3c528ae 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+Version ?.? - ? ? 2009, by ?
+- add support for arbitrary compression filter used for xml-info.
+
 Version 5.9 - 20 January 2008, by Pascal "Pixel" Rigaux
 
 - drop parsehdlist, rpm2header: unused, partially duplicated with perl-URPM
diff --git a/gendistrib b/gendistrib
index 501fd9e..3879571 100755
--- a/gendistrib
+++ b/gendistrib
@@ -140,12 +140,14 @@ if ($noemptymedia) {
 foreach my $e (grep { !$_->{noneedrebuild} } @hdlists) {
     print STDERR qq(building hdlist & synthesis for medium "$e->{descr}"\n) unless $nooutput;
     my $file_deps = "$destinfodir/file-deps";
+    my $xml_info_filter = $distrib->getvalue($e->{media}, 'xml-info-filter');
     my $options = join(' ', 
 		       '--allow-empty-media', 
 		       $nooutput ? '--quiet' : (),
 		       $nobadrpm ? '--no-bad-rpm' : (),
 		       $nomd5sum ? "--no-md5sum" : (),
 		       $distrib->getvalue($e->{media}, 'xml-info') ? '--xml-info' : (),
+		       $xml_info_filter ? "--xml-info-filter \'$xml_info_filter\'" : (),
 		       -e $file_deps ? "--file-deps $file_deps" : (),
 		   );
     my $cmd = "genhdlist2 $options $e->{path}";