add field m (misc)

1 files changed, 3 insertions, 3 deletions

diff --git a/rf b/rf
index 4b25fbf..4025108 100755
--- a/rf
+++ b/rf
@@ -48,7 +48,7 @@ for (my $i = $#lines; $i >= 0; $i--) {
 	chomp;
 
 	# Reference definition
-	if (/^\.R([acdnpqtwy]) +(.*)/) {
+	if (/^\.R([acdmnpqtwy]) +(.*)/) {
 		my ($fld, $rest) = ($1, $2);
 
 		$refi++ if not $refblock; # new reference
@@ -163,8 +163,8 @@ for (my $i = $#r; $i >= 0; $i--) {
 sub fmt {
 	my ($fmt, $i) = @_;
 	my %ref = %{$refs[$i]};
-	for my $fld (split //, 'Aacdnpqtwy') {
-		if ($ref{lc $fld}) {
+	for my $fld (split //, 'Aacdmnpqtwy') {
+		if ($ref{lc $fld}) { # interpolate
 			no warnings;
 			my $val = $ref{lc $fld};
 			$val = join '; ', @$val if lc $fld eq 'a';