Mercurial > emacs
comparison lisp/gnus/nntp.el @ 62428:9f49da4a429d
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-314
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 69)
- Update from CVS
2005-05-16 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-art.el: Don't autoload mail-extract-address-components.
* lisp/gnus/gnus.el: Use eval-and-compile to autoload message-y-or-n-p.
* lisp/gnus/nndb.el: Don't declare the nndb back end two or more times; don't
autoload news-reply-mode, news-setup, cancel-timer and telnet.
* lisp/gnus/nntp.el: Autoload format-spec instead of format; use
eval-and-compile to evaluate autoload forms.
* lisp/gnus/spam-report.el (spam-report-process-queue): Use gnus-point-at-eol.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Tue, 17 May 2005 04:57:29 +0000 |
parents | 6d1f39d4f8e6 |
children | 88db2adda4b7 f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
62427:882ba17cc547 | 62428:9f49da4a429d |
---|---|
1 ;;; nntp.el --- nntp access for Gnus | 1 ;;; nntp.el --- nntp access for Gnus |
2 | 2 |
3 ;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, 1994, 1995, 1996, | 3 ;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, 1994, 1995, 1996, |
4 ;; 1997, 1998, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. | 4 ;; 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005 |
5 ;; Free Software Foundation, Inc. | |
5 | 6 |
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 7 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
7 ;; Keywords: news | 8 ;; Keywords: news |
8 | 9 |
9 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
1145 nil)))) | 1146 nil)))) |
1146 | 1147 |
1147 (defun nntp-open-network-stream (buffer) | 1148 (defun nntp-open-network-stream (buffer) |
1148 (open-network-stream "nntpd" buffer nntp-address nntp-port-number)) | 1149 (open-network-stream "nntpd" buffer nntp-address nntp-port-number)) |
1149 | 1150 |
1150 (autoload 'format-spec "format") | 1151 (eval-and-compile |
1151 (autoload 'format-spec-make "format") | 1152 (autoload 'format-spec "format-spec") |
1152 (autoload 'open-tls-stream "tls") | 1153 (autoload 'format-spec-make "format-spec") |
1154 (autoload 'open-tls-stream "tls")) | |
1153 | 1155 |
1154 (defun nntp-open-ssl-stream (buffer) | 1156 (defun nntp-open-ssl-stream (buffer) |
1155 (let* ((process-connection-type nil) | 1157 (let* ((process-connection-type nil) |
1156 (proc (start-process "nntpd" buffer | 1158 (proc (start-process "nntpd" buffer |
1157 shell-file-name | 1159 shell-file-name |