changeset 110201:46435634bd67

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.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 05 Sep 2010 04:01:41 +0000
parents ca957835ff5a
children 6a6bf4529cad
files lisp/gnus/ChangeLog lisp/gnus/pop3.el
diffstat 2 files changed, 14 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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