# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1132179808 0
# Node ID 043fa9c73c77fdc5b7d8f6efdec036ba08818f1c
# Parent  f455a937815f9de66f7c971ceefba3a4b0f46e50
(eudc-ph-open-session): Use set-process-query-on-exit-flag.

diff -r f455a937815f -r 043fa9c73c77 lisp/net/eudcb-ph.el
--- a/lisp/net/eudcb-ph.el	Wed Nov 16 22:22:18 2005 +0000
+++ b/lisp/net/eudcb-ph.el	Wed Nov 16 22:23:28 2005 +0000
@@ -184,7 +184,7 @@
       (setq process (open-network-stream "ph" eudc-ph-process-buffer host port))
       (if (null process)
 	  (throw 'done nil))
-      (process-kill-without-query process)
+      (set-process-query-on-exit-flag process t)
       process)))
 
 (defun eudc-ph-close-session (process)