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.

57448:821d95294db5

;;; url-news.el --- News Uniform Resource Locator retrieval code
;; Keywords: comm, data, processes

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
;;;
;;; This file is part of GNU Emacs.
;;;
;;; GNU Emacs is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by

      (url-news-fetch-newsgroup article host)))
    buf))

;;;###autoload
(defun url-snews (url)
  (let ((nntp-open-connection-function 'nntp-open-ssl-stream))
    (url-news url)))

(provide 'url-news)

;;; arch-tag: 8975be13-04e8-4d38-bfff-47918e3ad311

57449:202c408c174b

;;; url-news.el --- News Uniform Resource Locator retrieval code
;; Keywords: comm, data, processes

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Copyright (c) 1996 - 1999, 2004 Free Software Foundation, Inc.
;;;
;;; This file is part of GNU Emacs.
;;;
;;; GNU Emacs is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by

      (url-news-fetch-newsgroup article host)))
    buf))

;;;###autoload
(defun url-snews (url)
  (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)

;;; arch-tag: 8975be13-04e8-4d38-bfff-47918e3ad311