[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-news.el, v [EMACS_22_BASE]
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-news.el, v [EMACS_22_BASE] |
Date: |
Sun, 02 Dec 2007 03:57:41 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Glenn Morris <gm> 07/12/02 03:57:41
Index: url-news.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-news.el,v
retrieving revision 1.14.2.2
retrieving revision 1.14.2.3
diff -u -b -r1.14.2.2 -r1.14.2.3
--- url-news.el 21 Sep 2007 03:31:48 -0000 1.14.2.2
+++ url-news.el 2 Dec 2007 03:57:41 -0000 1.14.2.3
@@ -31,8 +31,6 @@
(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."
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/url/url-news.el, v [EMACS_22_BASE],
Glenn Morris <=