From 374c21d59a3e2b8a49c7e4ecc466edb5313dbb98 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 14 Feb 2016 14:50:53 +1100 Subject: [PATCH] Remove compat function from pop3 * lisp/gnus/pop3.el (pop3-set-process-query-on-exit-flag): Remove. --- lisp/gnus/pop3.el | 9 +-------- 1 file changed, 1 insertion(+), 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))))) -- 2.39.2