Remove compat function from pop3

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

1 files changed, 1 insertions, 8 deletions

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)))))