2 |
;; Keywords: comm, data, processes |
;; Keywords: comm, data, processes |
3 |
|
|
4 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
5 |
;;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu> |
;;; Copyright (c) 1996 - 1999, 2004 Free Software Foundation, Inc. |
|
;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. |
|
6 |
;;; |
;;; |
7 |
;;; This file is part of GNU Emacs. |
;;; This file is part of GNU Emacs. |
8 |
;;; |
;;; |
125 |
|
|
126 |
;;;###autoload |
;;;###autoload |
127 |
(defun url-snews (url) |
(defun url-snews (url) |
128 |
(let ((nntp-open-connection-function 'nntp-open-ssl-stream)) |
(let ((nntp-open-connection-function (if (eq 'tls url-gateway-method) |
129 |
|
nntp-open-tls-stream |
130 |
|
nntp-open-ssl-stream))) |
131 |
(url-news url))) |
(url-news url))) |
132 |
|
|
133 |
(provide 'url-news) |
(provide 'url-news) |