%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\310\236\203' \310\236A\311\312\313\"\240\210\2022 \310\311\312\313\"\313\211FB\310 \236\204> \310\314D B\315\316\317\"\210\320\310\313\321\322\306%\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnoo gnus-util gnus gnus-group nntp mapcar list nil "*internal-non-initialized-backend*" autoload auth-source-search "auth-source" custom-declare-group "NNTP access for Gnus." :group] 6)
#@110 Address of the physical nntp server.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-address nil (#$ . 889))
(nnoo-define 'nntp-address nil)
#@114 Port number on the physical nntp server.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-port-number "nntp" (#$ . 1074))
(nnoo-define 'nntp-port-number nil)
#@226 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.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-server-opened-hook '(nntp-send-mode-reader) (#$ . 1275))
(nnoo-define 'nntp-server-opened-hook nil)
#@152 Function used to send AUTHINFO to the server.
It is called with no parameters.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-authinfo-function 'nntp-send-authinfo (#$ . 1620))
(nnoo-define 'nntp-authinfo-function nil)
#@347 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.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-server-action-alist (byte-code "\300\301D\302\303DD\207" ["nntpd 1\\.5\\.11t" #[0 "\300\301\302\"\207" [remove-hook nntp-server-opened-hook nntp-send-mode-reader] 3] "NNRP server Netscape" #[0 "\301\211\207" [nntp-server-list-active-group nil] 2]] 3) (#$ . 1884))
(nnoo-define 'nntp-server-action-alist nil)
#@909 Method for connecting to a remote system.
It should be a function, which is called with the output buffer
as its single argument, or one of the following special values:
- `nntp-open-network-stream' specifies a network connection,
upgrading to a TLS connection via STARTTLS if possible.
- `nntp-open-plain-stream' specifies an unencrypted network
connection (no STARTTLS upgrade is attempted).
- `nntp-open-ssl-stream' or `nntp-open-tls-stream' specify a TLS
network connection.
Apart from the above special values, valid functions are as
follows; please refer to their respective doc string for more
information.
For direct connections:
- `nntp-open-netcat-stream'
- `nntp-open-telnet-stream'
For indirect connections:
- `nntp-open-via-rlogin-and-netcat'
- `nntp-open-via-rlogin-and-telnet'
- `nntp-open-via-telnet-and-telnet'
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-open-connection-function 'nntp-open-network-stream (#$ . 2559))
(nnoo-define 'nntp-open-connection-function nil)
#@457 Non-nil means the nntp server never echoes commands.
It is reported that some nntps server doesn't echo commands. So, you
may want to set this to non-nil in the method for such a server setting
`nntp-open-connection-function' to `nntp-open-ssl-stream' for example.
Note that the `nntp-open-connection-functions-never-echo-commands'
variable overrides the nil value of this variable.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-never-echoes-commands nil (#$ . 3600))
(nnoo-define 'nntp-never-echoes-commands nil)
#@328 List of functions that never echo commands.
Add or set a function which you set to `nntp-open-connection-function'
to this list if it does not echo commands. Note that a non-nil value
of the `nntp-never-echoes-commands' variable overrides this variable.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-open-connection-functions-never-echo-commands '(nntp-open-network-stream) (#$ . 4161))
(nnoo-define 'nntp-open-connection-functions-never-echo-commands nil)
#@193 Pre-command to use with the various nntp-open-via-* methods.
This is where you would put "runsocks" or stuff like that.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-pre-command nil (#$ . 4665))
(nnoo-define 'nntp-pre-command nil)
#@260 Telnet command used to connect to the nntp server.
This command is used by the methods `nntp-open-telnet-stream',
`nntp-open-via-rlogin-and-telnet' and `nntp-open-via-telnet-and-telnet'.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-telnet-command "telnet" (#$ . 4942))
(nnoo-define 'nntp-telnet-command nil)
#@133 Switches given to the telnet command `nntp-telnet-command'.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-telnet-switches '("-8") (#$ . 5297))
(nnoo-define 'nntp-telnet-switches nil)
#@246 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 an indirect
connection method (nntp-open-via-*).
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-end-of-line "
\n" (#$ . 5526))
(nnoo-define 'nntp-end-of-line nil)
#@297 Rlogin command used to connect to an intermediate host.
This command is used by the methods `nntp-open-via-rlogin-and-telnet'
and `nntp-open-via-rlogin-and-netcat'. The default is "rsh", but "ssh"
is a popular alternative.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-via-rlogin-command "rsh" (#$ . 5858))
(nnoo-define 'nntp-via-rlogin-command nil)
#@403 Switches given to the rlogin command `nntp-via-rlogin-command'.
If you use "ssh" for `nntp-via-rlogin-command', you may set this to
("-C") in order to compress all data connections, otherwise set this
to ("-t" "-e" "none") or ("-C" "-t" "-e" "none") if the telnet
command requires a pseudo-tty allocation on an intermediate host.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-via-rlogin-command-switches nil (#$ . 6255))
(nnoo-define 'nntp-via-rlogin-command-switches nil)
#@199 Telnet command used to connect to an intermediate host.
This command is used by the `nntp-open-via-telnet-and-telnet' method.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-via-telnet-command "telnet" (#$ . 6774))
(nnoo-define 'nntp-via-telnet-command nil)
#@137 Switches given to the telnet command `nntp-via-telnet-command'.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-via-telnet-switches '("-8") (#$ . 7076))
(nnoo-define 'nntp-via-telnet-switches nil)
#@225 Netcat command used to connect to the nntp server.
This command is used by the `nntp-open-netcat-stream' and
`nntp-open-via-rlogin-and-netcat' methods.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-netcat-command "nc" (#$ . 7317))
(nnoo-define 'nntp-netcat-command nil)
#@133 Switches given to the netcat command `nntp-netcat-command'.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-netcat-switches nil (#$ . 7633))
(nnoo-define 'nntp-netcat-switches nil)
#@185 User name to log in on an intermediate host with.
This variable is used by the various nntp-open-via-* methods.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-via-user-name nil (#$ . 7858))
(nnoo-define 'nntp-via-user-name nil)
#@200 Password to use to log in on an intermediate host with.
This variable is used by the `nntp-open-via-telnet-and-telnet' method.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-via-user-password nil (#$ . 8131))
(nnoo-define 'nntp-via-user-password nil)
#@182 Address of an intermediate host to connect to.
This variable is used by the various nntp-open-via-* methods.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-via-address nil (#$ . 8427))
(nnoo-define 'nntp-via-address nil)
#@193 Whether both telnet client and server support the ENVIRON option.
If non-nil, there will be no prompt for a login name.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-via-envuser nil (#$ . 8693))
(nnoo-define 'nntp-via-envuser nil)
#@214 Regular expression to match the shell prompt on an intermediate host.
This variable is used by the `nntp-open-via-telnet-and-telnet' method.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-via-shell-prompt "bash\\|[$>] *
?$" (#$ . 8970))
(nnoo-define 'nntp-via-shell-prompt nil)
#@247 The number of articles which indicates a large newsgroup.
If the number of articles is greater than the value, verbose
messages will be shown to indicate the current status.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-large-newsgroup 50 (#$ . 9293))
(nnoo-define 'nntp-large-newsgroup nil)
#@224 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.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-maximum-request 400 (#$ . 9631))
(nnoo-define 'nntp-maximum-request nil)
#@150 If non-nil, nntp will never attempt to use XOVER when talking to the server.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-nov-is-evil nil (#$ . 9947))
(nnoo-define 'nntp-nov-is-evil nil)
#@297 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.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-xover-commands '("XOVER" "XOVERVIEW") (#$ . 10181))
(nnoo-define 'nntp-xover-commands nil)
#@232 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.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-nov-gap 5 (#$ . 10588))
(nnoo-define 'nntp-nov-gap nil)
#@480 If non-nil, Gnus never trusts article numbers in the Xref header.
Some news servers, e.g., ones running Diablo, run multiple engines
having the same articles but article numbers are not kept synchronized
between them. If you connect to such a server, set this to a non-nil
value, and Gnus never uses article numbers (that appear in the Xref
header and vary by which engine is chosen) to refer to articles.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-xref-number-is-evil nil (#$ . 10895))
(nnoo-define 'nntp-xref-number-is-evil nil)
#@460 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'
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-prepare-server-hook nil (#$ . 11476))
(byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312%\210\313\304\302\314#\207" [nnoo-define nntp-prepare-server-hook nil custom-declare-variable nntp-authinfo-file funcall function #[0 "\300\207" [#1="~/.authinfo"] 1 #1#] ".netrc-like file that holds nntp authinfo passwords." :type (choice file (repeat :tag "Entries" :menu-tag "Inline" (list :format "%v" :value (#2="" ("login" . #2#) ("password" . #2#)) (string :tag "Host") (checklist :inline t (cons :format "%v" (const :format #2# "login") (string :format "Login: %v")) (cons :format "%v" (const :format #2# "password") (string :format "Password: %v")))))) make-obsolete "Emacs 24.1"] 6)
#@202 Number of seconds to wait before an nntp connection times out.
If this variable is nil, which is the default, no timers are set.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-connection-timeout nil (#$ . 12650))
(nnoo-define 'nntp-connection-timeout nil)
#@172 Hook run just before posting an article. It is supposed to be used
to insert Cancel-Lock headers.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-prepare-post-hook nil (#$ . 12951))
(nnoo-define 'nntp-prepare-post-hook nil)
#@239 If nil, then always use GROUP instead of LIST ACTIVE.
This is usually slower, but on misconfigured servers that don't
update their active files often, this can help.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-server-list-active-group 'try (#$ . 13220))
(nnoo-define 'nntp-server-list-active-group nil)
(defvar nntp-retrieval-in-progress nil)
(byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312%\207" [nnoo-define nntp-retrieval-in-progress nil custom-declare-variable nntp-record-commands funcall function #[0 "\300\207" [nil] 1] "If non-nil, nntp will record all commands in the \"*nntp-log*\" buffer." :type boolean] 6)
(defvar nntp-have-messaged nil)
(defvar nntp-process-wait-for nil)
(defvar nntp-process-to-buffer nil)
(defvar nntp-process-callback nil)
(defvar nntp-process-decode nil)
(defvar nntp-process-start-point nil)
(defvar nntp-inside-change-function nil)
(defvar nntp-last-command-time nil)
(nnoo-define 'nntp-last-command-time nil)
(defvar nntp-last-command nil)
(nnoo-define 'nntp-last-command nil)
(defvar nntp-authinfo-password nil)
(nnoo-define 'nntp-authinfo-password nil)
(defvar nntp-authinfo-user nil)
(nnoo-define 'nntp-authinfo-user nil)
(defvar nntp-authinfo-force nil)
(nnoo-define 'nntp-authinfo-force nil)
(defvar nntp-connection-list nil)
(defvar nntp-server-type nil)
(nnoo-define 'nntp-server-type nil)
(defvar nntp-connection-alist nil)
(nnoo-define 'nntp-connection-alist nil)
(defvar nntp-status-string "")
(nnoo-define 'nntp-status-string nil)
(defconst nntp-version "nntp 5.0")
(defvar nntp-inhibit-erase nil)
(nnoo-define 'nntp-inhibit-erase nil)
(defvar nntp-inhibit-output nil)
(nnoo-define 'nntp-inhibit-output nil)
(defvar nntp-server-xover 'try)
(nnoo-define 'nntp-server-xover nil)
(defvar nntp-async-timer nil)
(defvar nntp-async-process-list nil)
#@180 A custom error condition used to report `Authentication Rejected' errors.
Condition handlers that match just this condition ensure that the nntp
backend doesn't catch this error.
(defvar nntp-authinfo-rejected nil (#$ . 15078))
(define-error 'nntp-authinfo-rejected "Authorization Rejected")
#@46 Send STRING to PROCESS.
(fn PROCESS STRING)
(defalias 'nntp-send-string #[514 "\304 \211\n\203
\305!\210\306 P\"\210\307!\310>\206 \311\312!\207" [nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection"] 6 (#$ . 15376)])
(put 'nntp-send-string 'byte-optimizer 'byte-compile-inline-expand)
#@41 Record the command STRING.
(fn STRING)
(defalias 'nntp-record-command #[257 "r\301\302!q\210db\210\303\304!\305\305\306\261)\207" [nntp-address get-buffer-create "*nntp-log*" format-time-string "%Y%m%dT%H%M%S.%3N" " " "\n"] 7 (#$ . 15821)])
(defvar nntp--report-1 nil)
#@211 Report an error from the nntp backend. The first string in ARGS
can be a format string. For some commands, the failed command may be
retried once before actually displaying the error report.
(fn &rest ARGS)
(defalias 'nntp-report #[128 "\203 \203\f \302\303!\210\304\305\306\"\207 \203 \302\307!\210\310\311\"\210\312\313\"\207" [nntp--report-1 nntp-record-commands nntp-record-command "*** CONNECTION LOST ***" throw nntp-with-open-group-error t "*** CALLED nntp-report ***" nnheader-report nntp apply error] 4 (#$ . 16101)])
#@85 Copy string from unibyte current buffer to multibyte buffer.
(fn BUFFER START END)
(defalias 'nntp-copy-to-buffer '(macro . #[771 "\300\301\302EDC\303\304BBE\207" [let string buffer-substring with-current-buffer ((erase-buffer) (insert string) (goto-char (point-min)) nil)] 8 (#$ . 16643)]))
#@98 Wait for WAIT-FOR to arrive from PROCESS.
(fn PROCESS WAIT-FOR BUFFER &optional DECODE DISCARD)
(defalias 'nntp-wait-for #[1283 "r\303!q\210eb\210`f\304>\203 \305\306!\203X \307!\310>\203X \305\311!\203+ \312!\210\202N \305\313!\203A \314\315\316\317\320N#\210\321\317\322\"\210\202N \305\323!\203N `\324y\210`|\210\325!\210eb\210\202 \305\326!\203e \327 \210\322\202\311 \307!\330>\204s \331\332!\202\311 db\210e\322\333\334#\204\223 \325!\210d\335Ze]\262db\210\202x \336\337!\262rq\210\211)\266\340?!\210\211\204\310 rq\210db\210r\303!q\210\341 )c\210\n\203\307 \322\342\343\344\"\210)\334\204\320 \345 \210)\207" [nntp-server-buffer nntp-process-response nntp-have-messaged process-buffer (50 51 52 53) looking-at "48[02]" process-status (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal nil "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nntp-report "Server closed connection" re-search-backward t 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer] 11 (#$ . 16945)])
(put 'nntp-wait-for 'byte-optimizer 'byte-compile-inline-expand)
#@15
(fn BUFFER)
(defalias 'nntp-kill-buffer #[257 "\300!\205 \301!\211\203 \302!\210\210\303!\210\304 \207" [buffer-live-p get-buffer-process delete-process kill-buffer nnheader-init-server-buffer] 4 (#$ . 18143)])
#@40 Erase contents of BUFFER.
(fn BUFFER)
(defalias 'nntp-erase-buffer #[257 "r\211q\210\300 )\207" [erase-buffer] 2 (#$ . 18368)])
#@56 Find the connection delivering to BUFFER.
(fn BUFFER)
(defalias 'nntp-find-connection #[257 ";\203\f \301!\202
\302\211\2031 \211A\262\242\211\262\2031 A@=\203 \211@\262\302\262\202 \205M \303!\304>\203A \202M \305\306!!\210\307\"\302\207" [nntp-connection-alist get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq] 8 (#$ . 18503)])
(put 'nntp-find-connection 'byte-optimizer 'byte-compile-inline-expand)
#@61 Return the entry for the connection to BUFFER.
(fn BUFFER)
(defalias 'nntp-find-connection-entry #[257 "\211;\203
\301!\202 \302\211\2032 \211A\262\242\211\262\2032 A@=\203 \211@\262\302\262\202 \205N \303!\304>\203B \202N \305\306!!\210\307\"\302\266\205\236\207" [nntp-connection-alist get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq] 9 (#$ . 18963)])
(put 'nntp-find-connection-entry 'byte-optimizer 'byte-compile-inline-expand)
#@67 Return the process connection buffer tied to BUFFER.
(fn BUFFER)
(defalias 'nntp-find-connection-buffer #[257 "\211;\203
\301!\202 \302\211\2032 \211A\262\242\211\262\2032 A@=\203 \211@\262\302\262\202 \205N \303!\304>\203B \202N \305\306!!\210\307\"\302\266\205\211\205W \306!\207" [nntp-connection-alist get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq] 9 (#$ . 19456)])
#@133 Use COMMAND to retrieve data into BUFFER from PORT on ADDRESS.
(fn COMMAND ADDRESS PORT BUFFER &optional WAIT-FOR CALLBACK DECODE)
(defalias 'nntp-retrieve-data #[1796 ";\203
\306!\202 \307\211\2032 \211A\262\242\211\262\2032 A@=\203 \211@\262\307\262\202 \205N \310!\311>\203B \202N \312\313!!\210\314\"\307\266\205\206V \315!\211\203\321 \204h \n\204h \316\313!!\210\3171\302\3201\265\3211\251\203\236 \211\322 \211
\203\211 \323!\210\324=P\"\210\310!\325>\206\234 \326\327!\266\330=\203\250 \331\202\243\203\276 \203\276 \332%\210\331\202\243\203\242\211\307r\313!q\210eb\210`f\333>\203\336 \334\335!\203 \310!\336>\203 \334\337!\203\363 \340!\210\202\334\341!\203 \342\343\344\345\346N#\210\347\345\307\"\210\202\334\350!\203`\351y\210`|\210\352!\210eb\210\202\321 \334\353!\203-\354 \210\307\202\225\310!\355>\204;\326\327!\202\225db\210e\307\356\331#\204[\352!\210d\357Ze]\262db\210\202@\360\361!\262r>q\210\211?)\266\362?!\210\211\204\224rq\210db\210r\313!q\210\363 )c\210@\203\223\307@\364\365\366\"\210)\331\204\234\367 \210)\266\205\202\243\331000\202\32700\347\345A\"\262\202\3270\342\343\370\n$\262\202\327\371\372!\210\347\373\307\"\210\307\262\202\327\342\343\374 #\207" [nntp-connection-alist nntp-inhibit-erase nnheader-callback-function nntp-last-command-time nntp-last-command nntp-record-commands get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nntp-erase-buffer (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-end-of-line nntp-server-buffer nntp-process-response nntp-have-messaged] 19 (#$ . 19890)])
(put 'nntp-retrieve-data 'byte-optimizer 'byte-compile-inline-expand)
#@86 Send STRINGS to server and wait until WAIT-FOR returns.
(fn WAIT-FOR &rest STRINGS)
(defalias 'nntp-send-command #[385 "\204\f \204\f \306\n!\210\307\310\311#\n ;\203 \312!\202 \313\211\203C \211A\262\242\211\262\203C A@=\203! \211@\262\313\262\202! \205_ \314!\315>\203S \202_ \316\317!!\210\320 \"\313\266\205\211\205h \317!\211\205r r\211q\210`)\203\221\f
\n \313 ;\203\213 \312!\202\214 \313\211\203\260 \211A\262\242\211\262\203\260 A@=\203\216 \211@\262\313\262\202\216 \205\314 \314!\315>\203\300 \202\314 \316\317!!\210\320 \"\313\266\205\206\324 \321!\211\203R@\204\347 \204\347 \306\317!!\210\3221C\32316\3241*\203 \211\325 A\211BC\203 \326!\210\327DP\"\210\314!\330>\206 \331\332!\266\333=\203*\334\202$\203@\203@\335%\210\334\202$\203#\211\313r\317!q\210eb\210`f\336>\203`\337\340!\203\242\314!\341>\203\242\337\342!\203u\343!\210\202\230\337\344!\203\213\345\346\347\350\351N#\210\352\350\313\"\210\202\230\337\353!\203\230`\354y\210`|\210\355!\210eb\210\202S\337\356!\203\257\357 \210\313\202\314!\360>\204\275\331\332!\202db\210e\313\361\334#\204\335\355!\210d\362Ze]\262db\210\202\302\363\364!\262r\nq\210\211E)\266\365?!\210\211\204rq\210db\210r\317!q\210\366 )c\210F\203\313F\367\370\371\"\210)\334\204 \372 \210)\266\205\202$\334000\202X00\352\350A\"\262\202X0\345\346\373\n$\262\202X\374\375!\210\352\376\313\"\210\313\262\202X\345\346\377 #\266\210\204\230G\204\230HI>\204\230\201J \210rq\210b\210\337\201K !!\203\215\354y\210\201L |\210)\202\230\345\346\201M \f#\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-address nntp-port-number nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 25 (#$ . 22224)])
(put 'nntp-send-command 'byte-optimizer 'byte-compile-inline-expand)
#@86 Send STRINGS to server and wait until WAIT-FOR returns.
(fn WAIT-FOR &rest STRINGS)
(defalias 'nntp-send-command-nodelete #[385 "\306\307\310# ;\203 \311!\202 \312\211\2037 \211A\262\242\211\262\2037 A@=\203 \211@\262\312\262\202 \205S \313!\314>\203G \202S \315\316!!\210\317 \"\312\266\205\211\205\\ \316!\211\205f r\211q\210`)\203w\n \f\312 ;\203 \311!\202\200 \312\211\203\244 \211A\262\242\211\262\203\244 A@=\203\202 \211@\262\312\262\202\202 \205\300 \313!\314>\203\264 \202\300 \315\316!!\210\317 \"\312\266\205\206\310 \320!\211\203E
\204\332 \f\204\332 \321\316!!\210\32216\3231)\3241 \203\211\325 @\211AB\203\376 \326!\210\327CP\"\210\313!\330>\206\331\332!\266\333=\203 \334\202\2033\2033\335%\210\334\202\203\211\312r\316!q\210eb\210`f\336>\203S\337\340!\203\225\313!\341>\203\225\337\342!\203h\343!\210\202\213\337\344!\203~\345\346\347\350\351N#\210\352\350\312\"\210\202\213\337\353!\203\213`\354y\210`|\210\355!\210eb\210\202F\337\356!\203\242\357 \210\312\202 \313!\360>\204\260\331\332!\202 db\210e\312\361\334#\204\320\355!\210d\362Ze]\262db\210\202\265\363\364!\262rq\210\211D)\266\365?!\210\211\204rq\210db\210r\316!q\210\366 )c\210E\203\312E\367\370\371\"\210)\334\204\372 \210)\266\205\202\334000\202K00\352\350A\"\262\202K0\345\346\373\n$\262\202K\374\375!\210\352\376\312\"\210\312\262\202K\345\346\377 #\266\210\204~\201F \210rq\210b\210\337\201G !!\203s\354y\210\201H |\210)\202~\345\346\201I \n#\207" [nntp-server-buffer nntp-connection-alist nntp-address nntp-port-number nnheader-callback-function nntp-inhibit-erase mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nntp-erase-buffer (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 25 (#$ . 25175)])
#@86 Send STRINGS to server and wait until WAIT-FOR returns.
(fn WAIT-FOR &rest STRINGS)
(defalias 'nntp-send-command-and-decode #[385 "\204\f \204\f \306\n!\210\307\310\311#\n ;\203 \312!\202 \313\211\203C \211A\262\242\211\262\203C A@=\203! \211@\262\313\262\202! \205_ \314!\315>\203S \202_ \316\317!!\210\320 \"\313\266\205\211\205h \317!\211\205r r\211q\210`)\203\204\f
\n \321 ;\203\213 \312!\202\214 \313\211\203\260 \211A\262\242\211\262\203\260 A@=\203\216 \211@\262\313\262\202\216 \205\314 \314!\315>\203\300 \202\314 \316\317!!\210\320 \"\313\266\205\206\324 \322!\211\203R@\204\347 \204\347 \306\317!!\210\3231C\32416\3251*\203 \211\326 A\211BC\203 \327!\210\330DP\"\210\314!\331>\206 \332\333!\266\334=\203*\321\202$\203@\203@\335%\210\321\202$\203#\211\313r\317!q\210eb\210`f\336>\203`\337\340!\203\242\314!\341>\203\242\337\342!\203u\343!\210\202\230\337\344!\203\213\345\346\347\350\351N#\210\352\350\313\"\210\202\230\337\353!\203\230`\354y\210`|\210\355!\210eb\210\202S\337\356!\203\257\357 \210\313\202\314!\360>\204\275\332\333!\202db\210e\313\361\321#\204\335\355!\210d\362Ze]\262db\210\202\302\363\364!\262r\nq\210\211E)\266\365?!\210\211\204rq\210db\210r\317!q\210\366 )c\210F\203\313F\367\370\371\"\210)\321\204 \372 \210)\266\205\202$\321000\202X00\352\350A\"\262\202X0\345\346\373\n$\262\202X\374\375!\210\352\376\313\"\210\313\262\202X\345\346\377 #\266\210\204\213\201G \210rq\210b\210\337\201H !!\203\200\354y\210\201I |\210)\202\213\345\346\201J \f#\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-address nntp-port-number nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq t nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 25 (#$ . 27870)])
#@83 Send the current buffer to server and wait until WAIT-FOR returns.
(fn WAIT-FOR)
(defalias 'nntp-send-buffer #[257 "\204 \204 \306\307\n!!\210\310 \210\212eb\210\311\312\313\314#)\203\" \315\316!\210\317 \210\320\n ;\2033 \321!\2024 \313\211\203X \211A\262\242\211\262\203X A@=\2036 \211@\262\313\262\2026 \205t \322!\323>\203h \202t \324\325!!\210\326 \"\313\266\205ed#\210\313\f
\n\313 ;\203\216 \321!\202\217 \313\211\203\263 \211A\262\242\211\262\203\263 A@=\203\221 \211@\262\313\262\202\221 \205\317 \322!\323>\203\303 \202\317 \324\325!!\210\326 \"\313\266\205\206\327 \327!\211\203]@\204\352 \204\352 \306\325!!\210\3301H\33119\3321-\203#\211\333 A\211BC\203\334!\210\335DP\"\210\322!\336>\206!\337\340!\266\341=\203-\314\202'\203C\203C\342%\210\314\202'\203&\211\313r\325!q\210eb\210`f\343>\203c\344\345!\203\245\322!\346>\203\245\344\347!\203x\350!\210\202\233\344\351!\203\216\352\353\354\355\356N#\210\357\355\313\"\210\202\233\344\360!\203\233`\361y\210`|\210\362!\210eb\210\202V\344\363!\203\262\364 \210\313\202\322!\365>\204\300\337\340!\202db\210e\313\366\314#\204\340\362!\210d\367Ze]\262db\210\202\305\370\371!\262r\nq\210\211E)\266\372?!\210\211\204rq\210db\210r\325!q\210\373 )c\210F\203\313F\374\375\376\"\210)\314\204 \377 \210)\266\205\202'\314000\202e00\357\355A\"\262\202e0\352\353\201G \n$\262\202e\201H \201I !\210\357\201J \313\"\210\313\262\202e\352\353\201K #\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-address nntp-port-number nntp-erase-buffer nntp-find-connection-buffer nntp-encode-text re-search-forward #1="[^ -\377]" nil t cl--assertion-failed (save-excursion (goto-char (point-min)) (not (re-search-forward #1# nil t))) mm-disable-multibyte process-send-region get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s"] 20 (#$ . 30630)])
(nnoo-define-basics-1 'nntp)
(defalias 'nntp-next-result-arrived-p #[0 "\300f\301=\203 \302\303\300\304#\205. \305\306!\203 \307y\210\202 \304\207\305\310!\203- \311\312\300\304#\205. \304\207\300\207" [nil 50 re-search-forward "\n\\.
?\n" t looking-at "^\\.
?\n" 1 "[34]" search-forward "\n"] 4])
(put 'nntp-next-result-arrived-p 'byte-optimizer 'byte-compile-inline-expand)
#@622 Protect against servers that don't like clients that keep idle connections opens.
The problem being that these servers may either close a connection or
simply ignore any further requests on a connection. Closed
connections are not detected until `accept-process-output' has updated
the `process-status'. Dropped connections are not detected until the
connection timeouts (which may be several minutes) or
`nntp-connection-timeout' has expired. When these occur
`nntp-with-open-group', opens a new connection then re-issues the NNTP
command whose response triggered the error.
(fn GROUP SERVER CONNECTIONLESS BODYFUN)
(defalias 'nntp-with-open-group-function #[1028 "\303\304\3052D \306#\210 \205 \307 \304\310#\311\312\313\314\315!\316\"\317$\216\32011 0\202= \210\n\2049 \321 \210\322\323\304\"\262)\304\2620\203L \202 )\207" [nntp--report-1 nntp-connection-timeout debug-on-quit t nil nntp-with-open-group-error nntp-possibly-change-group run-at-time #[0 " ;\203
\302!\202 \303\211\2032 \211A\262\242\211\262\2032 A@=\203 \211@\262\303\262\202 \205N \304!\305>\203B \202N \306\307!!\210\310 \"\303\266\205\211\205W \307!\211\205f \311!\312=\205f \306!\207" [nntp-server-buffer nntp-connection-alist get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq buffer-size 0] 8] make-byte-code 0 "\300\205 \301\300!\207" vconcat vector [cancel-timer] 2 (quit) nntp-close-server signal quit] 14 (#$ . 33783)])
#@636 Protect against servers that don't like clients that keep idle connections opens.
The problem being that these servers may either close a connection or
simply ignore any further requests on a connection. Closed
connections are not detected until `accept-process-output' has updated
the `process-status'. Dropped connections are not detected until the
connection timeouts (which may be several minutes) or
`nntp-connection-timeout' has expired. When these occur
`nntp-with-open-group', opens a new connection then re-issues the NNTP
command whose response triggered the error.
(fn GROUP SERVER &optional CONNECTIONLESS &rest FORMS)
(defalias 'nntp-with-open-group '(macro . #[898 "<\203 \300=\204 B\262\300\262\301\302\300BB\257\207" [nil nntp-with-open-group-function lambda] 11 (#$ . 35265)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nntp-with-open-group lisp-indent-function 2 put edebug-form-spec (form form [&optional symbolp] def-body)] 5)
#@83 Retrieve the headers of ARTICLES.
(fn ARTICLES &optional GROUP SERVER FETCH-OLD)
(defalias 'nntp-retrieve-headers #[1025 "\300\301\302\303\304\305\306\f\n\"\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "r\306\n!q\210\307 \210 \204 \f\204 \310\300\301\"\203 \311\202\310\300G\300\312\211e\306\n!\313\314 \211A\262\242\211\262\203\217\314\315\247\203C \316!\202D D@\204S A\204S \317\n!\210\320\321\322#\nB;\203f \323!\202g \314\211\203\213 \211A\262\242\211\262\203\213 A@=\203i \211@\262\314\262\202i \205\251 \324!\325>\203\233 \202\251 \326\327!!\210\330B\"B\314\266\205\211\205\262 \327!\211\205\274 r\211q\210`)\203\353CD\n @\314B;\203\331 \323!\202\332 \314\211\203\376 \211A\262\242\211\262\203\376 A@=\203\334 \211@\262\314\262\202\334 \205 \324!\325>\203\202 \326\327!!\210\330B\"B\314\266\205\206$\331!\211\203\252
\2047@\2047\317\327!!\210\3321\225\3331\206\3341z\203p\211\335 E\211FG\203[\336!\210\337HP\"\210\324!\340>\206n\341\342!\266\343=\203z\313\202t\203\220\203\220\344%\210\313\202t\203s\211\314r\327!q\210eb\210`f\345>\203\260\346\347!\203\362\324!\350>\203\362\346\351!\203\305\352!\210\202\350\346\353!\203\333\354\355\356\357\360N#\210\361\357\314\"\210\202\350\346\362!\203\350`\363y\210`|\210\364!\210eb\210\202\243\346\365!\203\377\366 \210\314\202f\324!\367>\204
\341\342!\202fdb\210e\314\370\313#\204-\364!\210d\371Ze]\262db\210\202\372\312!\262r\nq\210\211I)\266\373?!\210\211\204erq\210db\210r\327!q\210\374 )c\210J\203d\314J\375\376\377\"\210)\313\204m\307 \210)\266\205\202t\313000\202\26200\361\357A\"\262\202\2620\354\355\201P \n$\262\202\262\201Q \201R !\210\361\201S \314\"\210\314\262\202\262\354\355\201T #\266\210\204\363K\204\363LM>\204\363\201U \210rq\210b\210\346\201V !!\203\347\363y\210\201W |\210)\202\363\354\355\201X C#\266T\262\203N\246\312U\203) \201U \210q\210b\210\314f\201Y =\2035\201Z \201[ \314\313#\203S\346\201\\ !\203I\363y\210\202'\346\201] !\203S\201^ \201_ \314\313#\203S`\262T\262\202W\203) O\247\203\207OV\203\207\201` \246\312U\203\207\375\201a \201b \201c \201d _\f\"#\210\201U \210\202\fO\247\203\246OV\203\246\375\201a \201e \"\210\201f \210\201g \210ed{r\nq\210\307 \210\211c\210eb\210)\210)\201h \266\210)\207" vconcat vector [nntp-server-buffer gnus-nov-is-evil nntp-nov-is-evil nntp-inhibit-erase nntp-find-connection-buffer erase-buffer nntp-retrieve-headers-with-xover nov 0 t nil "HEAD" int-to-string nntp-erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string nntp-decode-text buffer-string nnheader-message 5 "" nnheader-callback-function nntp-inhibit-output nntp-connection-alist nntp-address nntp-port-number nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-maximum-request nntp-large-newsgroup "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s." 50 re-search-forward "\n\\.
?\n" "^\\.
?\n" "[34]" search-forward "\n" 20 6 "NNTP: Receiving headers... %d%%" floor 100.0 "NNTP: Receiving headers...done" nnheader-fold-continuation-lines nnheader-strip-cr headers] 33] 15 (#$ . 36260)])
(nnoo-register-function 'nntp-retrieve-headers)
#@50 Retrieve group info on INFOS.
(fn SERVER INFOS)
(defalias 'nntp-retrieve-group-data-early #[514 "\300\301\301\302\303\304\305\306 !\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\306 !\300\204 r\211q\210\307)\211\2052\300\2052r\211q\210\n)?\2052 \310=\203> \311\300@@\312\313\"\2039 \314\315\225\"\202: \211\262!\210r\211q\210\316 \210\317\211 \203P \320\202Q \321 \300\211\203+\211@\307@\312\313\"\203m \314\315\225\"\202n \211\262D
\204~ @\204~ \322 !\210\323\324\325# A;\203\221 \326!\202\222 \307\211\203\266 \211A\262\242\211\262\203\266 A@=\203\224 \211@\262\307\262\202\224 \205\324 \327!\330>\203\306 \202\324 \331\332!!\210\333A\"A\307\266\205\211\205\335 \332!\211\205\347 r\211q\210`)\203BC
\307A;\203\326!\202\307\211\203(\211A\262\242\211\262\203(A@=\203\211@\262\307\262\202\205F\327!\330>\2038\202F\331\332!!\210\333A\"A\307\266\205\206N\334!\211\203\331\f\204`
\204`\322\332!!\210\3351\304\3361\265\3371\251\203\231\211\340 D\211EF\203\204\341!\210\342GP\"\210\327!\343>\206\227\344\345!\266\346=\203\243\317\202\243\203\271\203\271\347%\210\317\202\243\203\242\211\307r\332!q\210eb\210`f\350>\203\331\351\352!\203\327!\353>\203\351\354!\203\356\355!\210\202\351\356!\203\357\360\361\362\363N#\210\364\362\307\"\210\202\351\365!\203`\366y\210`|\210\367!\210eb\210\202\314\351\370!\203(\371 \210\307\202\225\327!\372>\2046\344\345!\202\225db\210e\307\373\317#\204V\367!\210d\374Ze]\262db\210\202;\375\315!\262r q\210\211H)\266\376?!\210\211\204\224rq\210db\210r\332!q\210\377 )c\210I\203\223\307I\201M \201N \201O \"\210)\317\204\234\316 \210)\266\205\202\243\317000\202\34100\364\362A\"\262\202\3410\357\360\201P \n$\262\202\341\201Q \201R !\210\364\201S \307\"\210\307\262\202\341\357\360\201T #\266\210\204\"J\204\"KL>\204\"\201U \210rq\210b\210\351\201V !!\203\366y\210\201W |\210)\202\"\357\360\201X B#\266A\266\202\202T \210)\266\300G)\207" vconcat vector [nntp-server-buffer nntp-retrieval-in-progress nntp-server-list-active-group nntp-inhibit-erase nnheader-callback-function nntp-find-connection-buffer nil try nntp-try-list-active string-match "^[^:]+:" substring 0 erase-buffer t "LIST ACTIVE" "GROUP" nntp-erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string nntp-decode-text buffer-string nntp-inhibit-output nntp-connection-alist nntp-address nntp-port-number nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nnheader-message 5 "" "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 31] 12 (#$ . 40370)])
(nnoo-register-function 'nntp-retrieve-group-data-early)
#@27
(fn SERVER INFOS COUNT)
(defalias 'nntp-finish-retrieve-group-infos #[771 "\300\301\301\302\303\304\305\306\n\n\"\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\306\n!\307\300@@\300@\"\310\311rq\210\312)\205\310 \301\205\310 rq\210\211 \2050 \313\314\f!\211!\2050 \f)\203] \211b\210\315
\203@ \316\202A \317\312\320#\203N T\262\2027 `\262\301W\203] \321 \210\202 \322 \210
\204\204 ed{r\nq\210\323 \210\211c\210eb\210)\210r\nq\210\324\320#)\202\307 eb\210\315\325\312\320#\203\232 \310\224\311y\210`|\210\202\207 ed{r\nq\210\323 \210\211c\210eb\210)\210r\nq\210\326\327\300@8:\203\300 \327\300@8\202\301 \312\320$))\207" vconcat vector [nntp-server-buffer nntp-retrieval-in-progress buffer nntp-server-list-active-group nntp-find-connection-buffer gnus-find-method-for-group 0 1 nil buffer-live-p get-buffer re-search-forward "^[.]" "^[0-9]" t nntp-accept-response nnheader-strip-cr erase-buffer gnus-groups-to-gnus-format "^[.2-5]" gnus-active-to-gnus-format 4 gnus-active-hashtb] 10] 14 (#$ . 43934)])
(nnoo-register-function 'nntp-finish-retrieve-group-infos)
#@62 Retrieve group info on GROUPS.
(fn GROUPS &optional SERVER)
(defalias 'nntp-retrieve-groups #[513 "\300\301\301\302\303\304\305\306\n\n\"\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\306\n!\205\253r\306\n!q\210 \204 \307\202 \310\311\301\"\210\312)\205\253\3132\253\212\314\n!\210\306\n!q\210\f\315=\2037 \316\300@!\210\317 \210\320\300\320e\307\306\n!\f\203J \321\202K \322 \203\225\211 @\205f \323\324@!\211@!\205f @)\204u \325\326\327\301#\210\330\313\312\"\210\312\211A\262 \242DA\204\215 B\204\215 \314\n!\210\331\332\333#\nC;\203\240 \324!\202\241 \312\211\203\305 \211A\262\242\211\262\203\305 A@=\203\243 \211@\262\312\262\202\243 \205\343 \334!\335>\203\325 \202\343 \336\337!!\210\340C\"C\312\266\205\211\205\354 \337!\211\205\366 r\211q\210`)\203/DE\n A\312C;\203\324!\202\312\211\2038\211A\262\242\211\262\2038A@=\203\211@\262\312\262\202\205V\334!\335>\203H\202V\336\337!!\210\340C\"C\312\266\205\206^\341!\211\203\356
\204qA\204q\314\337!!\210\3421\333\3431\314\3441\300\203\252\211\345 F\211GH\203\225\346!\210\347IP\"\210\334!\350>\206\250\351\352!\266\353=\203\264\307\202\272\203\312\203\312\354%\210\307\202\272\203\271\211\312r\337!q\210eb\210`f\355>\203\352\356\357!\203,\334!\360>\203,\356\361!\203\377\362!\210\202\"\356\363!\203\325\326\364\365\366N#\210\367\365\312\"\210\202\"\356\370!\203\"`\371y\210`|\210\372!\210eb\210\202\335\356\373!\2039\374 \210\312\202\254\334!\375>\204G\351\352!\202\254db\210e\312\376\307#\204g\372!\210d\377Ze]\262db\210\202L\201P \320!\262r\nq\210\211J)\266\201Q ?!\210\211\204\253rq\210db\210r\337!q\210\201R )c\210K\203\252\312K\201S \201T \201U \"\210)\307\204\263\317 \210)\266\205\202\272\307000\202\36600\367\365A\"\262\202\3660\325\326\201V \n$\262\202\366\310\201W !\210\367\201X \312\"\210\312\262\202\366\325\326\201Y #\266\210\2047L\2047MN>\2047\201Z \210rq\210b\210\356\201[ !!\203+\371y\210\201\\ |\210)\2027\325\326\201] D#\266T\262\203LO\246\320U\203M \201Z \210\211 @\205f\323\324@!\211@!\205f@)\203M q\210b\210\201^ \201_ \312\307#\203\203T\262\202p`\262W\203M \201Z \210\202Q\211 @\205\252\323\324@!\211@!\205\252@)\204\271\325\326\327\301#\210\330\313\312\"\210q\210db\210\376\201_ \312\307#\210\356\201` !\203\211 @\205\344\323\324@!\211@!\205\344@)\203q\210db\210\f\204\376\201a `\201b Z\307#?\202
\376\201c `\201d Z\307#?\203\201Z \210\202\317\211 @\205-\323\324@!\211@!\205-@)\204<\325\326\327\301#\210\330\313\312\"\210q\210eb\210\201e \201f \312\307#\203[\201g \201U \307\211#\210\202B\f\204wed{r\nq\210\317 \210\211c\210eb\210)\210\201h \202\246eb\210\201^ \201i \312\307#\203\221\320\224\371y\210`|\210\202zed{r\nq\210\317 \210\211c\210eb\210)\210\201j )\266\207)0\207" vconcat vector [nntp-server-buffer nntp-retrieval-in-progress nntp-server-list-active-group nntp-inhibit-erase nntp-find-connection-buffer t message "Warning: Refusing to do retrieval from %s because a retrieval is already happening" nil done nntp-erase-buffer try nntp-try-list-active erase-buffer 0 "LIST ACTIVE" "GROUP" buffer-live-p get-buffer nnheader-report nntp "Connection to %s is closed." throw mapconcat identity " " process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 buffer nnheader-callback-function nntp-inhibit-output nntp-connection-alist nntp-address nntp-port-number nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-maximum-request match-string nntp-decode-text buffer-string nnheader-message 5 "" "Couldn't open connection to %s: %s" "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s." re-search-forward "^[0-9]" "^[23]" "
?\n" 3 "^\\.
?\n" 4 search-forward "
" replace-match group "^[.2-5]" active] 33] 13 (#$ . 45049)])
(nnoo-register-function 'nntp-retrieve-groups)
#@40
(fn ARTICLES &optional GROUP SERVER)
(defalias 'nntp-retrieve-articles #[769 "\300\301\302\303\304\305\306 !\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\212\300G\300\306\211eC\307 !\310\311\312\300\"\313C\314q\210\315 \210\211A\262\n\242\211\262\203\211\314\316\247\2035 \317!\2026 D \204C \f\204C \320 !\210\321\322\323#
;\203U \324!\202V \314\211\203z \211A\262\242\211\262\203z A@=\203X \211@\262\314\262\202X \205\226 \325!\326>\203\212 \202\226 \327\330!!\210\331
\"\314\266\205\211\205\237 \330!\211\205\251 r\211q\210`)\203\323@A \314
;\203\304 \324!\202\305 \314\211\203\351 \211A\262\242\211\262\203\351 A@=\203\307 \211@\262\314\262\202\307 \205\325!\326>\203\371 \202\327\330!!\210\331
\"\314\266\205\206
\332!\211\203\222\n\204 \204 \320\330!!\210\3331}\3341n\3351b\203X\211\336 B\211CD\203C\337!\210\340EP\"\210\325!\341>\206V\342\343!\266\344=\203b\310\202\\\203x\203x\345%\210\310\202\\\203[\211\314r\330!q\210eb\210`f\346>\203\230\347\350!\203\332\325!\351>\203\332\347\352!\203\255\353!\210\202\320\347\354!\203\303\355\356\357\360\361N#\210\362\360\314\"\210\202\320\347\363!\203\320`\313y\210`|\210\364!\210eb\210\202\213\347\365!\203\347\366 \210\314\202N\325!\367>\204\365\342\343!\202Ndb\210e\314\370\310#\204\364!\210d\371Ze]\262db\210\202\372\372\306!\262r q\210\211F)\266\373?!\210\211\204Mrq\210db\210r\330!q\210\374 )c\210G\203L\314G\375\376\377\"\210)\310\204U\315 \210)\266\205\202\\\310000\202\23200\362\360A\"\262\202\2320\355\356\201M \n$\262\202\232\201N \201O !\210\362\201P \314\"\210\314\262\202\232\355\356\201Q #\266\210\204\333H\204\333IJ>\204\333\201R \210rq\210b\210\347\201S !!\203\317\313y\210\201T |\210)\202\333\355\356\201U @#\266T\262\203\361K\246\306U\203 \201R \210q\210\242b\210\314f\201V =\203 \201W \201X \314\310#\203K\347\201Y !\2034\313y\210\202\347\201Z !\203K\201[ \201\\ \314\310#\203K H`BI\210`\240\210T\262\202\375W\203 L\247\203\201 LV\203\201\201] \246\306U\203\201\375\201^ \201_ \201` \n\201a _\"#\210\201R \210\202\366L\247\203\240 LV\203\240\375\201^ \201b \"\210 q\210\315 \210e\240\210\201c \201d \201e \201f \201g \312 #\201h \"\201i \201j %\")\266\212)\207" vconcat vector [nntp-server-buffer nntp-inhibit-erase nnheader-callback-function nntp-inhibit-output nntp-connection-alist 0 nntp-find-connection-buffer t apply vector 1 nil erase-buffer "ARTICLE" int-to-string nntp-erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string nntp-decode-text buffer-string nnheader-message 5 "" nntp-address nntp-port-number nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-maximum-request nntp-large-newsgroup "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s." 50 re-search-forward "\n\\.
?\n" "^\\.
?\n" "[34]" search-forward "\n" 20 6 "NNTP: Receiving articles... %d%%" floor 100.0 "NNTP: Receiving articles...done" mapcar make-byte-code 257 "\302db\240r\301q\210\300\242\206 eA\206 d{)c\210d}\210\300A\240\210\303 \210~\210\211@\302\242B\207" vconcat [nntp-decode-text] 4 "\n\n(fn ENTRY)"] 35] 13 (#$ . 49704)])
(nnoo-register-function 'nntp-retrieve-articles)
#@14
(fn GROUP)
(defalias 'nntp-try-list-active #[257 "\302!\210rq\210eb\210m\204 \303\304!\203 \305\211\202 \306\211)\207" [nntp-server-buffer nntp-server-list-active-group nntp-list-active-group looking-at "5[0-9]+" nil t] 3 (#$ . 53841)])
#@87 Return the active info on GROUP (which can be a regexp).
(fn GROUP &optional SERVER)
(defalias 'nntp-list-active-group #[513 "\300\301\301\302\303\304\305\306\n!\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\306\307\300D \204 \n\204 \310 !\210\311\312\313# \f;\203\" \314!\202# \315\211\203G \211A\262\242\211\262\203G A@=\203% \211@\262\315\262\202% \205c \316!\317>\203W \202c \320\321!!\210\322\f\"\315\266\205\211\205l \321!\211\205v r\211q\210`)\203\232
@ \315\f;\203\220 \314!\202\221 \315\211\203\265 \211A\262\242\211\262\203\265 A@=\203\223 \211@\262\315\262\202\223 \205\321 \316!\317>\203\305 \202\321 \320\321!!\210\322\f\"\315\266\205\206\331 \323!\211\203YA\204\354 \204\354 \310\321!!\210\3241H\3251;\3261/\203%\211\327 B\211CD\203\330!\210\331EP\"\210\316!\332>\206#\333\334!\266\335=\203/\336\202)\203E\203E\337%\210\336\202)\203(\211\315r\321!q\210eb\210`f\340>\203e\341\342!\203\247\316!\343>\203\247\341\344!\203z\345!\210\202\235\341\346!\203\220\347\350\351\352\353N#\210\354\352\315\"\210\202\235\341\355!\203\235`\356y\210`|\210\357!\210eb\210\202X\341\360!\203\264\361 \210\315\202\316!\362>\204\302\333\334!\202db\210e\315\363\336#\204\342\357!\210d\364Ze]\262db\210\202\307\365\366!\262r q\210\211F)\266\367?!\210\211\204rq\210db\210r\321!q\210\370 )c\210G\203\315G\371\372\373\"\210)\336\204\"\374 \210)\266\205\202)\336000\202a00\354\352A\"\262\202a0\347\350\375\n$\262\202a\376\377!\210\354\201K \315\"\210\315\262\202a\347\350\201L #\266\210\204\241H\204\241IJ>\204\241\201M \210rq\210b\210\341\201N !!\203\226\356y\210\201O |\210)\202\241\347\350\201P
#\207" vconcat vector [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-address "^\\.*
?\n" "LIST ACTIVE" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" nntp-port-number nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 25] 12 (#$ . 54093)])
(nnoo-register-function 'nntp-list-active-group)
#@77 Return the list of existing articles in GROUP.
(fn GROUP &optional SERVER)
(defalias 'nntp-request-group-articles #[513 "\300\301\301\302\303\304\305\306\n!\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\306\307\300D \204 \n\204 \310 !\210\311\312\313# \f;\203\" \314!\202# \315\211\203G \211A\262\242\211\262\203G A@=\203% \211@\262\315\262\202% \205c \316!\317>\203W \202c \320\321!!\210\322\f\"\315\266\205\211\205l \321!\211\205v r\211q\210`)\203\232
@ \315\f;\203\220 \314!\202\221 \315\211\203\265 \211A\262\242\211\262\203\265 A@=\203\223 \211@\262\315\262\202\223 \205\321 \316!\317>\203\305 \202\321 \320\321!!\210\322\f\"\315\266\205\206\331 \323!\211\203YA\204\354 \204\354 \310\321!!\210\3241H\3251;\3261/\203%\211\327 B\211CD\203\330!\210\331EP\"\210\316!\332>\206#\333\334!\266\335=\203/\336\202)\203E\203E\337%\210\336\202)\203(\211\315r\321!q\210eb\210`f\340>\203e\341\342!\203\247\316!\343>\203\247\341\344!\203z\345!\210\202\235\341\346!\203\220\347\350\351\352\353N#\210\354\352\315\"\210\202\235\341\355!\203\235`\356y\210`|\210\357!\210eb\210\202X\341\360!\203\264\361 \210\315\202\316!\362>\204\302\333\334!\202db\210e\315\363\336#\204\342\357!\210d\364Ze]\262db\210\202\307\365\366!\262r q\210\211F)\266\367?!\210\211\204rq\210db\210r\321!q\210\370 )c\210G\203\315G\371\372\373\"\210)\336\204\"\374 \210)\266\205\202)\336000\202a00\354\352A\"\262\202a0\347\350\375\n$\262\202a\376\377!\210\354\201K \315\"\210\315\262\202a\347\350\201L #\266\210\204\241H\204\241IJ>\204\241\201M \210rq\210b\210\341\201N !!\203\226\356y\210\201O |\210)\202\241\347\350\201P
#\207" vconcat vector [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-address "^\\.*
?\n" "LISTGROUP" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" nntp-port-number nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 25] 12 (#$ . 57200)])
(nnoo-register-function 'nntp-request-group-articles)
#@54
(fn ARTICLE &optional GROUP SERVER BUFFER COMMAND)
(defalias 'nntp-request-article #[1281 "\300\301\302\303\304\305\306
\f#\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\304\305\306\300\247\203 \307\300!\202 \300#\205+ \302\203( \302 \232\204( r q\210\310\302ed#\210)\311\301!\207" vconcat vector [nntp-server-buffer nntp-send-command-and-decode "
?\n\\.
?\n" "ARTICLE" int-to-string copy-to-buffer nntp-find-group-and-number] 5] 17 (#$ . 60305)])
(nnoo-register-function 'nntp-request-article)
#@39
(fn ARTICLE &optional GROUP SERVER)
(defalias 'nntp-request-head #[769 "\300\301\302\303\304\305\306 \"\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\306\307\300\247\203
\310\300!\202 \300D\n\204 \204 \311\f!\210\312\313\314#\f
;\203- \315!\202. \316\211\203R \211A\262\242\211\262\203R A@=\2030 \211@\262\316\262\2020 \205n \317!\320>\203b \202n \321\322!!\210\323
\"\316\266\205\211\205w \322!\211\205\201 r\211q\210`)\203\250@A\f \n\316
;\203\234 \315!\202\235 \316\211\203\301 \211A\262\242\211\262\203\301 A@=\203\237 \211@\262\316\262\202\237 \205\335 \317!\320>\203\321 \202\335 \321\322!!\210\323
\"\316\266\205\206\345 \324!\211\203gB\204\370 \n\204\370 \311\322!!\210\3251T\3261G\3271;\2031\211\330 C\211DE\203 \331!\210\332FP\"\210\317!\333>\206/\334\335!\266\336=\203;\337\2025\203Q\203Q\340%\210\337\2025\2034\211\316r\322!q\210eb\210`f\341>\203q\342\343!\203\263\317!\344>\203\263\342\345!\203\206\346!\210\202\251\342\347!\203\234\350\351\352\353\354N#\210\355\353\316\"\210\202\251\342\356!\203\251`\357y\210`|\210\360!\210eb\210\202d\342\361!\203\300\362 \210\316\202'\317!\363>\204\316\334\335!\202'db\210e\316\364\337#\204\356\360!\210d\365Ze]\262db\210\202\323\366\367!\262r\fq\210\211G)\266\370?!\210\211\204&rq\210db\210r\322!q\210\371 )c\210H\203%\316H\372\373\374\"\210)\337\204.\375 \210)\266\205\2025\337000\202o00\355\353A\"\262\202o0\350\351\376\n$\262\202o\377\201L !\210\355\201M \316\"\210\316\262\202o\350\351\201N #\266\210\204\260I\204\260JK>\204\260\201O \210rq\210b\210\342\201P !!\203\244\357y\210\201Q |\210)\202\260\350\351\201R @#\266\206\205\275\201S \301!\370 \210\207" vconcat vector [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist "
?\n\\.
?\n" "HEAD" int-to-string nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message nntp-address nntp-port-number nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s." nntp-find-group-and-number] 25] 14 (#$ . 60841)])
(nnoo-register-function 'nntp-request-head)
#@39
(fn ARTICLE &optional GROUP SERVER)
(defalias 'nntp-request-body #[769 "\300\301\302\303\304\305\306 !\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\301\302\303\300\247\203 \304\300!\202 \300#\207" vconcat vector [nntp-send-command-and-decode "
?\n\\.
?\n" "BODY" int-to-string] 5] 13 (#$ . 64001)])
(nnoo-register-function 'nntp-request-body)
#@47
(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nntp-request-group #[1025 "\300\301\301\302\303\304\305\306\f!\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "\306\307\300D \204 \n\204 \310 !\210\311\312\313# \f;\203\" \314!\202# \315\211\203G \211A\262\242\211\262\203G A@=\203% \211@\262\315\262\202% \205c \316!\317>\203W \202c \320\321!!\210\322\f\"\315\266\205\211\205l \321!\211\205v r\211q\210`)\203\232
@ \315\f;\203\220 \314!\202\221 \315\211\203\265 \211A\262\242\211\262\203\265 A@=\203\223 \211@\262\315\262\202\223 \205\321 \316!\317>\203\305 \202\321 \320\321!!\210\322\f\"\315\266\205\206\331 \323!\211\203YA\204\354 \204\354 \310\321!!\210\3241H\3251;\3261/\203%\211\327 B\211CD\203\330!\210\331EP\"\210\316!\332>\206#\333\334!\266\335=\203/\336\202)\203E\203E\337%\210\336\202)\203(\211\315r\321!q\210eb\210`f\340>\203e\341\342!\203\247\316!\343>\203\247\341\344!\203z\345!\210\202\235\341\346!\203\220\347\350\351\352\353N#\210\354\352\315\"\210\202\235\341\355!\203\235`\356y\210`|\210\357!\210eb\210\202X\341\360!\203\264\361 \210\315\202\316!\362>\204\302\333\334!\202db\210e\315\363\336#\204\342\357!\210d\364Ze]\262db\210\202\307\365\366!\262r q\210\211F)\266\367?!\210\211\204rq\210db\210r\321!q\210\370 )c\210G\203\315G\371\372\373\"\210)\336\204\"\374 \210)\266\205\202)\336000\202a00\354\352A\"\262\202a0\347\350\375\n$\262\202a\376\377!\210\354\201K \315\"\210\315\262\202a\347\350\201L #\266\210\204\241H\204\241IJ>\204\241\201M \210rq\210b\210\341\201N !!\203\226\356y\210\201O |\210)\202\241\347\350\201P
#\266\206\205 \211\f;\203\264\314!\202\265\315\211\203\331\211A\262\242\211\262\203\331A@=\203\267\211@\262\315\262\202\267\205\365\316!\317>\203\351\202\365\320\321!!\210\322\f\"\315\266\205\f\236\262\211AA\300\240\262\207" vconcat vector [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-address "^[245].*\n" "GROUP" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" nntp-port-number nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 25] 14 (#$ . 64383)])
(nnoo-register-function 'nntp-request-group)
#@31
(fn GROUP &optional SERVER)
(defalias 'nntp-close-group #[513 "\300\207" [t] 3 (#$ . 67686)])
(nnoo-register-function 'nntp-close-group)
#@76 Say whether a connection to SERVER has been opened.
(fn &optional SERVER)
(defalias 'nntp-server-opened #[256 "\306\307 !\n\203 \310\311\n#\202 \232*\205\202 \205\202 \211 \205. \312\313\f!\211!\205. \f)\205\202
;\203? \313!\202@ \314\211\203d \211A\262\242\211\262\203d A@=\203B \211@\262\314\262\202B \205\200 \315!\316>\203t \202\200 \317\320!!\210\321
\"\314\266\205\207" [server backend nnoo-parent-backend nntp-server-buffer buffer nntp-connection-alist nntp nnoo-current-server format "%s+%s" buffer-live-p get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq] 10 (#$ . 67831)])
(nnoo-register-function 'nntp-server-opened)
#@45
(fn SERVER &optional DEFS CONNECTIONLESS)
(defalias 'nntp-open-server #[769 "\302 \210\303!\203 \304\207@;\204 @\247\203 \305@DAB\262\306\236\204/ \307\306DC\"\262\310\311#\210\211\203; \304\207 ;\203H \312!\202I \313\211\203m \211A\262\242\211\262\203m A@=\203K \211@\262\313\262\202K \205\211 \314!\315>\203} \202\211 \316\317!!\210\320 \"\313\266\205\206\221 \321!\207" [nntp-server-buffer nntp-connection-alist nnheader-init-server-buffer nntp-server-opened t nntp-port-number nntp-address append nnoo-change-server nntp get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection] 11 (#$ . 68523)])
(nnoo-register-function 'nntp-open-server)
#@30
(fn &optional SERVER DEFS)
(defalias 'nntp-close-server #[512 "\306\307#\210\310\311\312#\210 ;\203 \313!\202 \311\211\203> \211A\262\242\211\262\203> A@=\203 \211@\262\311\262\202 \205Z \314!\315>\203N \202Z \316\317!!\210\320 \"\311\266\205\211\203\264 \314!\321>\203\243 \3221\236 \211\323\324 \211\f\203{ \325!\210\326
P\"\210\314!\327>\206\215 \330\331!\266 \332=?\205\232 \333\334!0\202\242 \210\202\243 \210\316\317!!\210 \211A\242@\262\202\\ \335\307!\207" [nntp-server-buffer nntp-connection-alist nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nnoo-change-server nntp nntp-possibly-change-group nil t get-buffer process-status (open run) nntp-kill-buffer process-buffer delq (open run) (error) "QUIT" current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" nntp-open-network-stream sleep-for 1 nnoo-close-server nntp-open-connection-function] 10 (#$ . 69251)])
(nnoo-register-function 'nntp-close-server)
(defalias 'nntp-request-close #[0 "\306\211A\242\211\262\205W \307!\310>\203N \3111I \211\312\313 \211 \203' \314!\210\315\fP\"\210\307!\316>\2069 \317\320!\266
\321=?\205E \322\323!0\202M \210\202N \210\324\325!!\210\202 \207" [nntp-connection-list nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-open-connection-function nil process-status (open run) (error) "QUIT" current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" nntp-open-network-stream sleep-for 1 nntp-kill-buffer process-buffer] 7])
(nnoo-register-function 'nntp-request-close)
#@25
(fn &optional SERVER)
(defalias 'nntp-request-list #[256 "\300\301\301\302$\207" [nntp-with-open-group-function nil #[0 "\300\301\302\"\207" [nntp-send-command-and-decode "
?\n\\.
?\n" "LIST"] 3]] 6 (#$ . 70929)])
(nnoo-register-function 'nntp-request-list)
#@25
(fn &optional SERVER)
(defalias 'nntp-request-list-newsgroups #[256 "\300\301\301\302$\207" [nntp-with-open-group-function nil #[0 "\306\307C\204 \204 \310\n!\210\311\312\313#\n ;\203! \314!\202\" \315\211\203F \211A\262\242\211\262\203F A@=\203$ \211@\262\315\262\202$ \205b \316!\317>\203V \202b \320\321!!\210\322 \"\315\266\205\211\205k \321!\211\205u r\211q\210`)\203\230\f
\n \315 ;\203\216 \314!\202\217 \315\211\203\263 \211A\262\242\211\262\203\263 A@=\203\221 \211@\262\315\262\202\221 \205\317 \316!\317>\203\303 \202\317 \320\321!!\210\322 \"\315\266\205\206\327 \323!\211\203W@\204\352 \204\352 \310\321!!\210\3241F\32519\3261-\203#\211\327 A\211BC\203\330!\210\331DP\"\210\316!\332>\206!\333\334!\266\335=\203-\336\202'\203C\203C\337%\210\336\202'\203&\211\315r\321!q\210eb\210`f\340>\203c\341\342!\203\245\316!\343>\203\245\341\344!\203x\345!\210\202\233\341\346!\203\216\347\350\351\352\353N#\210\354\352\315\"\210\202\233\341\355!\203\233`\356y\210`|\210\357!\210eb\210\202V\341\360!\203\262\361 \210\315\202\316!\362>\204\300\333\334!\202db\210e\315\363\336#\204\340\357!\210d\364Ze]\262db\210\202\305\365\366!\262r\nq\210\211E)\266\367?!\210\211\204rq\210db\210r\321!q\210\370 )c\210F\203\315F\371\372\373\"\210)\336\204 \374 \210)\266\205\202'\336000\202_00\354\352A\"\262\202_0\347\350\375\n$\262\202_\376\377!\210\354\201J \315\"\210\315\262\202_\347\350\201K #\266\210\204\237G\204\237HI>\204\237\201L \210rq\210b\210\341\201M !!\203\224\356y\210\201N |\210)\202\237\347\350\201O \f#\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-address nntp-port-number "
?\n\\.
?\n" "LIST NEWSGROUPS" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 25]] 6 (#$ . 71196)])
(nnoo-register-function 'nntp-request-list-newsgroups)
#@30
(fn DATE &optional SERVER)
(defalias 'nntp-request-newgroups #[513 "\300\301\301\302\303\304\305\306\n!\307\"\310$$\207" [nntp-with-open-group-function nil make-byte-code 0 "r q\210\306\307\310\311\312\300!\313#\314E\n\204 \204 \315 !\210\316\317\320# \f;\203- \321!\202. \322\211\203R \211A\262\242\211\262\203R A@=\2030 \211@\262\322\262\2020 \205n \323!\324>\203b \202n \325\326!!\210\327\f\"\322\266\205\211\205w \326!\211\205\201 r\211q\210`)\203\255
@ \n\322\f;\203\233 \321!\202\234 \322\211\203\300 \211A\262\242\211\262\203\300 A@=\203\236 \211@\262\322\262\202\236 \205\334 \323!\324>\203\320 \202\334 \325\326!!\210\327\f\"\322\266\205\206\344 \330!\211\203lA\204\367 \n\204\367 \315\326!!\210\3311W\3321H\3331<\2030\211\334 B\211CD\203\335!\210\336EP\"\210\323!\337>\206.\340\341!\266\342=\203:\313\2026\203P\203P\343%\210\313\2026\2035\211\322r\326!q\210eb\210`f\344>\203p\345\346!\203\262\323!\347>\203\262\345\350!\203\205\351!\210\202\250\345\352!\203\233\353\354\355\356\357N#\210\360\356\322\"\210\202\250\345\361!\203\250`\362y\210`|\210\363!\210eb\210\202c\345\364!\203\277\365 \210\322\202&\323!\366>\204\315\340\341!\202&db\210e\322\367\313#\204\355\363!\210d\370Ze]\262db\210\202\322\371\372!\262r q\210\211F)\266\373?!\210\211\204%rq\210db\210r\326!q\210\374 )c\210G\203$\322G\375\376\377\"\210)\313\204/\201K \210)\266\205\2026\313000\202t00\360\356A\"\262\202t0\353\354\201L \n$\262\202t\201M \201N !\210\360\201O \322\"\210\322\262\202t\353\354\201P #\266\210\204\264H\204\264IJ>\204\264\201Q \210rq\210b\210\345\201R !!\203\251\362y\210\201S |\210)\202\264\353\354\201T
#\266\206\373 \210)\207" vconcat vector [nntp-server-buffer nnheader-callback-function nntp-inhibit-output nntp-connection-alist nntp-address "^\\.
?\n" "NEWGROUPS" format-time-string "%y%m%d %H%M%S" date-to-time t "GMT" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" nntp-port-number nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 25] 12 (#$ . 74195)])
(nnoo-register-function 'nntp-request-newgroups)
#@25
(fn &optional SERVER)
(defalias 'nntp-request-post #[256 "\300\301\301\302$\207" [nntp-with-open-group-function nil #[0 "\306\307C\204 \204 \310\n!\210\311\312\313#\n ;\203! \314!\202\" \315\211\203F \211A\262\242\211\262\203F A@=\203$ \211@\262\315\262\202$ \205b \316!\317>\203V \202b \320\321!!\210\322 \"\315\266\205\211\205k \321!\211\205u r\211q\210`)\203\230\f
\n \315 ;\203\216 \314!\202\217 \315\211\203\263 \211A\262\242\211\262\203\263 A@=\203\221 \211@\262\315\262\202\221 \205\317 \316!\317>\203\303 \202\317 \320\321!!\210\322 \"\315\266\205\206\327 \323!\211\203W@\204\352 \204\352 \310\321!!\210\3241F\32519\3261-\203#\211\327 A\211BC\203\330!\210\331DP\"\210\316!\332>\206!\333\334!\266\335=\203-\336\202'\203C\203C\337%\210\336\202'\203&\211\315r\321!q\210eb\210`f\340>\203c\341\342!\203\245\316!\343>\203\245\341\344!\203x\345!\210\202\233\341\346!\203\216\347\350\351\352\353N#\210\354\352\315\"\210\202\233\341\355!\203\233`\356y\210`|\210\357!\210eb\210\202V\341\360!\203\262\361 \210\315\202\316!\362>\204\300\333\334!\202db\210e\315\363\336#\204\340\357!\210d\364Ze]\262db\210\202\305\365\366!\262r\nq\210\211E)\266\367?!\210\211\204rq\210db\210r\321!q\210\370 )c\210F\203\315F\371\372\373\"\210)\336\204 \374 \210)\266\205\202'\336000\202_00\354\352A\"\262\202_0\347\350\375\n$\262\202_\376\377!\210\354\201J \315\"\210\315\262\202_\347\350\201K #\266\210\204\237G\204\237HI>\204\237\201L \210rq\210b\210\341\201M !!\203\224\356y\210\201N |\210)\202\237\347\350\201O \f#\266\206\205r\nq\210E)\315\203\360\201P \201Q \"\203\360\365\356\"\262eb\201R \201S \315\336#\203\324`S\202\325d}\210\201T \201U !\204\356eb\210\201V \201W \261\210~\210\201X \201Y !\210\201Z \201[ !\266\202\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-address nntp-port-number "^[23].*
?\n" "POST" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s." string-match "^[23].*\\(<[^ \n @<>]+@[^ \n @<>]+>\\)" search-forward "\n\n" mail-fetch-field "Message-ID" "Message-ID: " "\n" run-hooks nntp-prepare-post-hook nntp-send-buffer "^[23].*\n"] 25]] 6 (#$ . 77357)])
(nnoo-register-function 'nntp-request-post)
#@22
(fn GROUP ARTICLE)
(defalias 'nntp-request-type #[514 "\300\207" [news] 3 (#$ . 80732)])
(nnoo-register-function 'nntp-request-type)
(defalias 'nntp-asynchronous-p #[0 "\300\207" [t] 1])
(nnoo-register-function '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 #[0 "\306\307C\204 \204 \310\n!\210\311\312\313#\n ;\203! \314!\202\" \315\211\203F \211A\262\242\211\262\203F A@=\203$ \211@\262\315\262\202$ \205b \316!\317>\203V \202b \320\321!!\210\322 \"\315\266\205\211\205k \321!\211\205u r\211q\210`)\203\226\f
\n \315 ;\203\216 \314!\202\217 \315\211\203\263 \211A\262\242\211\262\203\263 A@=\203\221 \211@\262\315\262\202\221 \205\317 \316!\317>\203\303 \202\317 \320\321!!\210\322 \"\315\266\205\206\327 \323!\211\203U@\204\352 \204\352 \310\321!!\210\3241F\32519\3261-\203#\211\327 A\211BC\203\330!\210\331DP\"\210\316!\332>\206!\333\334!\266\335=\203-\336\202'\203C\203C\337%\210\336\202'\203&\211\315r\321!q\210eb\210`f\340>\203c\341\342!\203\245\316!\343>\203\245\341\344!\203x\345!\210\202\233\341\346!\203\216\347\350\351\352\353N#\210\354\352\315\"\210\202\233\341\306!\203\233`\355y\210`|\210\356!\210eb\210\202V\341\357!\203\262\360 \210\315\202\316!\361>\204\300\333\334!\202db\210e\315\362\336#\204\340\356!\210d\363Ze]\262db\210\202\305\364\365!\262r\nq\210\211E)\266\366?!\210\211\204rq\210db\210r\321!q\210\367 )c\210F\203\315F\370\371\372\"\210)\336\204 \373 \210)\266\205\202'\336000\202]00\354\352A\"\262\202]0\347\350\374\n$\262\202]\375\376!\210\354\377\315\"\210\315\262\202]\347\350\201J #\266\210\204\235G\204\235HI>\204\235\201K \210rq\210b\210\341\201L !!\203\222\355y\210\201M |\210)\202\235\347\350\201N \f#\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-address nntp-port-number "^.*\n" "MODE READER" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 25 (#$ . 80974)])
#@309 Send the AUTHINFO to the nntp server.
It will look in the "~/.authinfo" file for matching entries. If
nothing suitable is found there, it will prompt for a user name
and a password.
If SEND-IF-FORCE, only send authinfo to the server if the
.authinfo file has the FORCE token.
(fn &optional SEND-IF-FORCE)
(defalias 'nntp-send-authinfo #[256 "\306\307!\210\310!\311 \312#\313\314\315\316 \317\320!D\321\322\312\323\324\n\"\325BBB&@\326\327\"\326\330\"\326\331\"\332!\203: \211 \202; \211\333\334\"\206H \206H \206U \333\335\"\206U \f\206^ \333\336\"\n\203g \205\211\204u \337\323\340 \"!\262\341\235?\205\211\342\343D
\204\216 @\204\216 \344A!\210\345\346\347#AB;\203\242 \350!\202\243 \351\211\203\307 \211A\262\242\211\262\203\307 A@=\203\245 \211@\262\351\262\202\245 \205\345 \352!\353>\203\327 \202\345 \354\355!!\210\356B\"B\351\266\205\211\205\356 \355!\211\205\370 r\211q\210`)\203` \nA
\351B;\203\350!\202\351\211\2038\211A\262\242\211\262\2038A@=\203\211@\262\351\262\202\205V\352!\353>\203H\202V\354\355!!\210\356B\"B\351\266\205\206^\357!\211\203 C\204q
\204q\344\355!!\210\3601\3611\365\3621\345\203\252\211\363 D\211EF\203\225\364!\210\365GP\"\210\352!\366>\206\250\367\370!\266\371=\203\264\372\202\337\203\312\203\312\373%\210\372\202\337\203\336\211\351r\355!q\210eb\210`f\374>\203\352\375\376!\203@\352!\377>\203@\375\201N !\203\201O !\210\2024\375\201P !\203%\201Q \320\324\201R \201S N#\210\201T \201R \351\"\210\2024\375\201U !\2034`\315y\210`|\210\201V !\210eb\210\202\335\375\201W !\203Q\201X \210\351\202\317\352!\201Y >\204a\367\370!\202\317db\210e\351\201Z \372#\204\207\201V !\210d\201[ Ze]\262db\210\202f\201\\ \201] !\262rAq\210\211H)\266\201^ ?!\210\211\204\316rq\210db\210r\355!q\210\201_ )c\210I\203\315\351I\201` \201a \201b \"\210)\372\204\330\201c \210)\266\205\202\337\372000\202'00\201T \201R A\"\262\202'0\201Q \320\201d \n$\262\202'\201e \201f !\210\201T \201g \351\"\210\351\262\202'\201Q \320\201h #\266\210\204iJ\204iKL>\204i\201i \210rq\210b\210\375\201j !!\203\\\315y\210\201k |\210)\202i\201Q \320\201l #\266\201m \201n \206\211M\206\211\201o \323\201p #!\211MD
\204\230@\204\230\344A!\210\345\346\347#AB;\203\254\350!\202\255\351\211\203\321\211A\262\242\211\262\203\321A@=\203\257\211@\262\351\262\202\257\205\357\352!\353>\203\341\202\357\354\355!!\210\356B\"B\351\266\205\211\205\370\355!\211\205r\211q\210`)\203j \nA
\351B;\203 \350!\202 \351\211\203B\211A\262\242\211\262\203BA@=\203 \211@\262\351\262\202 \205`\352!\353>\203R\202`\354\355!!\210\356B\"B\351\266\205\206h\357!\211\203'C\204{
\204{\344\355!!\210\3601\3611\377\3621\357\203\264\211\363 D\211EF\203\237\364!\210\365GP\"\210\352!\366>\206\262\367\370!\266\371=\203\276\372\202\351\203\324\203\324\373%\210\372\202\351\203\350\211\351r\355!q\210eb\210`f\374>\203\364\375\376!\203J\352!\377>\203J\375\201N !\203
\201O !\210\202>\375\201P !\203/\201Q \320\324\201R \201S N#\210\201T \201R \351\"\210\202>\375\201U !\203>`\315y\210`|\210\201V !\210eb\210\202\347\375\201W !\203[\201X \210\351\202\331\352!\201Y >\204k\367\370!\202\331db\210e\351\201Z \372#\204\221\201V !\210d\201[ Ze]\262db\210\202p\201\\ \201] !\262rAq\210\211H)\266\201^ ?!\210\211\204\330rq\210db\210r\355!q\210\201_ )c\210I\203\327\351I\201` \201a \201b \"\210)\372\204\342\201c \210)\266\205\202\351\372000\202100\201T \201R A\"\262\20210\201Q \320\201d \n$\262\2021\201e \201f !\210\201T \201g \351\"\210\351\262\2021\201Q \320\201h #\266\210\204sJ\204sKL>\204s\201i \210rq\210b\210\375\201j !!\203f\315y\210\201k |\210)\202s\201Q \320\201l #\266\206\211\204\206\201T \201R \201q \"\202\207\211\262\207" [nntp-authinfo-file nntp-address nntp-port-number nntp-authinfo-force nntp-authinfo-user nnheader-callback-function require netrc netrc-parse netrc-machine "nntp" auth-source-search :max 1 :host nnoo-current-server nntp :port "119" format "%s" ("563" "nntps" "snews") plist-get :user :force :secret functionp netrc-get "force" "login" "password" read-string "NNTP (%s) user name: " (nil #1="") "^3.*
?\n" "AUTHINFO USER" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) nntp-inhibit-output nntp-server-buffer nntp-connection-alist nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-authinfo-password "480" nntp-handle-authinfo "482" nnheader-report nntp-authinfo-rejected error-message signal "^.*\n" nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 #1# erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s." "^2.*
?\n" "AUTHINFO PASS" read-passwd "NNTP (%s@%s) password: " "Password rejected"] 36 (#$ . 84000)])
#@66 Take care of an authinfo response from the server.
(fn PROCESS)
(defalias 'nntp-handle-authinfo #[257 " \210\306\n!\210\307 \211\f\203 \310!\210\311
P\"\210\312!\313>\206) \314\315!\266\202\207" [nntp-last-command nntp-authinfo-function nntp-server-buffer nntp-last-command-time nntp-record-commands nntp-end-of-line nntp-erase-buffer current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection"] 8 (#$ . 89696)])
#@78 Create a new, fresh buffer usable for nntp process connections.
(fn BUFFER)
(defalias 'nntp-make-process-buffer #[257 "r\306\307\310 $!q\210\311 \210\312\302!\210\313\312\303!\210\313\312\304!\210\313\312\305!\210\313\312\314!\210\313\f\312\315!\210\313
\312\316!\210\313p)\207" [nntp-address nntp-port-number after-change-functions nntp-process-wait-for nntp-process-callback nntp-process-to-buffer generate-new-buffer format " *server %s %s %s*" mm-disable-multibyte make-local-variable nil nntp-process-start-point nntp-process-decode nntp-retrieval-in-progress] 7 (#$ . 90185)])
#@80 Open a connection to PORT on ADDRESS delivering output to BUFFER.
(fn BUFFER)
(defalias 'nntp-open-connection #[257 "\306\307!\210\310!\205 \311\312\313\312\314DE#\3151] \3161R \317\211\320\321 \"\203G \322\323\f
\324\321 \"A@\325\326\327\330\331\332\333\334&\202J !*\266\20300\202n 0\335\336\337#\262\202n \340\341\f\"\210\314!\210\342\343\312\"\210\312\262\203v \344!\210\211\203\226 \345!\346>\204\226 rq\210eb\210\335\336\347`\350 {#\210)\312\262\211\204\236 \314!\210\351!\205\376\211\205\376\352!\353=\203\266 \354\355\356#\210\357\312\"\210\211\360\312\356r\361!q\210eb\210`f\362>\203\326 \363\364!\203\345!\365>\203\363\366!\203\353 \367!\210\202\363\370!\203\335\336\371\372\373N#\210\342\372\312\"\210\202\363\374!\203`\375y\210`|\210\376!\210eb\210\202\311 \363\377!\203'\201F \210\312\202\247\345!\201G >\204;\201H \201I !\202\247db\210e\312\201J \356#\204_\376!\210d\201K Ze]\262db\210\202@\201L \201M !\262r@q\210\211A)\266\201N ?!\210\211\204\246rq\210db\210r\361!q\210\201O )c\210B\203\245\312B\201P \201Q \201R \"\210)\356\204\260\201S \210)\266\205\203\367\345!\201T >\203\367\211\312ECB\211C@@DBDrq\210\201U \210\201S \210@q\210\312 E\306\201V !\210\201W \356!\210*\202\376\314\361!!\210\312\207" [nntp-connection-timeout coding-system-for-write coding-system-for-read nntp-open-connection-function nntp-address nntp-port-number run-hooks nntp-prepare-server-hook nntp-make-process-buffer run-at-time nil lambda nntp-kill-buffer (quit) (error) binary ((nntp-open-network-stream network) (network-only plain) (nntp-open-plain-stream plain) (nntp-open-ssl-stream tls) (nntp-open-tls-stream tls)) assoc open-network-stream "nntpd" :type :end-of-command "^\\([2345]\\|[.]\\).*\n" :capability-command "HELP
\n" :success "^3" :starttls-function #[257 "\300\301\"\205 \302\207" [string-match "STARTTLS" "STARTTLS
\n"] 4 "\n\n(fn CAPABILITIES)"] nnheader-report nntp ">>> %s" message "Quit opening connection to %s" signal quit cancel-timer process-status (open run) "Error when connecting: %s" line-end-position buffer-live-p process-type network set-network-process-option :keepalive t set-process-query-on-exit-flag "^2.*\n" process-buffer (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" "%s" nntp-authinfo-rejected error-message "^.*\n" 1 nntp-accept-process-output "[45]" nntp-server-buffer nntp-process-response nntp-have-messaged nntp-connection-alist nntp-connection-list nnheader-callback-function nntp-snarf-error-message (open run) nntp-report "Server closed connection" re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer (open run) nntp-read-server-type nntp-server-opened-hook nntp-send-authinfo] 21 (#$ . 90785)])
#@63 Find out what the name of the server we have connected to is.
(defalias 'nntp-read-server-type #[0 "\303 \304\n\211\2051 \211@\305@\"\203* \306A@!\204% \307A@!\210\202* \211A@ \210A\266\202\202 \262)\207" [nntp-server-type case-fold-search nntp-server-action-alist buffer-string t string-match functionp eval] 5 (#$ . 93612)])
#@48
(fn PROCESS WAIT-FOR BUFFER DECODE CALLBACK)
(defalias 'nntp-async-wait #[1285 "r\306!q\210\204
\307 \210\211d\310C\211 )\207" [nntp-inside-change-function nntp-process-wait-for nntp-process-to-buffer nntp-process-decode nntp-process-callback nntp-process-start-point process-buffer erase-buffer nntp-after-change-function after-change-functions] 7 (#$ . 93954)])
#@13
(fn PROC)
(defalias 'nntp-async-stop #[257 "\302\" \205 ?\205 \303 !\210\304\211\207" [nntp-async-process-list nntp-async-timer delq cancel-timer nil] 4 (#$ . 94338)])
#@20
(fn BEG END LEN)
(defalias 'nntp-after-change-function #[771 "\300\216\211\301=\205+ d=\205+ \302 \303\301\304\305\306!\307\"\310$\216\311p!\211\205& \312!\262)\262)\207" [#[0 "\205 \302\211\207" [quit-flag after-change-functions (nntp-after-change-function)] 2] 0 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 get-buffer-process nntp-async-trigger] 10 (#$ . 94521)])
#@16
(fn PROCESS)
(defalias 'nntp-async-trigger #[257 "r\306!q\210\205\226 b\210g\307>\203. \310\311\312!)\262\203% \313!\202\226 \314 \210\315\316!\202\226 db\210\317 \311#\205\226 \320\321!r\fq\210\211)\210\322!\210\211 \205^ \323\324!\211!\205^ )\203\213 p rq\210db\210\214``}\210rq\210\206| ed{)c\210\211\203\210 \325 \210*\266db\210\315\326\324!!!)\207" [nntp-process-callback nntp-process-start-point inhibit-changing-match-data nntp-process-wait-for nntp-server-buffer nntp-process-response process-buffer (52 53) "480" t looking-at nntp-handle-authinfo nntp-snarf-error-message nntp-do-callback nil re-search-backward match-string 0 nntp-async-stop buffer-live-p get-buffer nntp-decode-text buffer-name nntp-process-to-buffer buffer nntp-process-decode] 7 (#$ . 94950)])
#@12
(fn ARG)
(defalias 'nntp-do-callback #[257 "\302\303\211!)\207" [nntp-process-callback nntp-inside-change-function t nil] 4 (#$ . 95760)])
#@47 Save the error message in the current buffer.
(defalias 'nntp-snarf-error-message #[0 "\300 \301\302\"\203 \303\304\305\211$\262\202 \306\307\310#\210\211\207" [buffer-string string-match "[
\n]+" replace-match " " t nnheader-report nntp "%s"] 6 (#$ . 95911)])
#@67 Wait for output from PROCESS and message some dots.
(fn PROCESS)
(defalias 'nntp-accept-process-output #[257 "r\303!\206 q\210\304 \305\245\306\211\307W\204 \310\311\312\313#\210)\210\314!\203/ \315!\316>\2043 \317\320!\210)\207" [nntp-server-buffer message-log-max nntp-have-messaged nntp-find-connection-buffer buffer-size 1024 nil 10 t nnheader-message 7 "nntp read: %dk" nnheader-accept-process-output process-status (open run) nntp-report "Server closed connection"] 6 (#$ . 96184)])
#@58 Wait for output from the process that outputs to BUFFER.
(defalias 'nntp-accept-response #[0 "\302 ;\203 \303!\202 \304\211\2033 \211A\262\242\211\262\2033 A@=\203 \211@\262\304\262\202 \205O \305!\306>\203C \202O \307\310!!\210\311 \"\304\266\205!\207" [nntp-server-buffer nntp-connection-alist nntp-accept-process-output get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq] 9 (#$ . 96690)])
#@46
(fn GROUP SERVER &optional CONNECTIONLESS)
(defalias 'nntp-possibly-change-group #[770 "\306\203 \307!\204 \310\306#\210\211\204m \n;\203# \311!\202$ \306\211\203H \211A\262\242\211\262\203H A@=\203& \211@\262\306\262\202& \205d \312!\313>\203X \202d \314\315!!\210\316\n\"\306\266\205\204m \317 !\210)\205\232 \211\n;\203\200 \311!\202\201 \306\211\203\245 \211A\262\242\211\262\203\245 A@=\203\203 \211@\262\306\262\202\203 \205\301 \312!\313>\203\265 \202\301 \314\315!!\210\316\n\"\306\266\205\n\236\262\211\204\321 \320\321!\202\230AA@\232?\205\230r\315@!q\210\322 \210\323\324D\204\365 \204\365 \325 !\210\326\327\330# \n;\203\311!\202\306\211\203,\211A\262\242\211\262\203,A@=\203\n\211@\262\306\262\202\n\205H\312!\313>\203<\202H\314\315!!\210\316\n\"\306\266\205\211\205Q\315!\211\205[r\211q\210`)\203\202\f
\306\n;\203t\311!\202u\306\211\203\231\211A\262\242\211\262\203\231A@=\203w\211@\262\306\262\202w\205\265\312!\313>\203\251\202\265\314\315!!\210\316\n\"\306\266\205\206\275\317!\211\203A@\204\320\204\320\325\315!!\210\3311,\3321 \3331\203 \211\334 A\211BC\203\364\335!\210\336DP\"\210\312!\337>\206\320\321!\266\340=\203\341\202
\203)\203)\342%\210\341\202
\203\f\211\306r\315!q\210eb\210`f\343>\203I\344\345!\203\213\312!\346>\203\213\344\347!\203^\350!\210\202\201\344\351!\203t\352\353\354\355\356N#\210\357\355\306\"\210\202\201\344\360!\203\201`\361y\210`|\210\362!\210eb\210\202<\344\363!\203\230\364 \210\306\202\377\312!\365>\204\246\320\321!\202\377db\210e\306\366\341#\204\306\362!\210d\367Ze]\262db\210\202\253\370\371!\262r q\210\211E)\266\372?!\210\211\204\376rq\210db\210r\315!q\210\373 )c\210F\203\375\306F\374\375\376\"\210)\341\204\322 \210)\266\205\202
\341000\202I00\357\355A\"\262\202I0\352\353\377\n$\262\202I\201J \201K !\210\357\201L \306\"\210\306\262\202I\352\353\201M #\266\210\204\211G\204\211HI>\204\211\201N \210rq\210b\210\344\201O !!\203~\361y\210\201P |\210)\202\211\352\353\201Q \f#\266\211AA\240\210\322 \210\325 !)\262\207" [nnheader-callback-function nntp-server-buffer nntp-connection-alist nntp-inhibit-output nntp-address nntp-port-number nil nntp-server-opened nntp-open-server get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nntp-report "Server closed connection" erase-buffer "^[245].*\n" "GROUP" nntp-erase-buffer mapconcat identity " " (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" "Couldn't open connection to %s: %s" nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s."] 29 (#$ . 97137)])
#@64 Decode the text in the current buffer.
(fn &optional CR-ONLY)
(defalias 'nntp-decode-text #[256 "eb\210\300\301\302\303#\203 \304\305!\210\202 \211?\205I db\210\305y\210\306\307!\203' \304\310!\210eb\210\306\311!\203: `\312y\210`|\210\202* \300\313\302\303#\205I \304\305!\210\202: \207" [search-forward "
" nil t delete-char -1 looking-at ".\n" 2 "[1-5][0-9][0-9] .*\n" 1 "\n.."] 5 (#$ . 100644)])
#@40 Encode the text in the current buffer.
(defalias 'nntp-encode-text #[0 "\212eb\210\301\302\303\304#\203 \305c\210\202 db\210n\204 \306c\210db\210\307c\210eb\210m?\2057 \303\210\310\311!\210c\210\202% )\207" [nntp-end-of-line re-search-forward "^\\." nil t "." "\n" ".\n" delete-char 1] 4 (#$ . 101052)])
#@37
(fn ARTICLES &optional FETCH-OLD)
(defalias 'nntp-retrieve-headers-with-xover #[513 "q\210\304 \210 \203\224\n\203 \211\203i \305\203) \247\203% \306@Z]\202+ \306\202+ @\307!@\310#\210eb\210\311\312!\203B `\306y\210`|\210\313\314\315\316#\203S \317\320\316\211#\210\202B db\210\321y\210\311\322!\203\224`\306y\210`|\210\202\224\n\247\203\224\323\211\315\211\324!\315\211 \203Y \203Y @\262 A\203\241 A@\n@Z\nW\203\241 A\262\n\202\206 ;\262\305 @\"\210 A\262\n \203$\203$T\262 \203\314 \246\306U\203$\325 \210q\210\206\327 eb\210\326\327\315\316#\203\376 T\262\330\306!\262\331\332\"\203\370 \333\262\202\331 \334\262\202\331 `\262W\204\211\333=\204$db\210\321y\210\311\335!\204$\325 \210q\210\202\322 \306X\203Seb\210\326\336\315\316#\203S\337\306\224\306\225{!\n\203R\n@X\203R\nA\262 \202=\210q\210\202x \203\222\203yq\210db\210rq\210\340 )c\210q\210\304 \210q\210eb\210\313\314\315\316#\203\213\341\321!\210\202|eb\210\342\343!\210\266 \207" [nntp-server-buffer nntp-server-xover nntp-nov-gap nntp-maximum-request erase-buffer nntp-send-xover-command 1 last wait looking-at "[1-5][0-9][0-9] .*\n" search-forward "
" nil t replace-match "" -1 "\\." 0 nntp-find-connection-buffer nntp-accept-response re-search-forward "^\\([0-9][0-9][0-9]\\) .*\n" match-string string-match "^[45]" error ok "^\\.
?\n" "^[0-9][0-9][0-9] .*\n\\([0-9]+\\)" string-to-number buffer-string delete-char delete-matching-lines "^\\.$\\|^[1-5][0-9][0-9] "] 14 (#$ . 101367)])
#@78 Send the XOVER command to the server.
(fn BEG END &optional WAIT-FOR-REPLY)
(defalias 'nntp-send-xover-command #[770 "\304\305#\306 ;\203 \203 \307\310 #\202b \307\311 #\202b \n\211\203S \312=\203S \307\310@#\210r q\210eb\210\313\314!\203K \315y\210\313\316!\203K \211@)\211A\262\202! \312=\203_ \317 !\210\311 \262)\207" [nntp-inhibit-erase nntp-server-xover nntp-xover-commands nntp-server-buffer format "%d-%d" t nntp-send-command-nodelete "
?\n\\.
?\n" nil try looking-at "[23]" 1 "[0-9]+ ...\\|\\.
?\n" nntp-erase-buffer] 9 (#$ . 102909)])
#@24
(fn &optional GROUP)
(defalias 'nntp-find-group-and-number #[256 "rq\210\214eb\302\303\304\305#\206 d}\210eb\210\306\307!\205\" \310\311\224\311\225{!\304\211\2031 \312U\2031 \304\262\203m \313\314!\211\262\203I \315\316\"\204I \202h \313\317!\211\262\203g \203g \315\320\321\"\"\203g \322\311\"\202h \323\262\202\275 \204\240 \313\317!\211\262\203\240 \315\203\211 \324\325!\326Q\202\212 \327\"\203\240 \322\311\"\262\310\322\330\"!\262\202\275 \313\314!\211\262\203\266 \315\316\"\204\266 \262\202\275 \204\275 \323\262\315\331\"\203\314 \332\312\211\224#\262B\266\203*\207" [nntp-server-buffer nntp-xref-number-is-evil search-forward "\n\n" nil t looking-at "2[0-9][0-9] +\\([0-9]+\\) " string-to-number 1 0 mail-fetch-field "newsgroups" string-match "," "xref" format "\\([^ :]+\\):%d" match-string "" "\\(" regexp-quote "\\):\\([0-9]+\\)" "\\([^ :]+\\):\\([0-9]+\\)" 2 "
" substring] 8 (#$ . 103477)])
#@55 Wait until string arrives in the buffer.
(fn REGEXP)
(defalias 'nntp-wait-for-string #[257 "p\300eb\210\301!\211\262\205- \302!\303>\205- \304\300\305#?\205- \306\307\"\210q\210eb\210\202 \207" [nil get-buffer-process process-status (open run) re-search-forward t accept-process-output 0.1] 7 (#$ . 104428)])
#@188 If non-nil, telnet session (client and server both) will support the ENVIRON option and not prompt for login name.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-open-telnet-envuser nil (#$ . 104752))
(nnoo-define 'nntp-open-telnet-envuser nil)
#@141 Regular expression to match the shell prompt on the remote machine.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-telnet-shell-prompt "bash\\|[$>] *
?$" (#$ . 105042))
(nnoo-define 'nntp-telnet-shell-prompt nil)
#@174 Program used to log in on remote machines.
The default is "rsh", but "ssh" is a popular alternative.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-rlogin-program "rsh" (#$ . 105300))
(nnoo-define 'nntp-rlogin-program nil)
#@243 Parameters to `nntp-open-rlogin'.
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.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-rlogin-parameters '("telnet" "-8" "${NNTPSERVER:=news}" "nntp") (#$ . 105568))
(nnoo-define 'nntp-rlogin-parameters nil)
#@138 User name on remote system when using the rlogin connect method.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-rlogin-user-name nil (#$ . 105951))
(nnoo-define 'nntp-rlogin-user-name nil)
#@253 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.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-telnet-parameters '("exec" "telnet" "-8" "${NNTPSERVER:=news}" "nntp") (#$ . 106185))
(nnoo-define 'nntp-telnet-parameters nil)
#@110 User name to log in via telnet with.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-telnet-user-name nil (#$ . 106585))
(nnoo-define 'nntp-telnet-user-name nil)
#@116 Password to use to log in via telnet with.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nntp-telnet-passwd nil (#$ . 106791))
(nnoo-define 'nntp-telnet-passwd nil)
#@12
(fn SVC)
(defalias 'nntp-service-to-port #[257 "\211\250\203 \300!\207\301\302\"\203 \207\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\3141/ \315\316!0\2023 \210\2024 \210eb\210\317\320\321!\322Q!\203H \323\324!\202I *\207" [number-to-string string-match "\\`[0-9]+\\'" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (error) insert-file-contents "/etc/services" re-search-forward "^" regexp-quote "[ ]+\\([0-9]+\\)/tcp" match-string 1] 8 (#$ . 106996)])
#@15
(fn BUFFER)
(defalias 'nntp-open-telnet #[257 "r\211q\210\306 \210\307\310\311 %\312\313!\314>\203\246 \315\316!\210\317\320\"\210 \2035 \f\2035 \317\321\f
\322R\"\210\202= \317\323
\322Q\"\210 \204T \315\324!\210\317\f\206P \325\326!\211\322P\"\210\315\327!\210\317$\206e \330\331!\211$\322P\"\210\315%!\210\317\332\333&\334#\322P\"\210\315\335!\210\336 \210e`|\210\317\337\"\210\315\316!\210\317\340\"\210\341\342\"\210\343\342!\210eb\210\342y\210`d|\210)\211\262)\207" [nntp-telnet-command nntp-telnet-switches case-fold-search nntp-open-telnet-envuser nntp-telnet-user-name nntp-address erase-buffer apply start-process "nntpd" t process-status (open run) nntp-wait-for-string "^r?telnet" process-send-string "set escape \n" "open -l" "\n" "open " "^
*.?login:" read-string "login: " "^
*.?password:" read-passwd "Password: " mapconcat identity " " "^
*20[01]" beginning-of-line " " "mode character\n" accept-process-output 1 sit-for nntp-telnet-passwd nntp-telnet-shell-prompt nntp-telnet-parameters] 8 (#$ . 107550)])
#@53 Open a connection to SERVER using rsh.
(fn BUFFER)
(defalias 'nntp-open-rlogin #[257 "\203 \304\305\306 \n\307 &\202 \304\305\306 \n &rq\210\310\311!\210\312 \210e`|\210)\211\207" [nntp-rlogin-user-name nntp-rlogin-program nntp-address nntp-rlogin-parameters apply start-process "nntpd" "-l" nntp-wait-for-string "^
*20[01]" beginning-of-line] 10 (#$ . 108602)])
#@369 Open a nntp connection by telnet'ing the news server.
`nntp-open-netcat-stream' is recommended in place of this function
because it is more reliable.
Please refer to the following variables to customize the connection:
- `nntp-pre-command',
- `nntp-telnet-command',
- `nntp-telnet-switches',
- `nntp-address',
- `nntp-port-number',
- `nntp-end-of-line'.
(fn BUFFER)
(defalias 'nntp-open-telnet-stream #[257 "\305 \n\306 !D\"B\307\f\203 \fB\262\310\311\312$\262rq\210\313\314!\210\315 \210e`|\210)\207" [nntp-telnet-command nntp-telnet-switches nntp-address nntp-port-number nntp-pre-command append nntp-service-to-port nil apply start-process "nntpd" nntp-wait-for-string "^
*20[01]" beginning-of-line] 8 (#$ . 108982)])
#@584 Open a connection to an nntp server through an intermediate host.
First rlogin to the remote host, and then telnet the real news server
from there.
`nntp-open-via-rlogin-and-netcat' is recommended in place of this function
because it is more reliable.
Please refer to the following variables to customize the connection:
- `nntp-pre-command',
- `nntp-via-rlogin-command',
- `nntp-via-rlogin-command-switches',
- `nntp-via-user-name',
- `nntp-via-address',
- `nntp-telnet-command',
- `nntp-telnet-switches',
- `nntp-address',
- `nntp-port-number',
- `nntp-end-of-line'.
(fn BUFFER)
(defalias 'nntp-open-via-rlogin-and-telnet #[257 " \nBB\306 \203 \307 BB\262\f\203 \310\f\"\262
B\262\203+ B\262\311\312\313$\262rq\210\314\315!\210\316\317\320\321 !\322\260\"\210\314\323!\210\324 \210e`|\210\316\325\"\210\314\315!\210\316\326\"\210\327\330\"\210\331\330!\210eb\210\330y\210`d|\210)\207" [nntp-via-address nntp-telnet-command nntp-telnet-switches nntp-via-user-name nntp-via-rlogin-command-switches nntp-via-rlogin-command nil "-l" append apply start-process "nntpd" nntp-wait-for-string "^r?telnet" process-send-string "open " " " nntp-service-to-port "\n" "^
*20[01]" beginning-of-line " " "mode character\n" accept-process-output 1 sit-for nntp-pre-command nntp-address nntp-port-number] 10 (#$ . 109720)])
#@487 Open a connection to an nntp server through an intermediate host.
First rlogin to the remote host, and then connect to the real news
server from there using the netcat command.
Please refer to the following variables to customize the connection:
- `nntp-pre-command',
- `nntp-via-rlogin-command',
- `nntp-via-rlogin-command-switches',
- `nntp-via-user-name',
- `nntp-via-address',
- `nntp-netcat-command',
- `nntp-netcat-switches',
- `nntp-address',
- `nntp-port-number'.
(fn BUFFER)
(defalias 'nntp-open-via-rlogin-and-netcat #[257 "\306\205 C C\n \205 \307 D\f
D
\310!D&\311 \312\313\314$)\207" [nntp-pre-command nntp-via-rlogin-command nntp-via-rlogin-command-switches nntp-via-user-name nntp-via-address nntp-netcat-command append "-l" nntp-service-to-port nil apply start-process "nntpd" nntp-netcat-switches nntp-address nntp-port-number process-connection-type] 11 (#$ . 111065)])
#@320 Open a connection to an nntp server through netcat.
I.e. use the `nc' command rather than Emacs's builtin networking code.
Please refer to the following variables to customize the connection:
- `nntp-pre-command',
- `nntp-netcat-command',
- `nntp-netcat-switches',
- `nntp-address',
- `nntp-port-number'.
(fn BUFFER)
(defalias 'nntp-open-netcat-stream #[257 "\306 \n\307 !D\"B\f\203 \fB\262\310 \311\312\313$)\207" [nntp-netcat-command nntp-netcat-switches nntp-address nntp-port-number nntp-pre-command process-connection-type append nntp-service-to-port nil apply start-process "nntpd"] 7 (#$ . 111975)])
#@546 Open a connection to an nntp server through an intermediate host.
First telnet the remote host, and then telnet the real news server
from there.
Please refer to the following variables to customize the connection:
- `nntp-pre-command',
- `nntp-via-telnet-command',
- `nntp-via-telnet-switches',
- `nntp-via-address',
- `nntp-via-envuser',
- `nntp-via-user-name',
- `nntp-via-user-password',
- `nntp-via-shell-prompt',
- `nntp-telnet-command',
- `nntp-telnet-switches',
- `nntp-address',
- `nntp-port-number',
- `nntp-end-of-line'.
(fn BUFFER)
(defalias 'nntp-open-via-telnet-and-telnet #[257 "r\211q\210\306 \210 B\307\310 \203 B\262\311\312\313$\262\314!\315>\203\311 \316\317!\210\320\321\"\210\f\203G
\203G \320\322
(\323R\"\210\202P \320\324(\323Q\"\210\f\204g \316\325!\210\320
\206c \326\327!\211\323P\"\210\316\330!\210\320)\206x \331\332!\211)\323P\"\210\316*!\210\333+\334,-\335.!D\"BB\320\336\337\340#\323P\"\266\316\341!\210\342 \210e`|\210\320\343\"\210\316\317!\210\320\344\"\210\345\346\"\210\347\346!\210eb\210\346y\210`d|\210)\266\202)\207" [nntp-via-telnet-command nntp-via-telnet-switches case-fold-search nntp-pre-command nntp-via-envuser nntp-via-user-name erase-buffer t nil apply start-process "nntpd" process-status (open run) nntp-wait-for-string "^r?telnet" process-send-string "set escape \n" "open -l" "\n" "open " "^
*.?login:" read-string "login: " "^
*.?password:" read-passwd "Password: " "exec" append nntp-service-to-port mapconcat identity " " "^
*20[01]" beginning-of-line " " "mode character\n" accept-process-output 1 sit-for nntp-via-address nntp-via-user-password nntp-via-shell-prompt nntp-telnet-command nntp-telnet-switches nntp-address nntp-port-number] 11 (#$ . 112597)])
(provide 'nntp)
Zerion Mini Shell 1.0