[Emacs-diffs] Changes to emacs/lisp/url/url-news.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/12/02 04:03:10

Index: url-news.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-news.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- url-news.el 21 Sep 2007 03:32:21 -0000      1.16
+++ url-news.el 2 Dec 2007 04:03:10 -0000       1.17
@@ -30,9 +30,6 @@
 (require 'nntp)
 (autoload 'url-warn "url")
 (autoload 'gnus-group-read-ephemeral-group "gnus-group")
-(eval-when-compile (require 'cl))
-(defvar nntp-open-tls-stream)
-(defvar nntp-open-ssl-stream)
 
 (defgroup url-news nil
   "News related options."
@@ -85,8 +82,9 @@
                )))
     buf))
 
+(defvar gnus-group-buffer)
+
 (defun url-news-fetch-newsgroup (newsgroup host)
-  (declare (special gnus-group-buffer))
   (if (string-match "^/+" newsgroup)
       (setq newsgroup (substring newsgroup (match-end 0))))
   (if (string-match "/+$" newsgroup)
@@ -127,9 +125,9 @@
 
 ;;;###autoload
 (defun url-snews (url)
-  (let ((nntp-open-connection-function (if (eq 'tls url-gateway-method)
-                                          nntp-open-tls-stream
-                                        nntp-open-ssl-stream)))
+  (let ((nntp-open-connection-function (if (eq 'ssl url-gateway-method)
+                                          'nntp-open-ssl-stream
+                                        'nntp-open-tls-stream)))
     (url-news url)))
 
 (provide 'url-news)