mum: Fix pipe bug

Without handling SIGPIPE, mum may unexpectedly exit when the pager
exits.

1 files changed, 6 insertions, 3 deletions

diff --git a/src/mum b/src/mum
index 54aa7b0..4ee6f2a 100755
--- a/src/mum
+++ b/src/mum
@@ -123,9 +123,12 @@ h:
 			$b = $MESSAGE if not $b;
 			$a = $b if not $a;
 
-			open my $pager, '|-', $ENV{PAGER} || 'less'
-				or die "failed to open pager: $!";
-			print $pager "$_\n" for get($a, $b);
+			open my $pager, '|-', $ENV{PAGER} || 'less' or do {
+				warn "failed to open pager: $!\n";
+				next;
+			};
+			local $SIG{PIPE} = sub {};
+			print $pager "$_\n" for mbox($a, $b);
 			close $pager;
 		}