/[emacs]/emacs/lisp/url/url-news.el
ViewVC logotype

Diff of /emacs/lisp/url/url-news.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by monnier, Mon Apr 12 04:05:43 2004 UTC revision 1.4.2.1 by miles, Thu Oct 14 08:49:52 2004 UTC
# Line 2  Line 2 
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  ;;;  ;;;
# Line 126  Line 125 
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)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26