diff options
| -rw-r--r-- | lisp/gnus/pop3.el | 9 |
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))))) |