Mercurial > emacs
comparison lisp/url/url-gw.el @ 110998:a5b0f6d4e94a
* url-gw.el (url-open-stream): Use open-gnutls-stream if it exists.
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Thu, 14 Oct 2010 23:35:03 +0200 |
| parents | 5495085c9b6c |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 110997:b8fde5ef9e14 | 110998:a5b0f6d4e94a |
|---|---|
| 243 ;; right coding systems in both Emacs and XEmacs. | 243 ;; right coding systems in both Emacs and XEmacs. |
| 244 (let ((coding-system-for-read 'binary) | 244 (let ((coding-system-for-read 'binary) |
| 245 (coding-system-for-write 'binary)) | 245 (coding-system-for-write 'binary)) |
| 246 (setq conn (case gw-method | 246 (setq conn (case gw-method |
| 247 (tls | 247 (tls |
| 248 (open-tls-stream name buffer host service)) | 248 (funcall (if (fboundp 'open-gnutls-stream) |
| 249 'open-gnutls-stream | |
| 250 'open-tls-stream) | |
| 251 name buffer host service)) | |
| 249 (ssl | 252 (ssl |
| 250 (open-ssl-stream name buffer host service)) | 253 (open-ssl-stream name buffer host service)) |
| 251 ((native) | 254 ((native) |
| 252 ;; Use non-blocking socket if we can. | 255 ;; Use non-blocking socket if we can. |
| 253 (make-network-process :name name :buffer buffer | 256 (make-network-process :name name :buffer buffer |