diff options
-rwxr-xr-x | src/mum | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -211,7 +211,8 @@ sub toloc { return; } - $start = $MESSAGE+1 if not $start; + $start = $MESSAGE if not $start; + $start++; $loc = $start-1; for (@MESSAGES[$start-1..$#MESSAGES]) { @@ -231,7 +232,8 @@ sub toloc { return; } - $start = $MESSAGE-1 if not $start; + $start = $MESSAGE if not $start; + $start--; $loc = $start+1; for (reverse @MESSAGES[0..$start-1]) { |