;ELC ;;; compiled by amu@mit.edu on Sat Sep 13 16:20:41 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/nntp.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nntp.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!\"ljFBD\nB\n!+!LJ" [require nnheader nnoo gnus-util nntp mapcar #[(p) "C" [p] 1] nil nnoo-definition-alist "*internal-non-initialized-backend*" nnoo-state-alist fboundp open-network-stream tcp] 4) #@38 Address of the physical nntp server. (defvar nntp-address nil (#$ . 728)) (nnoo-define (quote nntp-address) nil) #@42 Port number on the physical nntp server. (defvar nntp-port-number "nntp" (#$ . 847)) (nnoo-define (quote nntp-port-number) nil) #@381 *Hook used for sending commands to the server at startup. The default value is `nntp-send-mode-reader', which makes an innd server spawn an nnrpd server. Another useful function to put in this hook might be `nntp-send-authinfo', which will prompt for a password to allow posting from the server. Note that this is only necessary to do on servers that use strict access control. (defvar nntp-server-opened-hook (quote (nntp-send-mode-reader)) (#$ . -982)) (nnoo-define (quote nntp-server-opened-hook) nil) #@47 Function used to send AUTHINFO to the server. (defvar nntp-authinfo-function (quote nntp-send-authinfo) (#$ . 1495)) (nnoo-define (quote nntp-authinfo-function) nil) #@273 Alist of regexps to match on server types and actions to be taken. For instance, if you want Gnus to beep every time you connect to innd, you could say something like: (setq nntp-server-action-alist '(("innd" (ding)))) You probably don't want to do that, though. (defvar nntp-server-action-alist (quote (("nntpd 1\\.5\\.11t" (remove-hook (quote nntp-server-opened-hook) (quote nntp-send-mode-reader))) ("NNRP server Netscape" (setq nntp-server-list-active-group nil)))) (#$ . 1668)) (nnoo-define (quote nntp-server-action-alist) nil) #@513 *Function used for connecting to a remote system. It will be called with the buffer to output in. Two pre-made functions are `nntp-open-network-stream', which is the default, and simply connects to some port or other on the remote system (see nntp-port-number). The other are `nntp-open-rlogin', which does an rlogin on the remote system, and then does a telnet to the NNTP server available there (see nntp-rlogin-parameters) and `nntp-open-telnet' which telnets to a remote system, logs in and does the same. (defvar nntp-open-connection-function (quote nntp-open-network-stream) (#$ . -2218)) (nnoo-define (quote nntp-open-connection-function) nil) #@171 *Parameters to `nntp-open-login'. That function may be used as `nntp-open-connection-function'. In that case, this list will be used as the parameter list given to rsh. (defvar nntp-rlogin-parameters (quote ("telnet" "-8" "${NNTPSERVER:=news}" "nntp")) (#$ . -2878)) (nnoo-define (quote nntp-rlogin-parameters) nil) #@67 *User name on remote system when using the rlogin connect method. (defvar nntp-rlogin-user-name nil (#$ . -3201)) (nnoo-define (quote nntp-rlogin-user-name) nil) #@182 *Parameters to `nntp-open-telnet'. That function may be used as `nntp-open-connection-function'. In that case, this list will be executed as a command after logging in via telnet. (defvar nntp-telnet-parameters (quote ("exec" "telnet" "-8" "${NNTPSERVER:=news}" "nntp")) (#$ . -3370)) (nnoo-define (quote nntp-telnet-parameters) nil) #@38 User name to log in via telnet with. (defvar nntp-telnet-user-name nil (#$ . 3711)) (nnoo-define (quote nntp-telnet-user-name) nil) #@44 Password to use to log in via telnet with. (defvar nntp-telnet-passwd nil (#$ . 3849)) (nnoo-define (quote nntp-telnet-passwd) nil) #@31 Command used to start telnet. (defvar nntp-telnet-command "telnet" (#$ . 3987)) (nnoo-define (quote nntp-telnet-command) nil) #@39 Switches given to the telnet command. (defvar nntp-telnet-switches (quote ("-8")) (#$ . 4119)) (nnoo-define (quote nntp-telnet-switches) nil) #@174 String to use on the end of lines when talking to the NNTP server. This is "\r\n" by default, but should be "\n" when using rlogin or telnet to communicate with the server. (defvar nntp-end-of-line " \n" (#$ . 4268)) (nnoo-define (quote nntp-end-of-line) nil) #@184 *The number of the articles which indicates a large newsgroup. If the number of the articles is greater than the value, verbose messages will be shown to indicate the current status. (defvar nntp-large-newsgroup 50 (#$ . -4535)) (nnoo-define (quote nntp-large-newsgroup) nil) #@153 *The maximum number of the requests sent to the NNTP server at one time. If Emacs hangs up while retrieving headers, set the variable to a lower value. (defvar nntp-maximum-request 400 (#$ . -4818)) (nnoo-define (quote nntp-maximum-request) nil) #@79 *If non-nil, nntp will never attempt to use XOVER when talking to the server. (defvar nntp-nov-is-evil nil (#$ . -5070)) (nnoo-define (quote nntp-nov-is-evil) nil) #@226 *List of strings that are used as commands to fetch NOV lines from a server. The strings are tried in turn until a positive response is gotten. If none of the commands are successful, nntp will just grab headers one by one. (defvar nntp-xover-commands (quote ("XOVER" "XOVERVIEW")) (#$ . -5241)) (nnoo-define (quote nntp-xover-commands) nil) #@161 *Maximum allowed gap between two articles. If the gap between two consecutive articles is bigger than this variable, split the XOVER request into two requests. (defvar nntp-nov-gap 5 (#$ . -5591)) (nnoo-define (quote nntp-nov-gap) nil) #@131 *Number of seconds to wait before an nntp connection times out. If this variable is nil, which is the default, no timers are set. (defvar nntp-connection-timeout nil (#$ . -5834)) (nnoo-define (quote nntp-connection-timeout) nil) #@389 *Hook run before a server is opened. If can be used to set up a server remotely, for instance. Say you have an account at the machine "other.machine". This machine has access to an NNTP server that you can't access locally. You could then use this hook to rsh to the remote machine and start a proxy NNTP server there that you can connect to. See also `nntp-open-connection-function' (defvar nntp-prepare-server-hook nil (#$ . -6071)) (nnoo-define (quote nntp-prepare-server-hook) nil) #@52 *If non-nil, beep when a server closes connection. (defvar nntp-warn-about-losing-connection t (#$ . -6567)) (nnoo-define (quote nntp-warn-about-losing-connection) nil) #@36 *coding-system for read from NNTP. (defvar nntp-coding-system-for-read nil (#$ . -6742)) (byte-code "\"!  B! B!' B!4 B!A B!N\n B![ B!h\f B!u B\"! B\"! B\" B! B\"! B\"! B\"! B\"\"" [nnoo-define nntp-coding-system-for-read nil boundp nntp-have-messaged current-load-list nntp-process-wait-for nntp-process-to-buffer nntp-process-callback nntp-process-decode nntp-process-start-point nntp-inside-change-function nntp-connection-list nntp-server-type nntp-connection-alist nntp-status-string "" "nntp 5.0" nntp-version nntp-inhibit-erase nntp-inhibit-output nntp-server-xover try nntp-server-list-active-group autoload nnmail-read-passwd "nnmail"] 3) #@25 Send STRING to PROCESS. (defalias 'nntp-send-string #[(process string) " \n P\"" [process-send-string process string nntp-end-of-line] 4 (#$ . 7575)]) (put (quote nntp-send-string) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Wait for WAIT-FOR to arrive from PROCESS. (defalias 'nntp-wait-for #[(process wait-for buffer &optional decode discard) " !qeb`f>!-!#  !eb !: ʂdbe   #[dZe] !db@)?!?qdb !!!) )" [process-buffer process (50 51 52 53) looking-at "480" erase-buffer nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message nil limit re-search-backward wait-for t 1000 nntp-decode-text decode discard buffer insert-buffer-substring nntp-have-messaged message ""] 4 (#$ . 7823)]) (put (quote nntp-wait-for) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Find the connection delivering to BUFFER. (defalias 'nntp-find-connection #[(buffer) " ;\f ! ÉA@2 \fA@=\f@É V !>B V !!P !!\f\"," [nntp-connection-alist buffer get-buffer nil entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq] 5 (#$ . 8485)]) (put (quote nntp-find-connection) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@48 Return the entry for the connection to BUFFER. (defalias 'nntp-find-connection-entry #[(buffer) " ;!ÉA@4\fA@=\f@É X !>D X !!R !!\f \"- " [buffer nntp-connection-alist get-buffer nil entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq] 5 (#$ . 8917)]) (put (quote nntp-find-connection-entry) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@54 Return the process connection buffer tied to BUFFER. (defalias 'nntp-find-connection-buffer #[(buffer) " ;!ÉA@4\fA@=\f@É X !>D X !!R !!\f \"-a !)" [buffer nntp-connection-alist get-buffer nil entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq] 6 (#$ . 9369)]) #@64 Use COMMAND to retrieve data into BUFFER from PORT on ADDRESS. (defalias 'nntp-retrieve-data #[(command address port buffer &optional wait-for callback decode) " ;!ÉA@4\fA@=\f@É X !>D X !!R !!\f \"-_!m#y !q )  P\"*=ۂy !q  !\"d#C%)ۂyx & !qeb`f>!!  * !eb!\" Âkdbe..#CdZe]. !db()?!&?kqdb !!3i3!)&s .y)" [buffer nntp-connection-alist get-buffer nil entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" address nntp-inhibit-erase nnheader-callback-function erase-buffer command string process-send-string nntp-end-of-line callback ignore t wait-for nntp-inside-change-function decode nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message ""] 6 (#$ . 9736)]) (put (quote nntp-retrieve-data) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@57 Send STRINGS to server and wait until WAIT-FOR returns. (defalias 'nntp-send-command #[(wait-for &rest strings) " \nq )# \n\n\f \n;@!BˉA@oA@=L@ˉN!>!!!!\"-!#!!q )\"\"$P\"* = \n!q' \f()\n* +d,C.)\n\n\f/\f\n!qeb`f>M!e!Z 3 !eb@!r ˂dbe7\n7#dZe]7!dbx)\f?!/?qdb!!<q!!!!\"-\f!#!q )!!#P\"* =傼 !q& \n'\f() *d+C-)傼\f\n.\n\f!qeb`f>=!U!J 2 !eb0!b ɂdbe66#dZe]6!dbh)\n?!.?\fqdb!!;;!). .." [mapconcat identity strings " " nntp-address nntp-port-number nntp-server-buffer wait-for nnheader-callback-function nil decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase erase-buffer string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message ""] 7 (#$ . 12783)]) #@57 Send STRINGS to server and wait until WAIT-FOR returns. (defalias 'nntp-send-command-and-decode #[(wait-for &rest strings) " \nq )# \n\n\f \n;@!BԉA@oA@=L@ԉN!>!!!!\"-!#\"!q )##%P\"* =˂ \n!q' \f()\n* +d,C.)˂\n\n\f/\f\n!qeb`f>M!e!Z 3 !eb@!r Ԃdbe7\n7#dZe]7!dbx)\f?!/?qdb!!<j\f\f!!z\f!! \"-ed# ;!ʉ \f  A @  A@= @\fʉ \f\f!>\f\f!!\f!! \"-!\f%#? 99\f!q )Q\f!\f\f!#P\"*=\\?\f!q&u '()*d+C-)?>\f.\f\f!qeb`f>!! 2 \f!eb! ʂ1dbe66#dZe]6\f!db)?!.?1qdb\f!!;/;!).9 .?." [nnheader-callback-function nntp-inhibit-output nntp-find-connection-buffer nntp-server-buffer erase-buffer nntp-encode-text process-send-region buffer nntp-connection-alist get-buffer nil entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-address nntp-port-number wait-for decode callback port address command nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message ""] 7 (#$ . 15789)]) (nnoo-define-basics-1 (quote nntp)) #@35 Retrieve the headers of ARTICLES. (defalias 'nntp-retrieve-headers #[(articles &optional group server fetch-old) " \n\"\f!q %% \n\"%˂( G̉e\f!  @Q @!T @Dkk\fq )#\f !\"#$%\"\"&\";\"!\"ԉ()\"**A*@(\"(A@=(@)ԉ*))!>))!!)!!(&\"&-\"!)$#I##)!q )%;)%5))57P\"*!=F͂I!{{)!q9_  :\";<!=d>C@)͂IH)\" A \"))!qeb`fB>CD!CD! E F)!ebCG!H Ԃ;dbeIJI# dKZe]IF)!db)L ?!A?;\"qdbM)!!N9NOP!)AC .I.* A T fQU;R qbST#Ts`W;UUVVUWXYZ_#R kdbJT#C[!db\\yC]!R UUVWX^\"_ ` a\fed#.b)" [nntp-possibly-change-group group server nntp-find-connection-buffer nntp-server-buffer erase-buffer gnus-nov-is-evil nntp-nov-is-evil nntp-retrieve-headers-with-xover articles fetch-old nov 0 t nntp-inhibit-erase buf last-point received count number nil "HEAD" int-to-string strings wait-for nnheader-callback-function nntp-inhibit-output mapconcat identity " " nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" string process-send-string nntp-end-of-line ignore nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message "" nntp-maximum-request nntp-accept-response re-search-forward "^[0-9]" nntp-large-newsgroup 20 nnheader-message 6 "NNTP: Receiving headers... %d%%" 100 "^[23]" -1 "^\\. ?\n" "NNTP: Receiving headers...done" nnheader-fold-continuation-lines nnheader-strip-cr copy-to-buffer headers] 7 (#$ . 17491)]) (nnoo-register-function (quote nntp-retrieve-headers)) #@32 Retrieve group info on GROUPS. (defalias 'nntp-retrieve-groups #[(groups &optional server) "\n\"\f!q =@! ʉe &̂'qA@DWW\fq )#\f !;!#$%%A%@##A@=#@$%$$!>$$!!$!!#!\"!-!$ #)$!q )'$0$$02P\"*=2˂)gg$!q4K 5678d9C;)˂)($<$$!qeb`f>!! @ A$!ebB!C dbeDED#dFZe]DA$!db)G?!++!!+!!*(\"(-$!+\n&#G+!q )'7+'6++68P\"*#=BǂG#yy+!q:[ \";$<=#>d?@CA)ǂGF+$\"B\"$++!qeb`fC>DE!DE! F G+!ebDH!I ˂9dbeJKJ#dLZe]JG+!db)M\"?!B?9$qdbN+!!O7OPQ!)BA .G.*T ^RU2S qbT H`BITk`W2UUVVUWXYZ_#S cUUVWX[\"q \\]\". " [nntp-possibly-change-group group server articles 0 nntp-find-connection-buffer nntp-server-buffer t apply vector 1 nil alist article point map nntp-inhibit-erase buf last-point received count number erase-buffer "ARTICLE" int-to-string strings wait-for nnheader-callback-function nntp-inhibit-output mapconcat identity " " nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist get-buffer entry process process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" string process-send-string nntp-end-of-line ignore nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message "" nntp-maximum-request nntp-accept-response nntp-next-result-arrived-p nntp-large-newsgroup 20 nnheader-message 6 "NNTP: Receiving articles... %d%%" 100 "NNTP: Receiving headers...done" mapcar #[(entry) "db\n \fA#d} ~\f@B" [point insert-buffer-substring buf last-point entry nntp-decode-text] 5]] 10]) (nnoo-register-function (quote nntp-retrieve-articles)) (defalias 'nntp-next-result-arrived-p #[nil "`!#Ƃ)bł)!(yƂ))" [point looking-at "2" re-search-forward "\n. ?\n" nil t "[34]" 1] 4]) (defalias 'nntp-try-list-active #[(group) " !\nqebm!ʼn lj)" [nntp-list-active-group group nntp-server-buffer looking-at "5[0-9]+" nil nntp-server-list-active-group t] 2]) #@57 Return the active info on GROUP (which can be a regexp. (defalias 'nntp-list-active-group #[(group &optional server) "\n\" D  \nq )#\n;R!TA@A@=^@`!>!!!!\"-!#&!q )'')P\"*=11!q, -./0d1C3)4!qeb`f>`!x!m 8 !ebS! dbe<<#dZe]<!db)?!4?qdb@!!AABC!)4 ..\n" [nntp-possibly-change-group nil server "^.* ?\n" "LIST ACTIVE" group strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer erase-buffer mapconcat identity " " nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message ""] 7 (#$ . 24735)]) (nnoo-register-function (quote nntp-list-active-group)) (defalias 'nntp-request-article #[(article &optional group server buffer command) " \n\"!#:8 8 qed# ) " [nntp-possibly-change-group group server nntp-send-command-and-decode " ?\n\\. ?\n" "ARTICLE" article int-to-string buffer nntp-server-buffer copy-to-buffer nntp-find-group-and-number] 5]) (nnoo-register-function (quote nntp-request-article)) (defalias 'nntp-request-head #[(article &optional group server) " \n\"  ! D +\n+ q )#  ;]!_҉A@A@=i@҉k!>!!!!\"-!#( !q )))+P\"*=<<!q.  /012d3C5)6!qeb`f>k!!x : !eb^! ҂dbe>>#d@Ze]>!db)A?!6?qdbB!!CCDE!)6 ..\nF A " [nntp-possibly-change-group group server " ?\n\\. ?\n" "HEAD" article int-to-string strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer erase-buffer mapconcat identity " " nntp-address nntp-port-number nil decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message "" nntp-find-group-and-number] 7]) (nnoo-register-function (quote nntp-request-head)) (defalias 'nntp-request-body #[(article &optional group server) " \n\"!#" [nntp-possibly-change-group group server nntp-send-command-and-decode " ?\n\\. ?\n" "BODY" article int-to-string] 5]) (nnoo-register-function (quote nntp-request-body)) (defalias 'nntp-request-group #[(group &optional server dont-check) "\n\" D  \nq )#\n;R!TA@A@=^@`!>!!!!\"-!#&!q )'')P\"*=11!q, -./0d1C3)4!qeb`f>`!x!m 8 !ebS! dbe<<#dZe]<!db)?!4?qdb@!!AABC!)4 ..\nh\n;!A@/A@=\f@[!>B[!!R!!\"-)AA )" [nntp-possibly-change-group nil server "^2.*\n" "GROUP" group strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer erase-buffer mapconcat identity " " nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message ""] 8]) (nnoo-register-function (quote nntp-request-group)) (defalias 'nntp-close-group #[(group &optional server) "" [t] 1]) (nnoo-register-function (quote nntp-close-group)) #@53 Say whether a connection to SERVER has been opened. (defalias 'nntp-server-opened #[(&optional server) " \n! *\f\f\" !\" !!)\f ;5 !6 ɉ\n \f\fA\f@\na \nA@=?\n@ ɉ\fA  !>t  !! !!\n\"-" [nntp server backend nnoo-current-server nntp-server-buffer buffer get-buffer buffer-name nntp-connection-alist nil entry process alist process-status (open run) process-buffer kill-buffer delq] 6 (#$ . 30497)]) (nnoo-register-function (quote nntp-server-opened)) (defalias 'nntp-open-server #[(server &optional defs connectionless) " \n! Ç\f@;\f@\f@D\fAB\f-\f\nDC\"\n\f#\n? \f \f;L\f!N\fω\fA@{\fA@=X@ωZ!>!!!! \" - !" [nnheader-init-server-buffer nntp-server-opened server t defs nntp-port-number nntp-address append nnoo-change-server nntp connectionless nntp-server-buffer buffer nntp-connection-alist get-buffer nil entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection] 5]) (nnoo-register-function (quote nntp-open-server)) (defalias 'nntp-close-server #[(&optional server) "\n# A@@@\f!>/\f\"\f\n\f\n\fP\"*\f!!\f!!!)" [nntp-possibly-change-group nil server t process nntp-connection-alist process-status (open run) set-process-sentinel "QUIT" string process-send-string nntp-end-of-line buffer-name process-buffer kill-buffer nnoo-close-server nntp] 4]) (nnoo-register-function (quote nntp-close-server)) (defalias 'nntp-request-close #[nil "\nA@/ !> \"ȏ !! !!)" [nil process nntp-connection-list process-status (open run) set-process-sentinel G77769 (byte-code "\n\fP\"*Ç" [process "QUIT" string process-send-string nntp-end-of-line] 4) ((error)) buffer-name process-buffer kill-buffer] 3]) (nnoo-register-function (quote nntp-request-close)) (defalias 'nntp-request-list #[(&optional server) "\n\"\"" [nntp-possibly-change-group nil server nntp-send-command-and-decode " ?\n\\. ?\n" "LIST"] 3]) (nnoo-register-function (quote nntp-request-list)) (defalias 'nntp-request-list-newsgroups #[(&optional server) "\n\"C q ) # ;O!QA@~A@=[@]!>!!!!\"-!#%!q )&&(P\"*=..!q+ ,-./d0C2)3!qeb`f>]!u!j 7 !ebP! dbe;;#dZe];!db)?!3?qdb!!@@AB!)3 ..\n" [nntp-possibly-change-group nil server " ?\n\\. ?\n" "LIST NEWSGROUPS" strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer erase-buffer mapconcat identity " " nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message ""] 7]) (nnoo-register-function (quote nntp-request-list-newsgroups)) (defalias 'nntp-request-newgroups #[(date &optional server) "\n\" q ! HO H! H! HO HO HO&DPP q )#  !\"#;!%&''A'@%%A@=%@&'&&!>&&!!&!!%#\"#-!&!#.2&!q )\" &\"3&&35P\"*=+.``&!q8D 9:;BC!BC! D E&!ebBF!G dbeHIH#dJZe]HE&!db)K?!@? qdbL&!!MMNO!)@( ...\nK +" [nntp-possibly-change-group nil server nntp-server-buffer timezone-parse-date date format "%s%02d%02d %s%s%s" 0 2 string-to-int 1 3 5 6 8 time-string "^\\. ?\n" "NEWGROUPS" strings wait-for nnheader-callback-function nntp-inhibit-output erase-buffer mapconcat identity " " nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message ""] 10]) (nnoo-register-function (quote nntp-request-newgroups)) (defalias 'nntp-request-post #[(&optional server) "\n\"C q ) # ;O!QA@~A@=[@]!>!!!!\"-!#%!q )&&(P\"*=..!q+ ,-./d0C2)3!qeb`f>]!u!j 7 !ebP! dbe;;#dZe];!db)?!3?qdb!!@@AB!)3 ..\nCD!" [nntp-possibly-change-group nil server "^[23].* ?\n" "POST" strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer erase-buffer mapconcat identity " " nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message "" nntp-send-buffer "^[23].*\n"] 7]) (nnoo-register-function (quote nntp-request-post)) (defalias 'nntp-request-type #[(group article) "" [news] 1]) (nnoo-register-function (quote nntp-request-type)) (defalias 'nntp-asynchronous-p #[nil "" [t] 1]) (nnoo-register-function (quote nntp-asynchronous-p)) #@203 Send the MODE READER command to the nntp server. This function is supposed to be called from `nntp-server-opened-hook'. It will make innd servers spawn an nnrpd process to allow actual article reading. (defalias 'nntp-send-mode-reader #[nil "C\f q )\n# \f \f;D!F͉A@sA@=P@͉R!>!!!!\"-!##\f!q )$$&P\"*=  !q) *+ ,-d.C0)  1!qeb`f>L!d!Y 5 !eb?!q ͂dbe9 9#dZe]9!dbw)?!1?qdb!!>>@!)1 ..\n" ["^.* ?\n" "MODE READER" strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer erase-buffer mapconcat identity " " nntp-address nntp-port-number nil decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message ""] 7 (#$ . 37787)]) #@141 Send the AUTHINFO to the nntp server. This function is supposed to be called from `nntp-server-opened-hook'. It will prompt for a password. (defalias 'nntp-send-nosy-authinfo #[nil " \"!D  \nq )# \n;Q!SЉA@A@=]@Љ_!>!!!!\"-!#&!q )'')P\"*=00!q, -./0d1C3)4!qeb`f>_!w!l 8 !ebR! Ђdbe<<#dZe]<!db)?!4?qdb@!!AABC!)4 ..*DEF \"D\f \f\nq )# \n;=!?ЉA@lA@=I@ЉK!>!!!!\"-!#&!q )'')P\"*=!q, -./0d1C3)4!qeb`f>K!c!X 8 !eb>!p Ђdbe<<#dZe]<!dbv)?!4?qdb@!!AABC!)4 ..\n" ["^.* ?\n" "AUTHINFO USER" read-string format "NNTP (%s) user name: " nntp-address strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer erase-buffer mapconcat identity " " nntp-port-number nil decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message "" "AUTHINFO PASS" nnmail-read-passwd "NNTP (%s) password: "] 7 (#$ . 39440)]) #@141 Send the AUTHINFO to the nntp server. This function is supposed to be called from `nntp-server-opened-hook'. It will prompt for a password. (defalias 'nntp-send-authinfo #[nil " D q ) #\f \f ;G!IΉA@vA@=S@ΉU!>!!!!\"-!#$ !q )%%'P\"*=#\f#!q* +,\f-.d/C1)\f\f2!qeb`f>O!g!\\ 6 !ebB!t ΂dbe:\f:#dZe]:!dbz)?!2?qdb!!??@A!)2 ..*BCDE\f\"!D q ) #\f \f ;)!+ΉA@XA@=5@Ή7!>k!!{!!\"-!#$ !q )%%'P\"*=邳\f!q* +,\f-.d/C1)邳\f\f2!qeb`f>1!I!> 6 !eb$!V ΂dbe:\f:#wdZe]:!db\\)?!2?qdb!!??@A!)2 ..\n" ["^.* ?\n" "AUTHINFO USER" user-login-name strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer erase-buffer mapconcat identity " " nntp-address nntp-port-number nil decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message "" "AUTHINFO PASS" nnmail-read-passwd format "NNTP (%s) password: "] 7 (#$ . 41657)]) #@110 Send the AUTHINFO to the nntp server. This function is supposed to be called from `nntp-server-opened-hook'. (defalias 'nntp-send-authinfo-from-file #[nil "!d!!q \nˎ!eb D;;q )# !;m!o‰#$%%A%@##A@=y#@$‰%{$$!>$$!!$!!#!\"!-!$#0$!q ) \f$ 1$$13P\"*=LL$!q60 789:d;C=)$>$$!qeb`f>@A!@A! B C$!ebn@D!E ‚\ndbeFGF#dHZe]FC$!db)I?!>?\nqdbJ$!!KKLM!)> ..*́N``{D>>q )# !;p!r‰#$%%A%@##A@=|#@$‰%~$$!>$$!!$!!#!\"!-!$#0$!q ) $ 1$$13P\"*=OO$!q63 789:d;C=)$>$$!qeb`f>@A!@A! B C$!ebq@D!E ‚ dbeFGF#dHZe]FC$!db)I?!>? qdbJ$!!K KLM!)> ..\n\n (\nb =9 qO b qPQ !!TRQ !\"Sed T%\n." [file-exists-p "~/.nntp-authinfo" nil temp-file fundamental-mode default-major-mode get-buffer-create generate-new-buffer-name " *nnheader temp*" temp-buffer temp-results ((byte-code " !\n !" [buffer-name temp-buffer kill-buffer] 2)) insert-file-contents "^.* ?\n" "AUTHINFO USER" user-login-name strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer erase-buffer mapconcat identity " " nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase string process-send-string nntp-end-of-line ignore t nntp-inside-change-function nntp-process-decode nntp-process-to-buffer nntp-process-wait-for nntp-process-callback nntp-process-start-point nntp-after-change-function-callback after-change-functions discard (50 51 52 53) looking-at "480" nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message "" "AUTHINFO PASS" buffer-string file-directory-p file-name-directory make-directory write-region nomesg] 7 (#$ . 43830)]) #@65 Create a new, fresh buffer usable for nntp process connections. (defalias 'nntp-make-process-buffer #[(buffer) " \f!!$!qp!!L!L!L!L!L!Lp)" [generate-new-buffer format " *server %s %s %s*" nntp-address nntp-port-number buffer-name get-buffer buffer buffer-disable-undo make-local-variable after-change-functions nil nntp-process-wait-for nntp-process-callback nntp-process-to-buffer nntp-process-start-point nntp-process-decode] 8 (#$ . 46440)]) #@67 Open a connection to PORT on ADDRESS delivering output to BUFFER. (defalias 'nntp-open-connection #[(buffer) "! !Ǐ! \f !qeb`f>=!U!J  !eb0!b łdbe#dZe]!dbh) ?!\f? qdb!!!)\f )-!> E\"B\"@@#B#\fq %q&!*!!!!*" [run-hooks nntp-prepare-server-hook nntp-make-process-buffer buffer pbuffer nil (byte-code "\n !)" [nntp-coding-system-for-read coding-system-for-read nntp-open-connection-function pbuffer] 2) ((error) (quit)) process process-kill-without-query "^.*\n" t discard decode wait-for process-buffer (50 51 52 53) looking-at "480" erase-buffer nntp-authinfo-function nntp-accept-process-output "[45]" nntp-snarf-error-message limit re-search-backward 1000 nntp-decode-text insert-buffer-substring nntp-have-messaged message "" process-status (open run) nntp-connection-alist nntp-connection-list nntp-read-server-type nntp-server-buffer nnheader-callback-function nntp-server-opened-hook buffer-name kill-buffer] 6 (#$ . 46926)]) (defalias 'nntp-open-network-stream #[(buffer) "\n \f$" [open-network-stream "nntpd" buffer nntp-address nntp-port-number] 5]) #@63 Find out what the name of the server we have connected to is. (defalias 'nntp-read-server-type #[nil " \nAA@ @ \" A@<9 A@@=9 A@! A@ +" [buffer-string nntp-server-type nntp-server-action-alist t nil entry case-fold-search alist string-match lambda eval] 3 (#$ . 48164)]) (defalias 'nntp-after-change-function-callback #[(beg end len) " Î\feU0\ff>0\fb!& , !) b`\fV\f#!!tp\f!qdb`\"d} ~, b!!!+*" [nntp-process-callback match-data match-data ((store-match-data match-data)) beg (52 53) looking-at "480" nntp-authinfo-function nntp-snarf-error-message nil end nntp-process-start-point re-search-backward nntp-process-wait-for t buffer-name get-buffer nntp-process-to-buffer start cur b insert-buffer-substring nntp-decode-text nntp-inside-change-function callback] 4]) #@47 Save the error message in the current buffer. (defalias 'nntp-snarf-error-message #[nil "  \"Ɖ $ \" )" [buffer-string message string-match "[ \n]+" replace-match " " t nnheader-report nntp] 5 (#$ . 49063)]) #@53 Wait for output from PROCESS and message some dots. (defalias 'nntp-accept-process-output #[(process) " ! qd¥W #* \")" [nntp-find-connection-buffer nntp-server-buffer 1024 nil message-log-max len 10 t nntp-have-messaged nnheader-message 7 "nntp read: %dk" accept-process-output process 1] 5 (#$ . 49294)]) #@58 Wait for output from the process that outputs to BUFFER. (defalias 'nntp-accept-response #[nil "  \n;\n!\nʼnA@;\nA@=@ʼne!>Ne!!^!! \"-!" [nntp-accept-process-output nntp-server-buffer buffer nntp-connection-alist get-buffer nil entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq] 6 (#$ . 49632)]) (defalias 'nntp-possibly-change-group #[(group server &optional connectionless) "\n\n!\n # \"!\"!) \n\n \n;>\n!@\n \nA@ m\n A@=J @L!>!!!!  \" - )   AA@? @!q  @ PP\"*! AA ))" [nil nnheader-callback-function server nntp-server-opened nntp-open-server connectionless nntp-find-connection nntp-server-buffer nntp-open-connection group buffer nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq erase-buffer "GROUP " string process-send-string nntp-end-of-line nntp-wait-for-string "^2.*\n"] 6]) #@40 Decode the text in the current buffer. (defalias 'nntp-decode-text #[(&optional cr-only) "eb#!?Adby!(!eb`y`|#A!2" [search-forward " " nil t delete-char -1 cr-only looking-at ".\n" 2 1 "\n.."] 4 (#$ . 50751)]) #@40 Encode the text in the current buffer. (defalias 'nntp-encode-text #[nil "eb#cdbncdb)" [re-search-forward "^\\." nil t "." "\n" nntp-end-of-line] 4 (#$ . 51010)]) (defalias 'nntp-retrieve-headers-with-xover #[(articles &optional fetch-old) "q \n< \fl\f*\f&@\fZ]-Ƃ-@!@#eb!E`y`|#Vω#Edby!<`y`|< <ԉe\n@AA@@Z WA@\"ATU qb#T`W q\n;db#!\"dby!\" eb#4!%eb!-\n" [nntp-server-buffer erase-buffer nntp-server-xover nntp-nov-gap fetch-old nntp-send-xover-command 1 articles last wait looking-at "[1-5][0-9][0-9] " search-forward " " nil t replace-match "" -1 "\\." 0 first buf last-point received count nntp-maximum-request accept-process-output re-search-forward "^[0-9][0-9][0-9] " re-search-backward "^[23]" "^\\. ?\n" nntp-accept-response delete-char delete-matching-lines "^\\.$\\|^[1-5][0-9][0-9] "] 6]) #@39 Send the XOVER command to the server. (defalias 'nntp-send-xover-command #[(beg end &optional wait-for-reply) "\n #;(#|#| \ff=f\f@#qeb!\\y!\\\f@)\fA\f0=yq ))*" [format "%d-%d" beg end t nntp-inhibit-erase range nntp-server-xover wait-for-reply nntp-send-command-nodelete " ?\n\\. ?\n" nntp-xover-commands commands try nntp-server-buffer looking-at "[23]" 1 "[0-9]+ ..." erase-buffer nil] 5 (#$ . 52060)]) #@42 Wait until string arrives in the buffer. (defalias 'nntp-wait-for-string #[(regexp) "peb\n#?;\"!$É\n \f\fA\f@\nQ\nA@=.\n@ É\f0 } !>d } !!t !!\n\"-!qeb)" [buf re-search-forward regexp nil t accept-process-output nntp-server-buffer buffer nntp-connection-alist get-buffer entry process alist process-status (open run) buffer-name process-buffer kill-buffer delq] 6 (#$ . 52558)]) (defalias 'nntp-open-telnet #[(buffer) "q  %  !> \" Q\"! ?!P\"! U!P\" ! #P\"!ye`| \"! \" \"!eby`d| +" [buffer erase-buffer apply start-process "nntpd" nntp-telnet-command nntp-telnet-switches t case-fold-search proc process-status (open run) process-send-string "set escape \n" "open " nntp-address "\n" nntp-wait-for-string "^ *.?login:" nntp-telnet-user-name read-string "login: " "^ *.?password:" nntp-telnet-passwd nnmail-read-passwd "Password: " "bash\\|$ * ?$\\|> * ?" mapconcat identity nntp-telnet-parameters " " "^ *200" 0 "" "^telnet" "mode character\n" accept-process-output 1 sit-for] 6]) #@40 Open a connection to SERVER using rsh. (defalias 'nntp-open-rlogin #[(buffer) "  #&\"  #% q!ye`| )" [nntp-rlogin-user-name start-process "nntpd" buffer "rsh" nntp-address "-l" mapconcat identity nntp-rlogin-parameters " " proc nntp-wait-for-string "^ *200" 0] 11 (#$ . 53738)]) (defalias 'nntp-find-group-and-number #[nil "qeb#d}eb!\"Ȕȕ{!É \n \f;\f!;\f!\nQ\n\"Q\nv! u\fu\f\" \"u ȔȕOv  \" ׉O  \f.B" [nntp-server-buffer search-forward "\n\n" nil t looking-at "2[0-9][0-9] +\\([0-9]+\\) " string-to-int 1 xref newsgroups group number zerop mail-fetch-field "newsgroups" string-match "," "xref" format "\\([^ :]+\\):%d" "" " " 0] 6]) (provide (quote nntp))