procedure editmessage(i:integer);
var t:text;
    f:file;
    mheader:mheaderrec;
    mixr:msgindexrec;
    s:string;
    brdsig,dfdt1,dfdt2,newmsgptr,totload:longint;
begin
  loadmhead(i,mheader);

  assign(t,'tgtempx.msg'); rewrite(t);
  totload:=0;
  repeat
    blockreadstr2(brdf,s);
    inc(totload,length(s)+2);
    writeln(t,s);
  until (totload>=mheader.msglength);
  close(t);
  getftime(t,dfdt1);

  tedit(allcaps('tgtempx.msg'));
  assign(f,'tgtempx.msg');
  getftime(f,dfdt2);
  close(f);

  if (dfdt1<>dfdt2) then begin
    assign(t,'tgtempx.msg');
    reset(t);
    mheader.msglength:=0;
    repeat
      readln(t,s);
      inc(mheader.msglength,length(s)+2);
    until (eof(t));
    close(f);
    newmsgptr:=filesize(brdf);
    seek(brdf,newmsgptr);
    outmessagetext('tgtempx.msg',mheader,TRUE);
    ensureloaded(i);
    mixr:=mintab[getmixnum(i)];
    mixr.hdrptr:=newmsgptr;
    savemix(mixr,i);
    ensureloaded(i);
  end;
end;