Nice formatting of numbers inside Messages

Question

When printing string with StyleBox by default we get nicely formatted numbers inside string:

StyleBox["some text 1000000"] // DisplayForm

I mean that the numbers look as if would have additional little spaces: "1 000 000".

But in Messages all numbers are displayed without formatting:

f::NoMoreMemory = 
  "There are less than `1` bytes of free physical memory (`2` bytes \
is free). $Failed is returned.";
Message[f::NoMoreMemory, 1000000, 98000000]

Is there a way to get numbers inside Messages to be formatted?

Answer 1

I'd use Style to apply the AutoNumberFormatting option:

You can use it to target specific messages:

f::NoMoreMemory = 
 "There are less than `1` bytes of free physical memory (`2` bytes is free). $Failed is returned.";

Message[f::NoMoreMemory, 
 Style[1000000, AutoNumberFormatting -> True], 
 Style[98000000, AutoNumberFormatting -> True]]

or you can use it with $MessagePrePrint to apply it to all the messages:

$MessagePrePrint = Style[#, AutoNumberFormatting -> True] &;

Message[f::NoMoreMemory, 1000000, 98000000]

Answer 2

I think you want $MessagePrePrint

$MessagePrePrint = 
   NumberForm[#, DigitBlock -> 3, NumberSeparator -> " "] &;

Or, incorporating Sjoerd's suggestion:

With[
  {opts =
    AbsoluteOptions[EvaluationNotebook[],
     {DigitBlock, NumberSeparator}]},
  $MessagePrePrint = NumberForm[#, Sequence @@ opts] &];

Adapting Brett Champion's method, I believe this allows for copy & paste as you requested:

$MessagePrePrint = StyleForm[#, AutoNumberFormatting -> True] &;