Mercurial > emacs

comparison lisp/=gnus.el @ 807:4f28bd14272c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 16 Jul 1992 21:47:34 +0000
parents f11e7af7c0d9
children e694e0879463
comparison
equal deleted inserted replaced
806:d42e1151eed8 807:4f28bd14272c
1 ;;; gnus.el --- GNUS: an NNTP-based News Reader for GNU Emacs 1 ;;; gnus.el --- GNUS: an NNTP-based News Reader for GNU Emacs
2 2
3 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
4 ;; Last-Modified: 10 Jun 1992
5
6 ;; $Header: gnus.el,v 3.13 90/03/23 13:24:27 umerin Locked $
7
3 ;; Copyright (C) 1987, 1988, 1989, 1990 Free Software Foundation, Inc. 8 ;; Copyright (C) 1987, 1988, 1989, 1990 Free Software Foundation, Inc.
4 ;; $Header: gnus.el,v 3.13 90/03/23 13:24:27 umerin Locked $
5 9
6 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
7 11
8 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation; either version 1, or (at your option) 14 ;; the Free Software Foundation; either version 2, or (at your option)
11 ;; any later version. 15 ;; any later version.
12 16
13 ;; GNU Emacs is distributed in the hope that it will be useful, 17 ;; GNU Emacs is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details. 20 ;; GNU General Public License for more details.
17 21
18 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
19 ;; along with GNU Emacs; see the file COPYING. If not, write to 23 ;; along with GNU Emacs; see the file COPYING. If not, write to
20 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 24 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
25
26 ;;; Commentary:
21 27
22 ;; GNUS Mailing List: 28 ;; GNUS Mailing List:
23 ;; There are two mailing lists for GNUS lovers in the world: 29 ;; There are two mailing lists for GNUS lovers in the world:
24 ;; 30 ;;
25 ;; info-gnus@flab.fujitsu.co.jp, and 31 ;; info-gnus@flab.fujitsu.co.jp, and
44 ;; TO DO: 50 ;; TO DO:
45 ;; (1) Incremental update of active info. 51 ;; (1) Incremental update of active info.
46 ;; (2) GNUS own poster. 52 ;; (2) GNUS own poster.
47 ;; (3) Multi-GNUS (Talking to many hosts same time). 53 ;; (3) Multi-GNUS (Talking to many hosts same time).
48 ;; (4) Asynchronous transmission of large messages. 54 ;; (4) Asynchronous transmission of large messages.
55
56 ;;; Code:
49 57
50 (require 'nntp) 58 (require 'nntp)
51 (require 'mail-utils) 59 (require 'mail-utils)
52 60
53 (defvar gnus-nntp-server (or (getenv "NNTPSERVER") 61 (defvar gnus-nntp-server (or (getenv "NNTPSERVER")