Mercurial > emacs

comparison lisp/=nntp.el @ 584:4cd7543be581

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Mar 1992 20:39:07 +0000
parents c0bd9c7f9c42
children 505130d1ddf8
comparison
equal deleted inserted replaced
583:3c0c1cd8428a 584:4cd7543be581
39 ;; (3) If the TCP/IP stream (open-network-stream) is not supported by 39 ;; (3) If the TCP/IP stream (open-network-stream) is not supported by
40 ;; emacs, compile and install `tcp.el' and `tcp.c' which is an 40 ;; emacs, compile and install `tcp.el' and `tcp.c' which is an
41 ;; emulation program of the stream. If you modified `tcp.c' for your 41 ;; emulation program of the stream. If you modified `tcp.c' for your
42 ;; system, please send me the diffs. I'll include some of them in the 42 ;; system, please send me the diffs. I'll include some of them in the
43 ;; future releases. 43 ;; future releases.
44
45 (provide 'nntp)
46 44
47 (defvar nntp-server-hook nil 45 (defvar nntp-server-hook nil
48 "*Hooks for the NNTP server. 46 "*Hooks for the NNTP server.
49 If the kanji code of the NNTP server is different from the local kanji 47 If the kanji code of the NNTP server is different from the local kanji
50 code, the correct kanji code of the buffer associated with the NNTP 48 code, the correct kanji code of the buffer associated with the NNTP
663 ) 661 )
664 (t 662 (t
665 (signal (car errorcode) (cdr errorcode)))) 663 (signal (car errorcode) (cdr errorcode))))
666 )) 664 ))
667 )) 665 ))
666
667 (provide 'nntp)
668