;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:24 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nntp.el
;;; in Emacs version 24.3.1
;;; 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!\204
\304\303\305\306B\"\210\302\307!\204\310\311!\210\310\312!\210\310\313!\210\310\314!\210\310\315!\210\310\316!\210\317\236\203>\317\236A\320\321\322\"\240\210\202I\317\320\321\322\"\322\211FB\317	\236\204U\317\323D	B\324\325\326\"\210\327\317\322\330\331\315%\207" [nnoo-definition-alist nnoo-state-alist fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] open-protocol-stream require proto-stream 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 (#$ . 1205))
(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" (#$ . 1391))
(nnoo-define 'nntp-port-number nil)
#@227 *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) (#$ . -1592))
(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 (#$ . 1939))
(nnoo-define 'nntp-authinfo-function nil)
#@345 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 '(("nntpd 1\\.5\\.11t" (remove-hook 'nntp-server-opened-hook 'nntp-send-mode-reader)) ("NNRP server Netscape" (setq nntp-server-list-active-group nil))) (#$ . 2203))
(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 (#$ . 2797))
(nnoo-define 'nntp-open-connection-function nil)
#@458 *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 (#$ . -3838))
(nnoo-define 'nntp-never-echoes-commands nil)
#@329 *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) (#$ . -4401))
(nnoo-define 'nntp-open-connection-functions-never-echo-commands nil)
#@194 *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 (#$ . -4907))
(nnoo-define 'nntp-pre-command nil)
#@261 *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" (#$ . -5186))
(nnoo-define 'nntp-telnet-command nil)
#@134 *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") (#$ . -5543))
(nnoo-define 'nntp-telnet-switches nil)
#@247 *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" (#$ . -5774))
(nnoo-define 'nntp-end-of-line nil)
#@298 *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" (#$ . -6108))
(nnoo-define 'nntp-via-rlogin-command nil)
#@404 *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 (#$ . -6507))
(nnoo-define 'nntp-via-rlogin-command-switches nil)
#@200 *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" (#$ . -7028))
(nnoo-define 'nntp-via-telnet-command nil)
#@138 *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") (#$ . -7332))
(nnoo-define 'nntp-via-telnet-switches nil)
#@226 *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" (#$ . -7575))
(nnoo-define 'nntp-netcat-command nil)
#@134 *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 (#$ . -7893))
(nnoo-define 'nntp-netcat-switches nil)
#@186 *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 (#$ . -8120))
(nnoo-define 'nntp-via-user-name nil)
#@201 *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 (#$ . -8395))
(nnoo-define 'nntp-via-user-password nil)
#@183 *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 (#$ . -8693))
(nnoo-define 'nntp-via-address nil)
#@194 *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 (#$ . -8961))
(nnoo-define 'nntp-via-envuser nil)
#@215 *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\\|$ *
?$\\|> *
?" (#$ . -9240))
(nnoo-define 'nntp-via-shell-prompt nil)
#@248 *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 (#$ . -9570))
(nnoo-define 'nntp-large-newsgroup nil)
#@225 *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 (#$ . -9910))
(nnoo-define 'nntp-maximum-request nil)
#@151 *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 (#$ . -10228))
(nnoo-define 'nntp-nov-is-evil nil)
#@298 *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") (#$ . -10465))
(nnoo-define 'nntp-xover-commands nil)
#@233 *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 (#$ . -10874))
(nnoo-define 'nntp-nov-gap nil)
#@481 *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 (#$ . -11183))
(nnoo-define 'nntp-xref-number-is-evil nil)
#@461 *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 (#$ . -11766))
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312&\210\313\304\302\314#\207" [nnoo-define nntp-prepare-server-hook nil custom-declare-variable nntp-authinfo-file "~/.authinfo" ".netrc-like file that holds nntp authinfo passwords." :group nntp :type (choice file (repeat :tag "Entries" :menu-tag "Inline" (list :format "%v" :value (#1="" ("login" . #1#) ("password" . #1#)) (string :tag "Host") (checklist :inline t (cons :format "%v" (const :format #1# "login") (string :format "Login: %v")) (cons :format "%v" (const :format #1# "password") (string :format "Password: %v")))))) make-obsolete "Emacs 24.1"] 8)
#@272 *Number of seconds to wait before an nntp connection times out.
If this variable is nil, which is the default, no timers are set.
NOTE: This variable is never seen to work in Emacs 20 and XEmacs 21.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nntp-connection-timeout nil (#$ . -12909))
(nnoo-define 'nntp-connection-timeout nil)
#@173 *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 (#$ . -13281))
(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 (#$ . 13552))
(nnoo-define 'nntp-server-list-active-group nil)
(defvar nntp-retrieval-in-progress nil)
(nnoo-define 'nntp-retrieval-in-progress nil)
#@72 *If non-nil, nntp will record all commands in the "*nntp-log*" buffer.
(defvar nntp-record-commands nil (#$ . -13988))
(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 (#$ . 15288))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put nntp-authinfo-rejected error-conditions (error nntp-authinfo-rejected) error-message "Authorization Rejected"] 4)
#@25 Send STRING to PROCESS.
(defalias 'nntp-send-string #[(process string) "\306 	\203
\307	!\210\310\f	
P\"\210\311\f!\312>\206\313\314!\207" [nntp-last-command-time string nntp-last-command nntp-record-commands process nntp-end-of-line current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection"] 4 (#$ . 15697)])
(put 'nntp-send-string 'byte-optimizer 'byte-compile-inline-expand)
#@28 Record the command STRING.
(defalias 'nntp-record-command #[(string) "r\302\303!q\210db\210\304\305!\306\306	\307\261)\207" [nntp-address string get-buffer-create "*nntp-log*" format-time-string "%Y%m%dT%H%M%S.%3N" " " "\n"] 6 (#$ . 16147)])
(defvar nntp--report-1 nil)
#@194 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.
(defalias 'nntp-report #[(&rest args) "\203	\203\f\303\304!\210\305\306\307\"\207	\203\303\310!\210\311\312\n\"\210\313\314\n\"\207" [nntp--report-1 nntp-record-commands args nntp-record-command "*** CONNECTION LOST ***" throw nntp-with-open-group-error t "*** CALLED nntp-report ***" nnheader-report nntp apply error] 3 (#$ . 16426)])
#@62 Copy string from unibyte current buffer to multibyte buffer.
(defalias 'nntp-copy-to-buffer '(macro . #[(buffer start end) "\303\304\305	EDC\306\n\307BBE\207" [start end buffer let string buffer-substring with-current-buffer ((erase-buffer) (insert (if enable-multibyte-characters (mm-string-to-multibyte string) string)) (goto-char (point-min)) nil)] 5 (#$ . 16967)]))
#@43 Wait for WAIT-FOR to arrive from PROCESS.
(defalias 'nntp-wait-for #[(process wait-for buffer &optional decode discard) "r\306!q\210eb\210`f\307>\203\310\311!\203X\312!\313>\203X\310\314!\203+\315!\210\202N\310\316!\203A\317\320\321\322\323N#\210\324\322\325\"\210\202N\310\326!\203N`\327y\210`|\210\330!\210eb\210\202	\310\331!\203e\332 \210\325\202\334\312!\333>\204s\334\335!\202\334db\210e\325\336\n\337#\204\222\330!\210d\340Ze]db\210\202z\341\342!r\fq\210	+\343+?!\210,\204\333r-q\210db\210.\203\305r\306!q\210\344\345 !)c\210\202\315\346\306!\325\211#\210/\203\332\325/\347\350\351\"\210)\337,\204\344\352 \210)\207" [process response limit wait-for nntp-server-buffer nntp-process-response 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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer decode discard buffer enable-multibyte-characters nntp-have-messaged] 5 (#$ . 17344)])
(put 'nntp-wait-for 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nntp-kill-buffer #[(buffer) "\302!\205\303!\211\203\304	!\210)\305!\210\306 \207" [buffer process buffer-name get-buffer-process delete-process kill-buffer nnheader-init-server-buffer] 3])
#@27 Erase contents of BUFFER.
(defalias 'nntp-erase-buffer #[(buffer) "rq\210\301 )\207" [buffer erase-buffer] 1 (#$ . 18905)])
#@43 Find the connection delivering to BUFFER.
(defalias 'nntp-find-connection #[(buffer) "	;\203\f\306	!\202
	\307\211\f\2035\f\211A@\211\2035	\n\211A@)=\203\n@\307\211\204\205Q\310!\311>\203E\202Q\312\313!!\210\314\n\"\307,\207" [nntp-connection-alist buffer entry process alist x get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq] 5 (#$ . 19036)])
(put 'nntp-find-connection 'byte-optimizer 'byte-compile-inline-expand)
#@48 Return the entry for the connection to BUFFER.
(defalias 'nntp-find-connection-entry #[(buffer) "	;\203\306!\202\307\211\f\2037\f\211A@\211\2037\n\211A@)=\203\n@\307\211\204\205S\310!\311>\203G\202S\312\313!!\210\314\n	\"\307-	\236\207" [buffer nntp-connection-alist entry process alist x get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq] 4 (#$ . 19515)])
(put 'nntp-find-connection-entry 'byte-optimizer 'byte-compile-inline-expand)
#@54 Return the process connection buffer tied to BUFFER.
(defalias 'nntp-find-connection-buffer #[(buffer) "	;\203\306!\202\307\211\f\2037\f\211A@\211\2037\n\211A@)=\203\n@\307\211\204\205S\310!\311>\203G\202S\312\313!!\210\314\n	\"\307-\211\205\\\313!)\207" [buffer nntp-connection-alist entry process alist x get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq] 5 (#$ . 20017)])
#@64 Use COMMAND to retrieve data into BUFFER from PORT on ADDRESS.
(defalias 'nntp-retrieve-data #[(command address port buffer &optional wait-for callback decode) "	;\203\306!\202\307\211\f\2037\f\211A@\211\2037\n\211A@)=\203\n@\307\211\204\205S\310!\311>\203G\202S\312\313!!\210\314\n	\"\307-\206Z\315!\211\203v\204o\204o\316\313!!\210\317\320\321\217\202|\322\323\324#)\207" [buffer nntp-connection-alist entry process alist x get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nntp-erase-buffer err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-inhibit-erase nnheader-callback-function address] 5 (#$ . 20462)])
(put 'nntp-retrieve-data 'byte-optimizer 'byte-compile-inline-expand)
#@57 Send STRINGS to server and wait until WAIT-FOR returns.
(defalias 'nntp-send-command #[(wait-for &rest strings) "\204\f	\204\f\306\n!\210\307\310\311#\n
;\203!\312
!\202\"
\313\211 !!\203V!\211A!@\211\203V
\211\"A@)=\203+@ \313\211!\2040 \205y\314 !\315>\203i \202y\316\317 !!\210\320\"\313-\211 \205\204\317 !\211\205\217r
q\210`)# \203q
\f$%\n&\313'(&)*

;\203\273\312
!\202\274
\313\211 !!\203\360!\211A!@\211\203\360
\211\"A@)=\203\305@ \313\211!\204\312 \205
\314 !\315>\203
 \202
\316\317 !!\210\320\"\313-\206
\321
!\211 \2037
+\2040
\2040
\306\317 !!\210\322\323\324\217\202=
\325\326\327*#.&\204w
,\204w
-.>\204w
\330 \210r
q\210#b\210\331\332\f!!\203m
#\333y\210\334 |\210)\202w
\325\326\335$#,\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer strings command buffer nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." nntp-connection-alist entry process alist x pos nntp-address nntp-port-number wait-for decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 8 (#$ . 23142)])
(put 'nntp-send-command 'byte-optimizer 'byte-compile-inline-expand)
#@57 Send STRINGS to server and wait until WAIT-FOR returns.
(defalias 'nntp-send-command-nodelete #[(wait-for &rest strings) "\306\307\310#\n\f;\203\311!\202\312\211\203E\211A@\211\203E
\211 A@)=\203
@\312\211\204\"\205e\313!\314>\203X\202e\315\316!!\210\317
\f\"\312-\211\205p\316!\211\205{rq\210`)!\203J
	\"#\n$%\312&'$()\f;\203\247\311!\202\250\312\211\203\330\211A@\211\203\330
\211 A@)=\203\260
@\312\211\204\265\205\370\313!\314>\203\353\202\370\315\316!!\210\317
\f\"\312-\206\377\320!\211\203
*\204
%\204
\321\316!!\210\322\323\324\217\202#
\325\326\327)#.$\204P
\330 \210rq\210!b\210\331\332	!!\203F
!\333y\210\334 |\210)\202P
\325\326\335\"#,\207" [strings command nntp-server-buffer buffer nntp-connection-alist entry mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nntp-erase-buffer err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." process alist x pos nntp-address nntp-port-number wait-for nnheader-callback-function decode callback port address nntp-inhibit-erase] 8 (#$ . 26569)])
#@57 Send STRINGS to server and wait until WAIT-FOR returns.
(defalias 'nntp-send-command-and-decode #[(wait-for &rest strings) "\204\f	\204\f\306\n!\210\307\310\311#\n
;\203!\312
!\202\"
\313\211 !\"\"\203V\"\211A\"@\211 \203V
 \211#A@)=\203+ @!\313\211\"\2040!\205y\314!!\315>\203i!\202y\316\317!!!\210\320 \"\313-\211!\205\204\317!!\211\205\217r
q\210`)$!\203d
\f%&\n'\321()'*+

;\203\273\312
!\202\274
\313\211 !\"\"\203\360\"\211A\"@\211 \203\360
 \211#A@)=\203\305 @!\313\211\"\204\312!\205
\314!!\315>\203
!\202
\316\317!!!\210\320 \"\313-\206
\322
!\211!\2037
,\2040
\2040
\306\317!!!\210\323\324\325\217\202=
\326\327\330+#.'\204j
\331 \210r
q\210$b\210\332\333\f!!\203`
$\334y\210\335 |\210)\202j
\326\327\336%#,\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer strings command buffer nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq t nntp-open-connection err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." nntp-connection-alist entry process alist x pos nntp-address nntp-port-number wait-for decode callback port address nntp-inhibit-erase] 8 (#$ . 29756)])
#@68 Send the current buffer to server and wait until WAIT-FOR returns.
(defalias 'nntp-send-buffer #[(wait-for) "\204	\204\306\307\n!!\210\310 \210\212eb\210\311\312\313\314#)\203$\315\316\317C\"\210\320 \210\321\n\f;\2036\322!\2027\313\211  \203g \211A @\211\203g
\211!A@)=\203?
@\313\211 \204D\205\207\323!\324>\203z\202\207\325\326!!\210\327
\f\"\313-ed#\210\313\"#\n$\313%&$'()\f;\203\261\322!\202\262\313\211  \203\342 \211A @\211\203\342
\211!A@)=\203\272
@\313\211 \204\277\205
\323!\324>\203\365\202
\325\326!!\210\327
\f\"\313-\206	
\330!\211\203&
*\204
\204
\306\326!!\210\331\332\333\217\202,
\334\335\336(#.\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer buffer nntp-connection-alist entry nntp-erase-buffer nntp-find-connection-buffer nntp-encode-text re-search-forward #1="[^-\377]" nil t signal 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 err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" process alist x nntp-address nntp-port-number wait-for decode callback port address command nntp-inhibit-erase] 7 (#$ . 33008)])
(nnoo-define-basics-1 'nntp)
(defalias 'nntp-next-result-arrived-p #[nil "\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)
#@580 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.
(defalias 'nntp-with-open-group-function #[(-group -server -connectionless -bodyfun) "\303\304\305\306\215\203\n\202	+\207" [nntp--report-1 nntp-with-open-group-internal nntp-report-n t nil nntp-with-open-group-error (byte-code "\306	\n#\210\205\307\310\311#\312\216\310\313\314\217*\310\207" [-group -server -connectionless nntp-connection-timeout -timer nntp-with-open-group-internal nntp-possibly-change-group run-at-time nil #[nil "\n	;\203\306	!\202	\307\211
\2038
\211A@\211\2038	\211A@)=\203@\307\211\204\f\205T\310\f!\311>\203H\f\202T\312\313\f!!\210\314\n\"\307-\211\205_\313!\211\205r\315!\316=\205r\312!*\207" [nntp-server-buffer buffer nntp-connection-alist entry process alist get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq buffer-size 0 x -process -buffer] 5] ((byte-code "\203\301!\210\301\207" [-timer nnheader-cancel-timer] 2)) (funcall -bodyfun) ((quit (byte-code "\204\301 \210\302\303\304\"\207" [debug-on-quit nntp-close-server signal quit nil] 3)))] 4)] 3 (#$ . 36633)])
#@580 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.
(defalias 'nntp-with-open-group '(macro . #[(group server &optional connectionless &rest forms) "<\203\304=\204	B\304\305\n\306\304	BB\257\207" [connectionless forms group server nil nntp-with-open-group-function lambda] 7 (#$ . 38308)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put nntp-with-open-group lisp-indent-function 2 edebug-form-spec (form form [&optional symbolp] def-body)] 4)
#@35 Retrieve the headers of ARTICLES.
(defalias 'nntp-retrieve-headers #[(articles &optional group server fetch-old) "\302	\303\304$\207" [group server nntp-with-open-group-function nil #[nil "r\306!q\210\307 \210	\204\n\204\310\f\"\203\311\202\245G\312\211e\306!\313\31489:;<=\211A@\211\203j\314\315
\247\203L\316
!\202M
D>?@\204`A\204`\317!\210\320\321>\322#BCDC;\203z\323C!\202|C\314\211EFCGG\203\262G\211AG@\211E\203\262CE\211HA@)=\203\206E@F\314\211G\204\213F\205\325\324F!\325>\203\305F\202\325\326\327F!!\210\330ED\"D\314-\211F\205\340\327F!\211C\205\355rCq\210`)IF\203\336
BJK?@\314LM?CNOBCCDC;\203!
\323C!\202#
C\314\211EFCGG\203Y
G\211AG@\211E\203Y
CE\211HA@)=\203-
E@F\314\211G\2042
F\205|
\324F!\325>\203l
F\202|
\326\327F!!\210\330ED\"D\314-\206\204
\331C!\211F\203\242
8\204\233
@\204\233
\317\327F!!\210\332\333\334\217\202\250
\335\336\337O#.?\204\344
P\204\344
QR>\204\344
\340 \210rCq\210Ib\210\341\342B!!\203\332
I\343y\210\344 |\210)\202\344
\335\336\345J#.\210<T<\203\372
\346<S\246!\2035\340 \2109q\210:b\210\314f\347=\203 \350\351\314\313#\2039\341\352!\203.\343y\210\202\341\353!\2039\354\355\314\313#\2039`:;T;\202;<W\2035T\247\203d=TV\203d\346;\356\246!\203d\357\360\361;\362_=\245#\210\340 \210\202\375
T\247\203}=TV\203}\357\360\363\"\210\364 \210\365 \210ed{Urq\210\307 \210V\203\233\366U!\202\235Uc\210eb\210.\n\367)\207" [nntp-server-buffer gnus-nov-is-evil nntp-nov-is-evil articles fetch-old article 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 err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." zerop 50 re-search-forward "\n\\.
?\n" "^\\.
?\n" "[34]" search-forward "\n" 20 nnheader-message 6 "NNTP: Receiving headers... %d%%" 100 "NNTP: Receiving headers...done" nnheader-fold-continuation-lines nnheader-strip-cr mm-string-to-multibyte headers nntp-inhibit-erase buf last-point received count number strings wait-for nnheader-callback-function nntp-inhibit-output command buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-maximum-request nntp-large-newsgroup string enable-multibyte-characters] 8]] 5 (#$ . 39311)])
(nnoo-register-function 'nntp-retrieve-headers)
#@31 Retrieve group info on INFOS.
(defalias 'nntp-retrieve-group-data-early #[(server infos) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "\306!\n\204r	q\210\307)	\205\n\205r	q\210)?\205\f\310=\203?\311\n@@\312\313
\"\203;
\314\225\307O\202<
)!\210r	q\210\315 \210\316\211\f\203Q\317\202R\320()\n\307*\211+\203+@*\307(*@\312\313
\"\203{
\314\225\307O\202|
)D,-.\204\220/\204\220\321!\210\322\323,\324#(0	;\203\247\325	!\202\250	\307\2111233\203\3343\211A3@\2111\203\334	1\2114A@)=\203\2611@2\307\2113\204\2662\205\377\3262!\327>\203\3572\202\377\330\3312!!\210\33210\"0\307-\2112\205\n
\3312!\211\205
r	q\210`)52\203\374
(67-.\30789-:;(	0	;\203D
\325	!\202E
	\307\2111233\203y
3\211A3@\2111\203y
	1\2114A@)=\203N
1@2\307\2113\204S
2\205\234
\3262!\327>\203\214
2\202\234
\330\3312!!\210\33210\"0\307-\206\243
\333	!\2112\203\301
)\204\272
.\204\272
\321\3312!!\210\334\335\336\217\202\307
\337\340\341;#.-\204<\204=>>\204\342 \210r	q\2105b\210\343\344(!!\203\370
5\345y\210\346 |\210)\202\337\340\3476#.\210+A\211+\204`,\nG))\207" [nntp-server-buffer buffer infos nntp-retrieval-in-progress nntp-server-list-active-group gname nntp-find-connection-buffer nil try nntp-try-list-active string-match "^[^:]+:" 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 err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." command nntp-inhibit-erase info --dolist-tail-- strings wait-for nnheader-callback-function nntp-inhibit-output nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 8]] 5 (#$ . 43955)])
(nnoo-register-function 'nntp-retrieve-group-data-early)
(defalias 'nntp-finish-retrieve-group-infos #[(server infos count) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "\306!\307	@@	@\"\310\311r
q\210\312)
\205\347\205\347r
q\210
\211\2052\313\314!!)\203_\nb\210\315\203C\316\202D\317\312\320#\203PT\2029`W\203_\321 \210\202%\322 \210\204\225ed{rq\210\323 \210\203\324!\202\201c\210eb\210*rq\210\325\f\320#)\202\346eb\210\315\326\312\320#\203\253\310\224\311y\210`|\210\202\230ed{rq\210\323 \210\203\303\324!\202\305c\210eb\210*rq\210\327\330	@8:\203\337\330	@8\202\340\f\312\320$)),\207" [nntp-server-buffer infos last-point received method buf 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 mm-string-to-multibyte gnus-groups-to-gnus-format "^[.2-5]" gnus-active-to-gnus-format 4 nntp-retrieval-in-progress count buffer nntp-server-list-active-group string enable-multibyte-characters gnus-active-hashtb] 6]] 5])
(nnoo-register-function 'nntp-finish-retrieve-group-infos)
#@32 Retrieve group info on GROUPS.
(defalias 'nntp-retrieve-groups #[(groups &optional server) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "\303!\205!r\303!q\210	\204\304\202\305\306\n\"\210\307)\205!\310\311\215\207" [nntp-server-buffer nntp-retrieval-in-progress server nntp-find-connection-buffer t message "Warning: Refusing to do retrieval from %s because a retrieval is already happening" nil done (byte-code "\212\306!\210\307!q\210	\310=\203\311\n@!\210\312 \210\313\n\313e\314\307!	\203(\315\202)\316;<=\n\203?\f\211>\205D\317\320>!!)\204T\321\322\323?#\210\324\325\326\"\210\326\n\211A@D@AB\204nC\204n\306!\210\327\330@\331#>D>;\203\207\320>!\202\211>\326\211EF>GG\203\277G\211AG@\211E\203\277>E\211HA@)=\203\223E@F\326\211G\204\230F\205\342\332F!\333>\203\322F\202\342\334\335F!!\210\336ED\"D\326-\211F\205\355\335F!\211>\205\372r>q\210`)IF\203\347
JKAB\326LMA>NO>>D>;\203,
\320>!\202.
>\326\211EF>GG\203d
G\211AG@\211E\203d
>E\211HA@)=\2038
E@F\326\211G\204=
F\205\207
\332F!\333>\203w
F\202\207
\334\335F!!\210\336ED\"D\326-\206\217
\337>!\211F\203\254

\204\245
B\204\245
\306\335F!!\210\340\341\342\217\202\262
\321\322\343O#.A\204\355
P\204\355
QR>\204\355
\344 \210r>q\210Ib\210\345\346!!\203\343
I\347y\210\350 |\210)\202\355
\321\322\351J#.\210=T=\n\203\352=S\246!\2033\344 \210\f\211>\205\317\320>!!)\2033\fq\210;b\210\353\354\326\314#\203.<T<\202`;<=W\2033\344 \210\202\f\211>\205L\317\320>!!)\204\\\321\322\323?#\210\324\325\326\"\210\fq\210db\210\355\354\326\314#\210\345\356!\203\245\f\211>\205{\317\320>!!)\203\245\fq\210db\210	\204\224\355\357`\360Z\314#?\202\234\355\361`\362Z\314#?\203\245\344 \210\202n\f\211>\205\262\317\320>!!)\204\302\321\322\323?#\210\324\325\326\"\210\fq\210eb\210\363\364\326\314#\203\331\365\366\314\211#\210\202\310	\204
ed{Trq\210\312 \210U\203\365\367T!\202\367Tc\210eb\210*\370\2028eb\210\353\371\326\314#\203\313\224\347y\210`|\210\202ed{Trq\210\312 \210U\203/\367T!\2021Tc\210eb\210*\372.\207" [nntp-server-buffer nntp-server-list-active-group groups command buf nntp-inhibit-erase nntp-erase-buffer nntp-find-connection-buffer try nntp-try-list-active erase-buffer 0 t "LIST ACTIVE" "GROUP" buffer-live-p get-buffer nnheader-report nntp "Connection to %s is closed." throw done nil mapconcat identity " " process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 #1="" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." zerop re-search-forward "^[0-9]" re-search-backward "^[23]" "
?\n" 3 "^\\.
?\n" 4 search-forward "
" replace-match #1# mm-string-to-multibyte group "^[.2-5]" active last-point received count buffer server strings wait-for nnheader-callback-function nntp-inhibit-output nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-maximum-request string enable-multibyte-characters] 8)] 3]] 5 (#$ . 49092)])
(nnoo-register-function 'nntp-retrieve-groups)
(defalias 'nntp-retrieve-articles #[(articles &optional group server) "\302	\303\304$\207" [group server nntp-with-open-group-function nil #[nil "\212G\306\211e\307	!\310\311\312\"\313\3146789:6q\210\315 \210\211A@\211\203f\314\316\n\247\203>\317\n!\202?\nD;<=\204R>\204R\320	!\210\321\322;\323#?	@A@;\203l\324@!\202n@\314\211BC@DD\203\244D\211AD@\211B\203\244@B\211EA@)=\203xB@C\314\211D\204}C\205\307\325C!\326>\203\267C\202\307\327\330C!!\210\331BA\"A\314-\211C\205\322\330C!\211@\205\337r@q\210`)FC\203\317
?GH	<=\314IJ<@KL?@@A@;\203
\324@!\202
@\314\211BC@DD\203K
D\211AD@\211B\203K
@B\211EA@)=\203
B@C\314\211D\204$
C\205n
\325C!\326>\203^
C\202n
\327\330C!!\210\331BA\"A\314-\206v
\332@!\211C\203\223

\204\214
=\204\214
\320\330C!!\210\333\334\335\217\202\231
\336\337\340L#.<\204\325
M\204\325
NO>\204\325
\341 \210r@q\210Fb\210\342\343?!!\203\313
F\313y\210\344 |\210)\202\325
\336\337\345G#.\2109T9\203\353
\3469P\246!\203'\341 \2106q\2107b\210\314f\347=\203\350\351\314\310#\2035\342\352!\203\313y\210\202\342\353!\2035\354\355\314\310#\2035\f8\f8H`BI\210`78T8\202\366
89W\203'Q\247\203`:QV\203`\3468\356\246!\203`\357\360\3618\362_:\245#\210\341 \210\202\356
Q\247\203y:QV\203y\357\360\363\"\210	q\210\315 \210e7\364\365\f\".\207" [articles nntp-server-buffer article point map nntp-inhibit-erase 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 err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote point-at-bol "Couldn't open connection to %s." zerop 50 re-search-forward "\n\\.
?\n" "^\\.
?\n" "[34]" search-forward "\n" 20 nnheader-message 6 "NNTP: Receiving articles... %d%%" 100 "NNTP: Receiving articles...done" mapcar #[(entry) "db\211	\203 r\nq\210\305\206e\fA\206d{!)c\210\202'\306\n\fA#\210d}\210\fA\307 \210~\210\f@B\207" [point enable-multibyte-characters buf last-point entry mm-string-to-multibyte insert-buffer-substring nntp-decode-text] 5] buf last-point received count number strings wait-for nnheader-callback-function nntp-inhibit-output command buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-maximum-request nntp-large-newsgroup] 10]] 5])
(nnoo-register-function 'nntp-retrieve-articles)
(defalias 'nntp-try-list-active #[(group) "\303!\210r	q\210eb\210m\204\304\305!\203\306\211\202\307\211)\207" [group nntp-server-buffer nntp-server-list-active-group nntp-list-active-group looking-at "5[0-9]+" nil t] 2])
#@58 Return the active info on GROUP (which can be a regexp).
(defalias 'nntp-list-active-group #[(group &optional server) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "\306\307D\204\f\204\310
!\210\311\312	\313# 
!\"!;\203+\314!!\202-!\315\211#$!%%\203c%\211A%@\211#\203c!#\211&A@)=\2037#@$\315\211%\204<$\205\206\316$!\317>\203v$\202\206\320\321$!!\210\322#\"\"\"\315-\211$\205\221\321$!\211!\205\236r!q\210`)'$\203\212
 ()
\n\315*+!,- !!\"!;\203\317\314!!\202\321!\315\211#$!%%\203
%\211A%@\211#\203
!#\211&A@)=\203\333#@$\315\211%\204\340$\205*
\316$!\317>\203
$\202*
\320\321$!!\210\322#\"\"\"\315-\2062
\323!!\211$\203O
.\204H
\204H
\310\321$!!\210\324\325\326\217\202U
\327\330\331-#.\n\204\220
/\204\220
01>\204\220
\332 \210r!q\210'b\210\333\334 !!\203\206
'\335y\210\336 |\210)\202\220
\327\330\337(#.\207" [group strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer "^\\.*
?\n" "LIST ACTIVE" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." command buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 7]] 5 (#$ . 59131)])
(nnoo-register-function 'nntp-list-active-group)
#@48 Return the list of existing articles in GROUP.
(defalias 'nntp-request-group-articles #[(group &optional server) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "\306\307D\204\f\204\310
!\210\311\312	\313# 
!\"!;\203+\314!!\202-!\315\211#$!%%\203c%\211A%@\211#\203c!#\211&A@)=\2037#@$\315\211%\204<$\205\206\316$!\317>\203v$\202\206\320\321$!!\210\322#\"\"\"\315-\211$\205\221\321$!\211!\205\236r!q\210`)'$\203\212
 ()
\n\315*+!,- !!\"!;\203\317\314!!\202\321!\315\211#$!%%\203
%\211A%@\211#\203
!#\211&A@)=\203\333#@$\315\211%\204\340$\205*
\316$!\317>\203
$\202*
\320\321$!!\210\322#\"\"\"\315-\2062
\323!!\211$\203O
.\204H
\204H
\310\321$!!\210\324\325\326\217\202U
\327\330\331-#.\n\204\220
/\204\220
01>\204\220
\332 \210r!q\210'b\210\333\334 !!\203\206
'\335y\210\336 |\210)\202\220
\327\330\337(#.\207" [group strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer "^\\.*
?\n" "LISTGROUP" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." command buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 7]] 5 (#$ . 62702)])
(nnoo-register-function 'nntp-request-group-articles)
(defalias 'nntp-request-article #[(article &optional group server buffer command) "\302	\303\304$\207" [group server nntp-with-open-group-function nil #[nil "\304\305\306\247\203\307!\202#\205+	\203(	\n\232\204(r\nq\210\310	ed#\210)\311!\207" [article buffer nntp-server-buffer group nntp-send-command-and-decode "
?\n\\.
?\n" "ARTICLE" int-to-string copy-to-buffer nntp-find-group-and-number] 5]] 5])
(nnoo-register-function 'nntp-request-article)
(defalias 'nntp-request-head #[(article &optional group server) "\302	\303\304$\207" [group server nntp-with-open-group-function nil #[nil "\306\307\247\203
\310!\202D\204\f\204\311
!\210\312\313	\314##
$%$;\2036\315$!\2028$\316\211&'$((\203n(\211A(@\211&\203n$&\211)A@)=\203B&@'\316\211(\204G'\205\221\317'!\320>\203\201'\202\221\321\322'!!\210\323&%\"%\316-\211'\205\234\322'!\211$\205\251r$q\210`)*'\203\225
#+,
\n\316-.$/0#$$%$;\203\332\315$!\202\334$\316\211&'$((\203
(\211A(@\211&\203
$&\211)A@)=\203\346&@'\316\211(\204\353'\2055
\317'!\320>\203%
'\2025
\321\322'!!\210\323&%\"%\316-\206=
\324$!\211'\203Z
1\204S
\204S
\311\322'!!\210\325\326\327\217\202`
\330\331\3320#.\n\204\233
2\204\233
34>\204\233
\333 \210r$q\210*b\210\334\335#!!\203\221
*\336y\210\337 |\210)\202\233
\330\331\340+#.\205\247
\3415!\342 \210\207" [article strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer "
?\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 err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." nntp-find-group-and-number nntp-decode-text command buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands group] 7]] 5])
(nnoo-register-function 'nntp-request-head)
(defalias 'nntp-request-body #[(article &optional group server) "\302	\303\304$\207" [group server nntp-with-open-group-function nil #[nil "\301\302\303\247\203\304!\202#\207" [article nntp-send-command-and-decode "
?\n\\.
?\n" "BODY" int-to-string] 5]] 5])
(nnoo-register-function 'nntp-request-body)
(defalias 'nntp-request-group #[(group &optional server dont-check info) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "\306\307D\204\f\204\310
!\210\311\312	\313# 
!\"!;\203+\314!!\202-!\315\211#$!%%\203c%\211A%@\211#\203c!#\211&A@)=\2037#@$\315\211%\204<$\205\206\316$!\317>\203v$\202\206\320\321$!!\210\322#\"\"\"\315-\211$\205\221\321$!\211!\205\236r!q\210`)'$\203\212
 ()
\n\315*+!,- !!\"!;\203\317\314!!\202\321!\315\211#$!%%\203
%\211A%@\211#\203
!#\211&A@)=\203\333#@$\315\211%\204\340$\205*
\316$!\317>\203
$\202*
\320\321$!!\210\322#\"\"\"\315-\2062
\323!!\211$\203O
.\204H
\204H
\310\321$!!\210\324\325\326\217\202U
\327\330\331-#.\n\204\220
/\204\220
01>\204\220
\332 \210r!q\210'b\210\333\334 !!\203\206
'\335y\210\336 |\210)\202\220
\327\330\337(#.\205
\211!!\"!;\203\252
\314!!\202\254
!\315\211#$!%%\203\342
%\211A%@\211#\203\342
!#\211&A@)=\203\266
#@$\315\211%\204\273
$\205\316$!\317>\203\365
$\202\320\321$!!\210\322#\"\"\"\315-\"\236)\211#\211&AA)\240)\207" [group strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer "^[245].*\n" "GROUP" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." command buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 8]] 5])
(nnoo-register-function 'nntp-request-group)
(defalias 'nntp-close-group #[(group &optional server) "\300\207" [t] 1])
(nnoo-register-function 'nntp-close-group)
#@53 Say whether a connection to SERVER has been opened.
(defalias 'nntp-server-opened #[(&optional server) "\306\307	!\n\203\310\311\n#\202\232*\205\221\205\221\211\205(\312\313\f!!)\205\221
\f;\203:\313\f!\202;\f\314\211\203o\211A@\211\203o\f\211A@)=\203D@\314\211\204I\205\220\315!\316>\203\202\202\220\317\320!!\210\321
\"\314-\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 entry process alist x] 6 (#$ . 74507)])
(nnoo-register-function 'nntp-server-opened)
(defalias 'nntp-open-server #[(server &optional defs connectionless) "\306 \210\307!\203\310\207	@;\204	@\247\203\311	@D	AB\312	\236\204-\313	\312DC\"\314\315	#\210\n\2039\310\207
\f;\203G\316\f!\202H\f\317\211\203|\211A@\211\203|\f\211A@)=\203Q@\317\211\204V\205\235\320!\321>\203\217\202\235\322\323!!\210\324
\"\317-\206\244\325!\207" [server defs connectionless nntp-server-buffer 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 entry process alist x] 4])
(nnoo-register-function 'nntp-open-server)
(defalias 'nntp-close-server #[(&optional server) "\306\307\310#\210	\n;\203\311\n!\202\n\307\211\203C\211A@\211\203C\n\f\211A@)=\203\f@\307\211\204!
\205_\312
!\313>\203S
\202_\314\315
!!\210\316\f\"\307-\211\203\203\312
!\317>\203r\307\320\321\217\210\314\315
!!\210\211A@@\211\204e\322\323!)\207" [server nntp-server-buffer buffer nntp-connection-alist entry process nntp-possibly-change-group nil t get-buffer process-status (open run) nntp-kill-buffer process-buffer delq (open run) (byte-code "\306\307 	\f\203\310	!\210\311	
P\"\210\312!\313>\206#\314\315!*\210\316=\2040\317\320!\210\307\207" [process string nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line "QUIT" current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" nntp-open-network-stream sleep-for 1 nntp-open-connection-function] 4) ((error)) nnoo-close-server nntp alist x] 5])
(nnoo-register-function 'nntp-close-server)
(defalias 'nntp-request-close #[nil "\302	\211A@\211\205\"\303!\304>\203\302\305\306\217\210\307\310!!\210\202)\207" [process nntp-connection-list nil process-status (open run) (byte-code "\306\307 	\f\203\310	!\210\311	
P\"\210\312!\313>\206#\314\315!*\210\316=\2040\317\320!\210\307\207" [process string nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line "QUIT" current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" nntp-open-network-stream sleep-for 1 nntp-open-connection-function] 4) ((error)) nntp-kill-buffer process-buffer] 3])
(nnoo-register-function 'nntp-request-close)
(defalias 'nntp-request-list #[(&optional server) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "\300\301\302\"\207" [nntp-send-command-and-decode "
?\n\\.
?\n" "LIST"] 3]] 5])
(nnoo-register-function 'nntp-request-list)
(defalias 'nntp-request-list-newsgroups #[(&optional server) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "\306\307C\n\204\204\310\f!\210\311\312\313#\f ! ;\203)\314 !\202+ \315\211\"# $$\203a$\211A$@\211\"\203a \"\211%A@)=\2035\"@#\315\211$\204:#\205\204\316#!\317>\203t#\202\204\320\321#!!\210\322\"!\"!\315-\211#\205\217\321#!\211 \205\234r q\210`)&#\203\205

'(\f	\n\315)* +,  ! ;\203\313\314 !\202\315 \315\211\"# $$\203
$\211A$@\211\"\203
 \"\211%A@)=\203\327\"@#\315\211$\204\334#\205&
\316#!\317>\203
#\202&
\320\321#!!\210\322\"!\"!\315-\206.
\323 !\211#\203K
-\204D
\n\204D
\310\321#!!\210\324\325\326\217\202Q
\327\330\331,#.	\204\213
.\204\213
/0>\204\213
\332 \210r q\210&b\210\333\334
!!\203\201
&\335y\210\336 |\210)\202\213
\327\330\337'#.\207" [strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer command "
?\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 err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 7]] 5])
(nnoo-register-function 'nntp-request-list-newsgroups)
(defalias 'nntp-request-newgroups #[(date &optional server) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "rq\210\306	!\211\211A@)\307\310\n!8Z\211\311W\203+\n\211@S\240\210\nA\f\312\\\240\210\202F\f\312Y\203A\n\211@T\240\210\nA\f\312Z\240\210\202F\nA\f\240\210\313\314\315\316\n\"\317E)*\204_+\204_\320!\210\321\322
\323#,-.-;\203x\324-!\202z-\325\211/0-11\203\2571\211A1@\211/\203\257-/\211A@)=\203\204/@0\325\2111\204\2110\205\322\3260!\327>\203\3020\202\322\330\3310!!\210\332/.\".\325-\2110\205\335\3310!\211-\205\352r-q\210`)20\203\332
,34)*\32556)-78,--.-;\203
\324-!\202 
-\325\211/0-11\203U
1\211A1@\211/\203U
-/\211A@)=\203*
/@0\325\2111\204/
0\205x
\3260!\327>\203h
0\202x
\330\3310!!\210\332/.\".\325-\206\200
\333-!\2110\203\236
9\204\227
*\204\227
\320\3310!!\210\334\335\336\217\202\244
\337\340\3418#.)\204\340
:\204\340
;<>\204\340
\342 \210r-q\2102b\210\343\344,!!\203\326
2\345y\210\346 |\210)\202\340
\337\340\3473#.\350 \210+\207" [nntp-server-buffer date time x ls strings date-to-time 8 decode-time 0 65536 "^\\.
?\n" "NEWGROUPS" format-time-string "%y%m%d %H%M%S" "GMT" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." nntp-decode-text wait-for nnheader-callback-function nntp-inhibit-output command buffer nntp-connection-alist entry process alist pos nntp-address nntp-port-number decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 8]] 5])
(nnoo-register-function 'nntp-request-newgroups)
(defalias 'nntp-request-post #[(&optional server) "\301\302\302\303$\207" [server nntp-with-open-group-function nil #[nil "\306\307C\n\204\204\310\f!\210\311\312\313#\f./.;\203)\314.!\202+.\315\21101.22\203a2\211A2@\2110\203a.0\2113A@)=\20350@1\315\2112\204:1\205\204\3161!\317>\203t1\202\204\320\3211!!\210\3220/\"/\315-\2111\205\217\3211!\211.\205\234r.q\210`)41\203\205

56\f	\n\31578.9:../.;\203\313\314.!\202\315.\315\21101.22\203
2\211A2@\2110\203
.0\2113A@)=\203\3270@1\315\2112\204\3341\205&
\3161!\317>\203
1\202&
\320\3211!!\210\3220/\"/\315-\206.
\323.!\2111\203K
;\204D
\n\204D
\310\3211!!\210\324\325\326\217\202Q
\327\330\331:#.	\204\213
<\204\213
=>>\204\213
\332 \210r.q\2104b\210\333\334
!!\203\201
4\335y\210\336 |\210)\202\213
\327\330\3375#.\205\333
r\fq\210?)\315@\211A\203\323
\340\341A\"\203\323
\342\335A\"@eb\343\344\315\345#\203\276
`S\202\277
d}\210\346\347!\204\321
eb\210\350@\351\261\210~\210\352\353!\210\354\355!*\207" [strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer command "^[23].*
?\n" "POST" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." string-match "^[23].*\\(<[^	\n @<>]+@[^	\n @<>]+>\\)" match-string search-forward "\n\n" t mail-fetch-field "Message-ID" "Message-ID: " "\n" run-hooks nntp-prepare-post-hook nntp-send-buffer "^[23].*\n" buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-process-response server-id response] 8]] 5])
(nnoo-register-function 'nntp-request-post)
(defalias 'nntp-request-type #[(group article) "\300\207" [news] 1])
(nnoo-register-function 'nntp-request-type)
(defalias 'nntp-asynchronous-p #[nil "\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 #[nil "\306\307C\n\204\204\310\f!\210\311\312\313#\f ! ;\203)\314 !\202+ \315\211\"# $$\203a$\211A$@\211\"\203a \"\211%A@)=\2035\"@#\315\211$\204:#\205\204\316#!\317>\203t#\202\204\320\321#!!\210\322\"!\"!\315-\211#\205\217\321#!\211 \205\234r q\210`)&#\203\205

'(\f	\n\315)* +,  ! ;\203\313\314 !\202\315 \315\211\"# $$\203
$\211A$@\211\"\203
 \"\211%A@)=\203\327\"@#\315\211$\204\334#\205&
\316#!\317>\203
#\202&
\320\321#!!\210\322\"!\"!\315-\206.
\323 !\211#\203K
-\204D
\n\204D
\310\321#!!\210\324\325\326\217\202Q
\327\330\331,#.	\204\213
.\204\213
/0>\204\213
\332 \210r q\210&b\210\333\334
!!\203\201
&\335y\210\336 |\210)\202\213
\327\330\337'#.\207" [strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer command "^.*\n" "MODE READER" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 7 (#$ . 89352)])
#@279 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.
(defalias 'nntp-send-authinfo #[(&optional send-if-force) "\306\307!\210\310!\311	\n\312#\313\314\315\316\n\317\320!D\321\322\312\323\324\f\"\325BBB&@\326
\327\">\326
\330\"?\326
\331\"@\332@!\203E@ \202G@@\333\334\"\206WA\206W?B>\206g\333\335\"\206gCD@\206r\333\336\"EF\203~B\205\320D\204\216\337\323\340\n\"!\211DCD\341\235?\205\320\342\343DDGHI\204\256J\204\256\344K!\210\345\346G\347#LKMNM;\203\311\350M!\202\313M\351\211OPM\203\374\211A@\211O\203\374MO\211QA@)=\203\324O@P\351\211\204\330P\205
\352P!\353>\203
P\202
\354\355P!!\210\356ON\"N\351-\211P\205*
\355P!\211M\2057
rMq\210`)RP\203\"L\n\fKHI\351STHMUVLMMNM;\203j
\350M!\202l
M\351\211OPM\203\235
\211A@\211O\203\235
MO\211QA@)=\203u
O@P\351\211\204y
P\205\300
\352P!\353>\203\260
P\202\300
\354\355P!!\210\356ON\"N\351-\206\310
\357M!\211P\203\346
W\204\337
I\204\337
\344\355P!!\210\360\361\362\217\202\354
\363\320\364V#.H\204'X\204'YZ>\204'\365 \210rMq\210Rb\210\366\367L!!\203R\315y\210\370 |\210)\202'\363\320\371\n#.\210\372\373E\206A[\206A\374\323\375D\n#!\211[DGHI\204UJ\204U\344K!\210\345\346G\347#LKMNM;\203p\350M!\202rM\351\211OPM\203\243\211A@\211O\203\243MO\211QA@)=\203{O@P\351\211\204P\205\306\352P!\353>\203\266P\202\306\354\355P!!\210\356ON\"N\351-\211P\205\321\355P!\211M\205\336rMq\210`)RP\203\311L\n\fKHI\351STHMUVLMMNM;\203\350M!\202M\351\211OPM\203D\211A@\211O\203DMO\211QA@)=\203O@P\351\211\204 P\205g\352P!\353>\203WP\202g\354\355P!!\210\356ON\"N\351-\206o\357M!\211P\203\215W\204\206I\204\206\344\355P!!\210\360\361\362\217\202\223\363\320\364V#.H\204\316X\204\316YZ>\204\316\365 \210rMq\210Rb\210\366\367L!!\203\305R\315y\210\370 |\210)\202\316\363\320\371\n#..\n\207" [nntp-authinfo-file list nntp-address alist nntp-port-number auth-info 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 err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 #1# erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote point-at-bol "Couldn't open connection to %s." "^2.*
?\n" "AUTHINFO PASS" read-passwd "NNTP (%s@%s) password: " auth-user auth-force auth-passwd nntp-authinfo-force force nntp-authinfo-user user passwd send-if-force strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer command buffer nntp-connection-alist entry process x pos decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands nntp-authinfo-password] 12 (#$ . 92913)])
#@52 Take care of an authinfo response from the server.
(defalias 'nntp-handle-authinfo #[(process) "\n \210\306!\210\f	\307 
\203\310
!\210\311\f
P\"\210\312\f!\313>\206/\314\315!+\207" [nntp-last-command last nntp-authinfo-function nntp-server-buffer process string nntp-erase-buffer current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" nntp-last-command-time nntp-record-commands nntp-end-of-line] 4 (#$ . 98197)])
#@65 Create a new, fresh buffer usable for nntp process connections.
(defalias 'nntp-make-process-buffer #[(buffer) "r\306\307\310	\n\211\205\n;\203\311\202\312\n!)$!q\210\313 \210\314\303!\210\315\314\304!\210\315\314\305!\210\315\314\316!\210\315\314\317!\210\315\314\320!\210\315\314\321!\210\315p)\207" [nntp-address nntp-port-number buffer after-change-functions nntp-process-wait-for nntp-process-callback generate-new-buffer format " *server %s %s %s*" get-buffer buffer-name mm-disable-multibyte make-local-variable nil nntp-process-to-buffer nntp-process-start-point nntp-process-decode nntp-retrieval-in-progress] 8 (#$ . 98696)])
#@67 Open a connection to PORT on ADDRESS delivering output to BUFFER.
(defalias 'nntp-open-connection #[(buffer) "\306\307!\210\310!\n\205\311\n\312\313\312\314	DE#\315\316\317\217\203$\320!\210\f\203C\321\f!\322>\204Cr	q\210eb\210\323\324\325`\326 {#\210)\312\f\204K\314	!\210\327	!\205\271
\f\205\271
\330\331!\203o\330\332!\203o\332\f!\333=\203o\331\f\334\335#\210\336\f\312\"\210\f\337\312\335@Ar\340\f!q\210eb\210`f\341>\203\226\342\343!\203\330\321\f!\344>\203\330\342\345!\203\253\346\f!\210\202\316\342\347!\203\301\323\324\350\351\352N#\210\353\351\312\"\210\202\316\342\354!\203\316`\355y\210`|\210\356\f!\210eb\210\202\211\342\357!\203\345\360 \210\312\202c
\321\f!\361>\204\363\362\363!\202c
db\210e\312BC\364AC\335#\204
\356\f!\210d\365Ze]Cdb\210\202\374\366\367!BrDq\210BE+\370@?!\210
\204b
rq\210db\210F\203L
r\340\f!q\210\371\372 !)c\210\202T
\373\340\f!\312\211#\210G\203a
\312G\374\375\376\"\210)\335
\204j
\377 \210.\203\262
\321\f!\201L>\203\262
\f\312EHB\211H\211I@@)\fJBJr	q\210\201M \210\377 \210Dq\210\312K\306\201N!\210\201O\335!\210*\202\271
\314\340\f!!\210\312+\207" [buffer pbuffer nntp-connection-timeout timer process discard run-hooks nntp-prepare-server-hook nntp-make-process-buffer run-at-time nil lambda nntp-kill-buffer err (byte-code "\306\211\307\310\"\203+\311\312\f
\313\310\"\211A@)\314\315\316\317\320\321\322\323&\202.\f!+\207" [map coding-system-for-write coding-system-for-read nntp-open-connection-function pbuffer nntp-address 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-protocol-stream "nntpd" :type :end-of-command "^\\([2345]\\|[.]\\).*\n" :capability-command "CAPABILITIES
\n" :success "^3" :starttls-function #[(capabilities) "\301\302\"\205\303\207" [capabilities string-match "STARTTLS" "STARTTLS
\n"] 3] nntp-port-number x] 16) ((error (byte-code "\301\302\303#\207" [err nnheader-report nntp ">>> %s"] 4)) (quit (byte-code "\302\303\"\210\304	!\210\305\306\307\"\210\307\207" [nntp-address pbuffer message "Quit opening connection to %s" nntp-kill-buffer signal quit nil] 3))) nnheader-cancel-timer process-status (open run) nnheader-report nntp "Error when connecting: %s" line-end-position buffer-name fboundp set-network-process-option process-type network :keepalive t gnus-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 signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nntp-report "Server closed connection" re-search-backward 1000 match-string 0 nntp-decode-text mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer decode wait-for response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged nntp-connection-alist x nntp-connection-list nnheader-callback-function (open run) nntp-read-server-type nntp-server-opened-hook nntp-send-authinfo] 8 (#$ . 99357)])
#@63 Find out what the name of the server we have connected to is.
(defalias 'nntp-read-server-type #[nil "\306 \307\n\310\211\205G\f@\311@\"\203?\211A@)<\2037A@@\312=\2047\313\211A@)!\210\202?\211A@) \210\fA\211\204
\310+\207" [nntp-server-type case-fold-search nntp-server-action-alist entry --dolist-tail-- x buffer-string t nil string-match lambda eval] 4 (#$ . 102531)])
(defalias 'nntp-async-wait #[(process wait-for buffer decode callback) "r\306!q\210	\204
\307 \210\n\f	\n\fd
\310\211)\207" [process nntp-inside-change-function wait-for nntp-process-wait-for buffer nntp-process-to-buffer process-buffer erase-buffer (nntp-after-change-function) decode nntp-process-decode callback nntp-process-callback nntp-process-start-point after-change-functions] 2])
(defalias 'nntp-async-stop #[(proc) "\303	\"\n\205	?\205\304\n!\210\305\211\207" [proc nntp-async-process-list nntp-async-timer delq nnheader-cancel-timer nil] 3])
(defalias 'nntp-after-change-function #[(beg end len) "\304\216\305=\205d	=\205\306 \307\216\310p!\211\205\311!+)\207" [len end save-match-data-internal proc ((byte-code "\203\302\303\207" [quit-flag after-change-functions (nntp-after-change-function) nil] 1)) 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) get-buffer-process nntp-async-trigger] 3])
(defalias 'nntp-async-trigger #[(process) "r\306!q\210	\205\252\nb\210g\307>\203(\310\311!\203\312!\202\252\313 \210\314\315!\202\252db\210\316\n\317#\205\252\320\321!r
q\210\f*\322!\210\211\205Y;\203U\323\202V\324!)\203\237p\nrq\210db\210\214``}\210\203\216rq\210\325\206\205ed{!)c\210\202\226\326\315#\210\203\236\327 \210-db\210\314\324\323!!!)\207" [process nntp-process-callback nntp-process-start-point nntp-process-wait-for response nntp-server-buffer process-buffer (52 53) looking-at "480" nntp-handle-authinfo nntp-snarf-error-message nntp-do-callback nil re-search-backward t match-string 0 nntp-async-stop get-buffer buffer-name mm-string-to-multibyte insert-buffer-substring nntp-decode-text nntp-process-response nntp-process-to-buffer buffer nntp-process-decode decode start buf enable-multibyte-characters] 5])
(defalias 'nntp-do-callback #[(arg) "\304\305\n!*\207" [nntp-process-callback nntp-inside-change-function callback arg t nil] 2])
#@47 Save the error message in the current buffer.
(defalias 'nntp-snarf-error-message #[nil "\301 \302\303\"\203\304\305\306\211$\202\307\310\311#\210)\207" [message buffer-string string-match "[
\n]+" replace-match " " t nnheader-report nntp "%s"] 5 (#$ . 104935)])
#@53 Wait for output from PROCESS and message some dots.
(defalias 'nntp-accept-process-output #[(process) "r\305!\206q\210\306 \307\245\310\211\311W\204\312\313\314\315\n#\210*\316\f!\f\203/\317\f!\320>\2043\321\322!\210)\207" [nntp-server-buffer message-log-max len nntp-have-messaged process 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"] 5 (#$ . 105214)])
#@58 Wait for output from the process that outputs to BUFFER.
(defalias 'nntp-accept-response #[nil "\306\n	;\203\307	!\202	\310\211
\2039
\211A@\211\2039	\211A@)=\203@\310\211\204\f\205U\311\f!\312>\203I\f\202U\313\314\f!!\210\315\n\"\310-!\207" [nntp-server-buffer buffer nntp-connection-alist entry process alist nntp-accept-process-output get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq x] 5 (#$ . 105726)])
(defalias 'nntp-possibly-change-group #[(group server &optional connectionless) "\306	\203\307	!\204\310	\306\n#\210\n\204\202
\f;\203$\311\f!\202%\f\306\211%&''\203Y'\211A'@\211%\203Y\f%\211(A@)=\203.%@&\306\211'\2043&\205z\312&!\313>\203l&\202z\314\315&!!\210\316%
\"\306-\204\202\317!\210))\205\254\211
\f;\203\230\311\f!\202\231\f\306\211%&''\203\315'\211A'@\211%\203\315\f%\211(A@)=\203\242%@&\306\211'\204\247&\205\356\312&!\313>\203\340&\202\356\314\315&!!\210\316%
\"\306-
\236)\211%\204\376\320\321!\202\253)%AA@\232?\205\253r\315%@!q\210\322 \210\323\324)D*+\204+
,\204+
\325!\210\326\327*\330#-
\f;\203A
\311\f!\202B
\f\306\211%&''\203v
'\211A'@\211%\203v
\f%\211(A@)=\203K
%@&\306\211'\204P
&\205\227
\312&!\313>\203\211
&\202\227
\314\315&!!\210\316%
\"\306-\211&\205\242
\315&!\211\205\255
r\fq\210`).&\203\217-/0+\30612+34-\f
\f;\203\332
\311\f!\202\333
\f\306\211%&''\203'\211A'@\211%\203\f%\211(A@)=\203\344
%@&\306\211'\204\351
&\2050\312&!\313>\203\"&\2020\314\315&!!\210\316%
\"\306-\2067\317\f!\211&\203T5\204M\204M\325\315&!!\210\331\332\333\217\202Z\334\335\3364#.+\204\2256\204\22578>\204\225\337 \210r\fq\210.b\210\340\341-!!\203\213.\342y\210\343 |\210)\202\225\334\335\344/#.\210%\211(AA))\240\210\322 \210\325!))\207" [nnheader-callback-function server connectionless nntp-server-buffer buffer nntp-connection-alist 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 " " err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\206(\313\314!*\2102\315=\2033\316\2072\203K3\203K\317	3452%\210\316\2073\203Q
	345\3206543r\321	!q\210eb\210`f\322>\203w\323\324!\203\271\311	!\325>\203\271\323\326!\203\214\327	!\210\202\257\323\330!\203\242\331\332\333\334\335N#\210\336\334\320\"\210\202\257\323\337!\203\257`\340y\210`|\210\341	!\210eb\210\202j\323\342!\203\306\343 \210\320\202F
\311	!\344>\204\324\313\314!\202F
db\210e\32078\34538\316#\204\370\341	!\210d\346Ze]8db\210\202\335\347\350!7r9q\2107:+\3515?!\2106\204E
r4q\210db\210;\203/
r\321	!q\210\352\353 !)c\210\2027
\354\321	!\320\211#\210<\203D
\320<\355\356\357\"\210)\3166\204N
\360 \210.\207\316\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status (open run) nntp-report "Server closed connection" ignore t nntp-async-wait nil process-buffer (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 mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard response limit nntp-server-buffer nntp-process-response enable-multibyte-characters nntp-have-messaged] 6) ((nntp-authinfo-rejected (byte-code "\301\302A\"\207" [err signal nntp-authinfo-rejected] 3)) (error (byte-code "\302\303\304	$\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-report nntp "Couldn't open connection to %s" nntp-accept-response looking-at regexp-quote 1 point-at-bol "Couldn't open connection to %s." entry process alist x group strings wait-for nntp-inhibit-output command pos nntp-address nntp-port-number decode callback port address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 8])
#@40 Decode the text in the current buffer.
(defalias 'nntp-decode-text #[(&optional cr-only) "eb\210\301\302\303\304#\203\305\306!\210\202?\205Idb\210\306y\210\307\310!\203'\305\311!\210eb\210\307\312!\203:`\313y\210`|\210\202*\301\314\303\304#\205I\305\306!\210\202:\207" [cr-only search-forward "
" nil t delete-char -1 looking-at ".\n" 2 "[1-5][0-9][0-9] .*\n" 1 "\n.."] 4 (#$ . 110277)])
#@40 Encode the text in the current buffer.
(defalias 'nntp-encode-text #[nil "\212eb\210\301\302\303\304#\203\305c\210\202db\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 (#$ . 110682)])
(defalias 'nntp-retrieve-headers-with-xover #[(articles &optional fetch-old) "q\210\306 \210	\203\271
\n\203\203i\307\203)\247\203%\310\f@Z]\202+\310\202+\f@\311\f!@\312#\210eb\210\313\314!\203B`\310y\210`|\210\315\316\317\320#\203S\321\322\320\211#\210\202Bdb\210\323y\210\313\324!\203\271
`\310y\210`|\210\202\271
\n\247\203\271
\325\211\317\211\326!\317\211\211	()*+,-.	\203h
\f\203h
\f@(\fA\203\255\fA@\f@Z\nW\203\255\fA\211\202\227	;+\307(\f@\211	\"\210\fA	\2032
+\2032
.T.\f\203\332./\246\310U\2032
\327 \210)q\210,\206\347eb\210\330\331\317\320#\203
-T-\332\310!\333\334
\"\203
\335\202\351\336\202\351`,-.W\204(

\335=\2042
db\210\323y\210\313\337!\2042
\327 \210)q\210\202\341.\310X\203a
eb\210\330\340\317\320#\203a
\341\310\224\310\225{!0\f\203`
\f@0X\203`
\fA\211\204Q
)*q\210\202\212	\203\267
+\203\236
*q\210db\2101\203\214
r)q\210\342\343 !)c\210\202\223
\344)\317\211#\210)q\210\306 \210*q\210eb\210\315\316\317\320#\203\260
\345\323!\210\202\241
eb\210\346\347!\210.		\207" [nntp-server-buffer nntp-server-xover nntp-nov-gap fetch-old articles status 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 mm-string-to-multibyte buffer-string insert-buffer-substring delete-char delete-matching-lines "^\\.$\\|^[1-5][0-9][0-9] " first process-buffer buf in-process-buffer-p last-point received count nntp-maximum-request low-limit enable-multibyte-characters] 10])
#@39 Send the XOVER command to the server.
(defalias 'nntp-send-xover-command #[(beg end &optional wait-for-reply) "\306\307	#\310\f;\203!
\203\311\312\f#\202k\311\313\f#\202k\211\203\\\f\314=\203\\\311\312@#\210rq\210eb\210\315\316!\203R\317y\210\315\320!\203R@)A\211\204)\f\314=\203i\321!\210\313\f)*\207" [beg end nntp-inhibit-erase range nntp-server-xover wait-for-reply format "%d-%d" t nntp-send-command-nodelete "
?\n\\.
?\n" nil try looking-at "[23]" 1 "[0-9]+	...\\|\\.
?\n" nntp-erase-buffer nntp-xover-commands commands nntp-server-buffer] 5 (#$ . 112737)])
(defalias 'nntp-find-group-and-number #[(&optional group) "\212\214q\210eb\306\307\310\311#\206d}\210eb\210\312\313!\205\"\314\315\224\315\225{!\310\211\211\2033\316!\2033\310\203l\317\320!\211\203J\321\322\n\"\204J\n\202h\317\323!\211\203g\203g\321\324\325\"	\"\203g\326\315	\"\202h\327\202\265
\204\233\317\323!\211\203\233\321\f\203\206\330\331\f!\332Q\202\207\333	\"\203\233\326\315	\"\314\326\334	\"!\202\265\317\320!\211\203\257\321\322\n\"\204\257\n\202\265\f\204\265\327\321\335\f\"\203\302\f\336\211\224O\f-B\207" [nntp-server-buffer xref newsgroups number group nntp-xref-number-is-evil search-forward "\n\n" nil t looking-at "2[0-9][0-9] +\\([0-9]+\\) " string-to-number 1 zerop mail-fetch-field "newsgroups" string-match "," "xref" format "\\([^ :]+\\):%d" match-string "" "\\(" regexp-quote "\\):\\([0-9]+\\)" "\\([^ :]+\\):\\([0-9]+\\)" 2 "
" 0] 6])
#@42 Wait until string arrives in the buffer.
(defalias 'nntp-wait-for-string #[(regexp) "p\303eb\210\304	!\211\205.\305!\306>\205.\307\n\303\310#?\205.\311\312\"\210	q\210eb\210\202*\207" [proc buf regexp nil get-buffer-process process-status (open run) re-search-forward t accept-process-output 0.1] 4 (#$ . 114251)])
#@189 *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 (#$ . -114583))
(nnoo-define 'nntp-open-telnet-envuser nil)
#@142 *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\\|$ *
?$\\|> *
?" (#$ . -114875))
(nnoo-define 'nntp-telnet-shell-prompt nil)
#@175 *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" (#$ . -115140))
(nnoo-define 'nntp-rlogin-program nil)
#@244 *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") (#$ . -115410))
(nnoo-define 'nntp-rlogin-parameters nil)
#@139 *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 (#$ . -115795))
(nnoo-define 'nntp-rlogin-user-name nil)
#@254 *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") (#$ . -116031))
(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 (#$ . 116433))
(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 (#$ . 116639))
(nnoo-define 'nntp-telnet-passwd nil)
(defalias 'nntp-service-to-port #[(svc) "\250\203	\302!\207\303\304\"\203\207\305\306!r	q\210\307\216\310\311\312\217\210eb\210\313\314\315!\316Q!\2035\317\320!\2026+\207" [svc #1=#:temp-buffer number-to-string string-match "\\`[0-9]+\\'" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil (insert-file-contents "/etc/services") ((error)) re-search-forward "^" regexp-quote "[ 	]+\\([0-9]+\\)/tcp" match-string 1] 4])
(defalias 'nntp-open-telnet #[(buffer) "rq\210\306 \210\307\310\311	\n%\312\313\f!\314>\203\257\315\316!\210\317\f\320\"\210
\203;$\203;\317\f\321\322$%\323\260\"\210\202D\317\f\321%\323Q\"\210
\204]\315\324!\210\317\f$\206Y\325\326!\211$\323P\"\210\315\327!\210\317\f&\206n\330\331!\211&\323P\"\210\315'!\210\317\f\332\333(\334#\323P\"\210\315\335!\210\336 \210e`|\210\317\f\337\"\210\315\316!\210\317\f\340\"\210\341\f\342\"\210\343\342!\210eb\210\342y\210`d|\210\f+\207" [buffer nntp-telnet-command nntp-telnet-switches case-fold-search proc nntp-open-telnet-envuser 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" "^
*.?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-user-name nntp-address nntp-telnet-passwd nntp-telnet-shell-prompt nntp-telnet-parameters] 7])
#@40 Open a connection to SERVER using rsh.
(defalias 'nntp-open-rlogin #[(buffer) "\203\306\307\310	\n\311\f&\202\306\307\310	\n\f&r	q\210\312\313!\210\314 \210e`|\210
*\207" [nntp-rlogin-user-name buffer nntp-rlogin-program nntp-address nntp-rlogin-parameters proc apply start-process "nntpd" "-l" nntp-wait-for-string "^
*20[01]" beginning-of-line] 9 (#$ . 118379)])
#@356 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'.
(defalias 'nntp-open-telnet-stream #[(buffer) "\306	\n\307!D\"B\310\203
B\311\312\313
$rq\210\314\315!\210\316 \210e`|\210\f+\207" [nntp-telnet-command nntp-telnet-switches nntp-address nntp-port-number proc command append nntp-service-to-port nil apply start-process "nntpd" nntp-wait-for-string "^
*20[01]" beginning-of-line nntp-pre-command buffer] 6 (#$ . 118762)])
#@571 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'.
(defalias 'nntp-open-via-rlogin-and-telnet #[(buffer) "	\nBB\306
\203\307
\fBB\203\310\f\"\fB\203,\fB\311\312\313\f$rq\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 proc command nntp-via-user-name 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-via-rlogin-command-switches nntp-via-rlogin-command nntp-pre-command buffer nntp-address nntp-port-number] 7 (#$ . 119510)])
#@474 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'.
(defalias 'nntp-open-via-rlogin-and-netcat #[(buffer) "\306\205C	C\n\205\307D\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 command process-connection-type buffer] 10 (#$ . 120858)])
#@307 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'.
(defalias 'nntp-open-netcat-stream #[(buffer) "\306	\n\307!D\"B
\203
\fB\310\f\311\312\313
\f$*\207" [nntp-netcat-command nntp-netcat-switches nntp-address nntp-port-number command nntp-pre-command append nntp-service-to-port nil apply start-process "nntpd" process-connection-type buffer] 6 (#$ . 121779)])
#@533 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'.
(defalias 'nntp-open-via-telnet-and-telnet #[(buffer) "rq\210\306 \210	\nB\307\310(\203(
B\311\312\313
$\314!\315>\203\323\316\317!\210\320\321\"\210)\203K*\203K\320\322\323*+\324\260\"\210\202T\320\322+\324Q\"\210)\204n\316\325!\210\320*\206j\326\327!\211*\324P\"\210\316\330!\210\320,\206\331\332!\211,\324P\"\210\316-!\210\333.\334/0\3351!D\"BB2\320\336\3372\340#\324P\"\210)\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,\207" [buffer nntp-via-telnet-command nntp-via-telnet-switches proc case-fold-search command 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" "^
*.?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-pre-command nntp-via-envuser nntp-via-user-name nntp-via-address nntp-via-user-password nntp-via-shell-prompt nntp-telnet-command nntp-telnet-switches nntp-address nntp-port-number real-telnet-command] 7 (#$ . 122408)])
(provide 'nntp)