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 41ebe986220ccb37a185a3d312301a2faaea2d8d..0b1f5c89d3e11cd0a1877dd4e8c0a323de31005d 100644 (file)
--- 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)))))