Mercurial > emacs
comparison lisp/=gnus.el @ 807:4f28bd14272c
*** 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") |