mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

Remove compat functions from starttls.el

Browse Source 
* lisp/gnus/starttls.el
(starttls-set-process-query-on-exit-flag): Remove.
This commit is contained in:
Lars Ingebrigtsen 2016-02-14 14:59:40 +11:00
parent 928bb3ff3e
commit 19d298f7d7
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/gnus/starttls.el
View File

@ -232,13 +232,6 @@ handshake, or nil on failure."
(starttls-negotiate-gnutls process)
(signal-process (process-id process) 'SIGALRM)))
(eval-and-compile
(if (fboundp 'set-process-query-on-exit-flag)
(defalias 'starttls-set-process-query-on-exit-flag
'set-process-query-on-exit-flag)
(defalias 'starttls-set-process-query-on-exit-flag
'process-kill-without-query)))
(defun starttls-open-stream-gnutls (name buffer host port)
(message "Opening STARTTLS connection to `%s:%s'..." host port)
(let* (done
@ -250,7 +243,7 @@ handshake, or nil on failure."
(int-to-string port)
port)
starttls-extra-arguments)))
(starttls-set-process-query-on-exit-flag process nil)
(set-process-query-on-exit-flag process nil)
(while (and (processp process)
(eq (process-status process) 'run)
(with-current-buffer buffer
@ -292,7 +285,7 @@ GnuTLS requires a port number."
name buffer starttls-program
host (format "%s" port)
starttls-extra-args)))
(starttls-set-process-query-on-exit-flag process nil)
(set-process-query-on-exit-flag process nil)
process)))
(defun starttls-available-p ()