From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 14 May 2005 14:06:33 +0000 (+0000)
Subject: (send_process_trap): Unblock SIGPIPE.
X-Git-Tag: ttn-vms-21-2-B4~306
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8f440050a5f25d827a0952569602e61916833b1;p=emacs.git

(send_process_trap): Unblock SIGPIPE.
(send_process): Reset SIGPIPE handler before reporting error.
---

diff --git a/src/process.c b/src/process.c
index 0d2d86f1d7f..aad9e70731f 100644
--- a/src/process.c
+++ b/src/process.c
@@ -5108,6 +5108,7 @@ send_process_trap ()
   sigrelse (SIGPIPE);
   sigrelse (SIGALRM);
 #endif /* BSD4_1 */
+  sigunblock (sigmask (SIGPIPE));
   longjmp (send_process_frame, 1);
 }
 
@@ -5299,7 +5300,11 @@ send_process (proc, buf, len, object)
 			       0, datagram_address[outfd].sa,
 			       datagram_address[outfd].len);
 		  if (rv < 0 && errno == EMSGSIZE)
-		    report_file_error ("sending datagram", Fcons (proc, Qnil));
+		    {
+		      signal (SIGPIPE, old_sigpipe);
+		      report_file_error ("sending datagram",
+					 Fcons (proc, Qnil));
+		    }
 		}
 	      else
 #endif