236 |
(starttls-negotiate-gnutls process) |
(starttls-negotiate-gnutls process) |
237 |
(signal-process (process-id process) 'SIGALRM))) |
(signal-process (process-id process) 'SIGALRM))) |
238 |
|
|
239 |
(if (fboundp 'set-process-query-on-exit-flag) |
(eval-and-compile |
240 |
|
(if (fboundp 'set-process-query-on-exit-flag) |
241 |
|
(defalias 'starttls-set-process-query-on-exit-flag |
242 |
|
'set-process-query-on-exit-flag) |
243 |
(defalias 'starttls-set-process-query-on-exit-flag |
(defalias 'starttls-set-process-query-on-exit-flag |
244 |
'set-process-query-on-exit-flag) |
'process-kill-without-query))) |
|
(defalias 'starttls-set-process-query-on-exit-flag |
|
|
'process-kill-without-query)) |
|
245 |
|
|
246 |
(defun starttls-open-stream-gnutls (name buffer host service) |
(defun starttls-open-stream-gnutls (name buffer host service) |
247 |
(message "Opening STARTTLS connection to `%s'..." host) |
(message "Opening STARTTLS connection to `%s'..." host) |