;;; url-news.el --- News Uniform Resource Locator retrieval code
-;; Copyright (c) 1996 - 1999, 2004 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 1998, 1999, 2004,
+;; 2005 Free Software Foundation, Inc.
;; Keywords: comm, data, processes
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
(require 'nntp)
(autoload 'url-warn "url")
(autoload 'gnus-group-read-ephemeral-group "gnus-group")
-(eval-when-compile (require 'cl))
+(eval-when-compile
+ (require 'cl)
+ (defvar nntp-open-tls-stream)
+ (defvar nntp-open-ssl-stream))
(defgroup url-news nil
- "News related options"
+ "News related options."
:group 'url)
(defun url-news-open-host (host port user pass)
(if (fboundp 'nnheader-init-server-buffer)
(nnheader-init-server-buffer))
- (nntp-open-server host (list (string-to-int port)))
+ (nntp-open-server host (list port))
(if (and user pass)
(progn
(nntp-send-command "^.*\r?\n" "AUTHINFO USER" user)
nntp-open-connection-function)
nil
(cons (current-buffer) 'browse)))
-
+
;;;###autoload
(defun url-news (url)
;; Find a news reference