X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=blobdiff_plain;f=yapfaq.pl;h=5bc79191b4f8941ec1a1ba54fcc04bbf0907ffd4;hp=846713eff141870d04708de4ba6e57d6d1abc50a;hb=0b68926d7c23ec18aa9ed3df177c6e85abce8eb0;hpb=bd3a4c38415bff841ac1d678da4bb61534f83233 diff --git a/yapfaq.pl b/yapfaq.pl index 846713e..5bc7919 100644 --- a/yapfaq.pl +++ b/yapfaq.pl @@ -1,6 +1,6 @@ #! /usr/bin/perl -W # -# yapfaq Version 0.9 by Thomas Hochstein +# yapfaq Version 0.91 by Thomas Hochstein # (Original author: Marc Brockschmidt) # # This script posts any project described in its config-file. Most people @@ -12,7 +12,7 @@ # It can be redistributed and/or modified under the same terms under # which Perl itself is published. -our $VERSION = "0.9"; +our $VERSION = "0.91"; # Please do not change this setting! # You may override the default .rc file (.yapfaqrc) by using "-c .rc file" @@ -300,7 +300,8 @@ sub postfaq { $$NG = $Options{'t'}; $MID =~ s/@/-$Timestamp-test@/g; $$ExtraHeaders .= "\n" if $$ExtraHeaders; - $$ExtraHeaders .= "X-Supersedes: $$Supersedes\nX-yapfaq-Remark: This is only a test message."; + $$ExtraHeaders .= "X-Supersedes: $$Supersedes\n" if $$Supersedes; + $$ExtraHeaders .= "X-yapfaq-Remark: This is only a test message."; undef $$Supersedes; }