# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283659301 0
# Node ID 46435634bd677c5f6817eb9cde5b07c0f5b67113
# Parent  ca957835ff5a8feec383e022f27056b70d5d7963
pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.

diff -r ca957835ff5a -r 46435634bd67 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Sep 05 04:06:39 2010 +0200
+++ b/lisp/gnus/ChangeLog	Sun Sep 05 04:01:41 2010 +0000
@@ -1,3 +1,9 @@
+2010-09-05  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* pop3.el (pop3-set-process-query-on-exit-flag): New function that's an
+	alias to set-process-query-on-exit-flag or process-kill-without-query.
+	(pop3-open-server): Use it.
+
 2010-09-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* mail-source.el (mail-source-delete-crash-box): Always move the crash
diff -r ca957835ff5a -r 46435634bd67 lisp/gnus/pop3.el
--- a/lisp/gnus/pop3.el	Sun Sep 05 04:06:39 2010 +0200
+++ b/lisp/gnus/pop3.el	Sun Sep 05 04:01:41 2010 +0000
@@ -301,6 +301,13 @@
 		 (const :tag "SSL/TLS" ssl)
 		 (const starttls)))
 
+(eval-and-compile
+  (if (fboundp 'set-process-query-on-exit-flag)
+      (defalias 'pop3-set-process-query-on-exit-flag
+	'set-process-query-on-exit-flag)
+    (defalias 'pop3-set-process-query-on-exit-flag
+      'process-kill-without-query)))
+
 (defun pop3-open-server (mailhost port)
   "Open TCP connection to MAILHOST on PORT.
 Returns the process associated with the connection."
@@ -361,7 +368,7 @@
 	(setq pop3-timestamp
 	      (substring response (or (string-match "<" response) 0)
 			 (+ 1 (or (string-match ">" response) -1)))))
-      (set-process-query-on-exit-flag process nil)
+      (pop3-set-process-query-on-exit-flag process nil)
       process)))
 
 ;; Support functions