TScMailMessage adds In-Reply-To if Message-ID exists

TScMailMessage adds In-Reply-To if Message-ID exists

Hi,
As far as I know In-Reply-To header should be used in replies. Now If I add Message-ID to specialheaders it also copies it's value to In-Reply-To header
In ScMailMessage.pas  procedure GenerateHeader there is piece of code..
  1.   if FHeaders.Names['In-Reply-To'] = '' then begin
        if FHeaders.Names['Message-ID'] <> '' then
          FGeneratedHeaders.Names['In-Reply-To'] := FHeaders.Names['Message-ID']
        else
        if FSpecialHeaders.Names['Message-ID'] <> '' then
          FGeneratedHeaders.Names['In-Reply-To'] := FSpecialHeaders.Names['Message-ID'];
      end;
So If you don't have In-Reply-To and you have Message-ID then copy Message-ID to In-Reply-To header.
Should this be like this?