From 80ef3fbe7d2f2f77fbfda6fc24e96d483b534ad7 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 21 May 2014 09:07:55 +0000 Subject: [PATCH] IDE: msg frame: do not write keyrword important git-svn-id: trunk@45124 - --- ide/etmessageframe.pas | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/ide/etmessageframe.pas b/ide/etmessageframe.pas index 27af998181..37cbd90abf 100644 --- a/ide/etmessageframe.pas +++ b/ide/etmessageframe.pas @@ -2529,12 +2529,14 @@ begin Result+=' '; // 'error: ' - if (mcoShowTranslated in Options) - and (fUrgencyStyles[Line.Urgency].Translated<>'') then - Result+=fUrgencyStyles[Line.Urgency].Translated - else - Result+=MessageLineUrgencyNames[Line.Urgency]; - Result+=': '; + if Line.Urgency<>mluImportant then begin + if (mcoShowTranslated in Options) + and (fUrgencyStyles[Line.Urgency].Translated<>'') then + Result+=fUrgencyStyles[Line.Urgency].Translated + else + Result+=MessageLineUrgencyNames[Line.Urgency]; + Result+=': '; + end; // message id if (mcoShowMessageID in Options) and (Line.MsgID<>0) then