From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 14 Feb 2016 03:50:53 +0000 (+1100)
Subject: Remove compat function from pop3
X-Git-Tag: emacs-26.0.90~2561
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=374c21d59a3e2b8a49c7e4ecc466edb5313dbb98;p=emacs.git

Remove compat function from pop3

* lisp/gnus/pop3.el (pop3-set-process-query-on-exit-flag): Remove.
---

diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index 41ebe986220..0b1f5c89d3e 100644
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -533,13 +533,6 @@ this is nil, `ssl' is assumed for connections to port
 		 (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."
@@ -576,7 +569,7 @@ Returns the process associated with the connection."
 	  (setq pop3-timestamp
 		(substring response (or (string-match "<" response) 0)
 			   (+ 1 (or (string-match ">" response) -1)))))
-	(pop3-set-process-query-on-exit-flag (car result) nil)
+	(set-process-query-on-exit-flag (car result) nil)
 	(erase-buffer)
 	(car result)))))