diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-14 14:50:53 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-14 14:50:53 +1100 |
| commit | 374c21d59a3e2b8a49c7e4ecc466edb5313dbb98 (patch) | |
| tree | b2fc2f635074e1e0c39ea6d3fd9a2668092e29ea | |
| parent | 2366c7036d0e784592904e94c1c5bfac37760659 (diff) | |
| download | emacs-374c21d59a3e2b8a49c7e4ecc466edb5313dbb98.tar.gz | |
Remove compat function from pop3
* lisp/gnus/pop3.el (pop3-set-process-query-on-exit-flag): Remove.
| -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))))) |