summaryrefslogtreecommitdiff
path: root/lisp/url/url-news.el
diff options
context:
space:
mode:
authorSimon Josefsson <jas@extundo.com>2004-10-12 09:55:08 +0000
committerSimon Josefsson <jas@extundo.com>2004-10-12 09:55:08 +0000
commit5bbb0eb9eaf5304206dbbe39c0b35f756cd77482 (patch)
tree70a9a0c68d8f637e03b6c6d8c335b94f413f1dbd /lisp/url/url-news.el
parent18965008d19ace53d4adea3eec5ea1168a7e3942 (diff)
downloademacs-5bbb0eb9eaf5304206dbbe39c0b35f756cd77482.tar.gz
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.
Diffstat (limited to 'lisp/url/url-news.el')
-rw-r--r--lisp/url/url-news.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/url/url-news.el b/lisp/url/url-news.el
index a426f09b1ca..59364c9ccd0 100644
--- a/lisp/url/url-news.el
+++ b/lisp/url/url-news.el
@@ -2,7 +2,7 @@
;; Keywords: comm, data, processes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
+;;; Copyright (c) 1996 - 1999, 2004 Free Software Foundation, Inc.
;;;
;;; This file is part of GNU Emacs.
;;;
@@ -125,7 +125,9 @@
;;;###autoload
(defun url-snews (url)
- (let ((nntp-open-connection-function 'nntp-open-ssl-stream))
+ (let ((nntp-open-connection-function (if (eq 'tls url-gateway-method)
+ nntp-open-tls-stream
+ nntp-open-ssl-stream)))
(url-news url)))
(provide 'url-news)