Translations:KMail/Tools/40/en: Difference between revisions
Appearance
Importing a new version from external source |
(No difference)
|
Latest revision as of 19:30, 29 January 2019
#!/usr/bin/perl
$endOfHeader = 0;
while (<>) {
if ( $endOfHeader == 0 )
{
if ( /^(?i:Subject):\s+Bug\#(\d{4,5}):/ )
{
$_ = "Reply-To: $1\@bugs.kde.org\n".$_;
}
elsif ( /^$/ )
{
$endOfHeader = 1;
}
}
print;
};