Package: wl / 2.15.9+0.20161228-5

040_prockill.patch Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Subject: Use set-process-query-on-exit-flag function if available (Cf. [wl-en:6542])
Author: Kazuhiro Ito <kzhr@d1.dion.ne.jp>
Origin: upstream, https://github.com/wanderlust/wanderlust/commit/13e9cd5f781d3dd5892712f3ab3d011062b0c030

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 06813ddb..128e422b 100644
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -324,7 +324,9 @@ Returns a process object.  if making session failed, returns nil."
 	 (sit-for 1))
        (signal (car err) (cdr err))))
     (when process
-      (process-kill-without-query process)
+      (if (fboundp 'set-process-query-on-exit-flag)
+	  (set-process-query-on-exit-flag process nil)
+	(process-kill-without-query process))
       (when auto-plugged
 	(elmo-set-plugged t server service
 			  (elmo-network-stream-type-symbol stream-type)))
diff --git a/utils/ssl.el b/utils/ssl.el
index 7006955d..085f0372 100644
--- a/utils/ssl.el
+++ b/utils/ssl.el
@@ -194,7 +194,9 @@ specifying a port number to connect to."
 	 (proc (eval
 		`(start-process name buffer ssl-program-name
 				,@ssl-program-arguments))))
-    (process-kill-without-query proc)
+    (if (fboundp 'set-process-query-on-exit-flag)
+	(set-process-query-on-exit-flag proc nil)
+      (process-kill-without-query proc))
     proc))
 
 (provide 'ssl)