Use message number for reject publish filename if available

diff --git a/xlog/bin/record b/xlog/bin/record
index 37a4236f2f820597e20329e505c9582c9f45420c..7b6cf6035f796b2ca0fed0f17c08fc08db55a623 100755 (executable)
--- a/xlog/bin/record
+++ b/xlog/bin/record
@@ -136,7 +136,7 @@ $f{Now}= time;
 
 if ($publish_rejections &&
     $f{Event} =~ m/^notify reject /) {
-    $f{CopyRef}= $f{MessageID};
+    $f{CopyRef}= $f{MessageNum} || $f{MessageID};
     $f{CopyRef} =~ s/\W/ sprintf '-%02x', ord($&) /ge;
     open I, ">$dir/public/nr-$f{CopyRef}.txt" or die $!;
     print I $message or die $!;