Mercurial > emacs
comparison lisp/url/url-news.el @ 57449:202c408c174b
url-vars.el (url-gateway-method): Add new method `tls'.
url-news.el (url-snews): Use nntp-open-tls-stream if
url-gateway-method is tls.
url-ldap.el (url-ldap-certificate-formatter): Use
tls-certificate-information if ssl.el is not available.
url-https.el (url-https-create-secure-wrapper): Use tls if ssl
is not available.
url-gw.el (url-open-stream): Support tls url-gateway-method.
(url-open-stream): Likewise.
author | Simon Josefsson <jas@extundo.com> |
---|---|
date | Tue, 12 Oct 2004 09:55:08 +0000 |
parents | 01934125951e |
children | 2954cb243379 e86fc76a45e4 |
comparison
equal
deleted
inserted
replaced
57448:821d95294db5 | 57449:202c408c174b |
---|---|
1 ;;; url-news.el --- News Uniform Resource Locator retrieval code | 1 ;;; url-news.el --- News Uniform Resource Locator retrieval code |
2 ;; Keywords: comm, data, processes | 2 ;; Keywords: comm, data, processes |
3 | 3 |
4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
5 ;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. | 5 ;;; Copyright (c) 1996 - 1999, 2004 Free Software Foundation, Inc. |
6 ;;; | 6 ;;; |
7 ;;; This file is part of GNU Emacs. | 7 ;;; This file is part of GNU Emacs. |
8 ;;; | 8 ;;; |
9 ;;; GNU Emacs is free software; you can redistribute it and/or modify | 9 ;;; GNU Emacs is free software; you can redistribute it and/or modify |
10 ;;; it under the terms of the GNU General Public License as published by | 10 ;;; it under the terms of the GNU General Public License as published by |
123 (url-news-fetch-newsgroup article host))) | 123 (url-news-fetch-newsgroup article host))) |
124 buf)) | 124 buf)) |
125 | 125 |
126 ;;;###autoload | 126 ;;;###autoload |
127 (defun url-snews (url) | 127 (defun url-snews (url) |
128 (let ((nntp-open-connection-function 'nntp-open-ssl-stream)) | 128 (let ((nntp-open-connection-function (if (eq 'tls url-gateway-method) |
129 nntp-open-tls-stream | |
130 nntp-open-ssl-stream))) | |
129 (url-news url))) | 131 (url-news url))) |
130 | 132 |
131 (provide 'url-news) | 133 (provide 'url-news) |
132 | 134 |
133 ;;; arch-tag: 8975be13-04e8-4d38-bfff-47918e3ad311 | 135 ;;; arch-tag: 8975be13-04e8-4d38-bfff-47918e3ad311 |