;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:45:55 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/nntp.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nntp.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\306\307\310\311\"\311\211FB\306\312D B\311\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnoo gnus-util nntp mapcar #[(p) "C\207" [p] 1] nil "*internal-non-initialized-backend*"] 4) #@38 Address of the physical nntp server. (defvar nntp-address nil (#$ . 869)) (nnoo-define 'nntp-address nil) #@42 Port number on the physical nntp server. (defvar nntp-port-number "nntp" (#$ . 981)) (nnoo-define 'nntp-port-number nil) #@155 *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. (defvar nntp-server-opened-hook '(nntp-send-mode-reader) (#$ . -1109)) (nnoo-define 'nntp-server-opened-hook nil) #@80 Function used to send AUTHINFO to the server. It is called with no parameters. (defvar nntp-authinfo-function 'nntp-send-authinfo (#$ . 1383)) (nnoo-define 'nntp-authinfo-function nil) #@273 Alist of regexps to match on server types and actions to be taken. For instance, if you want Gnus to beep every time you connect to innd, you could say something like: (setq nntp-server-action-alist '(("innd" (ding)))) You probably don't want to do that, though. (defvar nntp-server-action-alist '(("nntpd 1\\.5\\.11t" (remove-hook 'nntp-server-opened-hook 'nntp-send-mode-reader)) ("NNRP server Netscape" (setq nntp-server-list-active-group nil))) (#$ . 1575)) (nnoo-define 'nntp-server-action-alist nil) #@513 *Function used for connecting to a remote system. It will be called with the buffer to output in. Two pre-made functions are `nntp-open-network-stream', which is the default, and simply connects to some port or other on the remote system (see nntp-port-number). The other are `nntp-open-rlogin', which does an rlogin on the remote system, and then does a telnet to the NNTP server available there (see nntp-rlogin-parameters) and `nntp-open-telnet' which telnets to a remote system, logs in and does the same. (defvar nntp-open-connection-function 'nntp-open-network-stream (#$ . -2097)) (nnoo-define 'nntp-open-connection-function nil) #@103 *Program used to log in on remote machines. The default is "rsh", but "ssh" is a popular alternative. (defvar nntp-rlogin-program "rsh" (#$ . -2743)) (nnoo-define 'nntp-rlogin-program nil) #@172 *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. (defvar nntp-rlogin-parameters '("telnet" "-8" "${NNTPSERVER:=news}" "nntp") (#$ . -2939)) (nnoo-define 'nntp-rlogin-parameters nil) #@67 *User name on remote system when using the rlogin connect method. (defvar nntp-rlogin-user-name nil (#$ . -3249)) (nnoo-define 'nntp-rlogin-user-name nil) #@182 *Parameters to `nntp-open-telnet'. That function may be used as `nntp-open-connection-function'. In that case, this list will be executed as a command after logging in via telnet. (defvar nntp-telnet-parameters '("exec" "telnet" "-8" "${NNTPSERVER:=news}" "nntp") (#$ . -3411)) (nnoo-define 'nntp-telnet-parameters nil) #@38 User name to log in via telnet with. (defvar nntp-telnet-user-name nil (#$ . 3738)) (nnoo-define 'nntp-telnet-user-name nil) #@44 Password to use to log in via telnet with. (defvar nntp-telnet-passwd nil (#$ . 3869)) (nnoo-define 'nntp-telnet-passwd nil) #@117 *If non-nil, telnet session (client and server both) will support the ENVIRON option and not prompt for login name. (defvar nntp-open-telnet-envuser nil (#$ . -4001)) (nnoo-define 'nntp-open-telnet-envuser nil) #@70 *Regular expression to match the shell prompt on the remote machine. (defvar nntp-telnet-shell-prompt "bash\\|$ * ?$\\|> * ?" (#$ . -4218)) (nnoo-define 'nntp-telnet-shell-prompt nil) #@31 Command used to start telnet. (defvar nntp-telnet-command "telnet" (#$ . 4408)) (nnoo-define 'nntp-telnet-command nil) #@39 Switches given to the telnet command. (defvar nntp-telnet-switches '("-8") (#$ . 4533)) (nnoo-define 'nntp-telnet-switches nil) #@174 String to use on the end of lines when talking to the NNTP server. This is "\r\n" by default, but should be "\n" when using rlogin or telnet to communicate with the server. (defvar nntp-end-of-line " \n" (#$ . 4668)) (nnoo-define 'nntp-end-of-line nil) #@184 *The number of the articles which indicates a large newsgroup. If the number of the articles is greater than the value, verbose messages will be shown to indicate the current status. (defvar nntp-large-newsgroup 50 (#$ . -4928)) (nnoo-define 'nntp-large-newsgroup nil) #@153 *The maximum number of the requests sent to the NNTP server at one time. If Emacs hangs up while retrieving headers, set the variable to a lower value. (defvar nntp-maximum-request 400 (#$ . -5204)) (nnoo-define 'nntp-maximum-request nil) #@79 *If non-nil, nntp will never attempt to use XOVER when talking to the server. (defvar nntp-nov-is-evil nil (#$ . -5449)) (nnoo-define 'nntp-nov-is-evil nil) #@226 *List of strings that are used as commands to fetch NOV lines from a server. The strings are tried in turn until a positive response is gotten. If none of the commands are successful, nntp will just grab headers one by one. (defvar nntp-xover-commands '("XOVER" "XOVERVIEW") (#$ . -5613)) (nnoo-define 'nntp-xover-commands nil) #@161 *Maximum allowed gap between two articles. If the gap between two consecutive articles is bigger than this variable, split the XOVER request into two requests. (defvar nntp-nov-gap 5 (#$ . -5949)) (nnoo-define 'nntp-nov-gap nil) #@389 *Hook run before a server is opened. If can be used to set up a server remotely, for instance. Say you have an account at the machine "other.machine". This machine has access to an NNTP server that you can't access locally. You could then use this hook to rsh to the remote machine and start a proxy NNTP server there that you can connect to. See also `nntp-open-connection-function' (defvar nntp-prepare-server-hook nil (#$ . -6185)) (nnoo-define 'nntp-prepare-server-hook nil) #@52 *If non-nil, beep when a server closes connection. (defvar nntp-warn-about-losing-connection t (#$ . -6674)) (nnoo-define 'nntp-warn-about-losing-connection nil) #@35 *Coding system to read from NNTP. (defvar nntp-coding-system-for-read 'binary (#$ . -6842)) (nnoo-define 'nntp-coding-system-for-read nil) #@34 *Coding system to write to NNTP. (defvar nntp-coding-system-for-write 'binary (#$ . -6987)) (nnoo-define 'nntp-coding-system-for-write nil) #@54 .netrc-like file that holds nntp authinfo passwords. (custom-declare-variable 'nntp-authinfo-file '"~/.authinfo" '(#$ . 7133) :type '(choice file (repeat :tag "Entries" :menu-tag "Inline" (list :format "%v" :value ("" ("login" . "") ("password" . "")) (string :tag "Host") (checklist :inline t (cons :format "%v" (const :format "" "login") (string :format "Login: %v")) (cons :format "%v" (const :format "" "password") (string :format "Password: %v"))))))) #@200 *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. (defvar nntp-connection-timeout nil (#$ . -7597)) (nnoo-define 'nntp-connection-timeout nil) #@72 *If non-nil, nntp will record all commands in the "*nntp-log*" buffer. (defvar nntp-record-commands nil (#$ . -7895)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\307\303B\306\303!\204$\307\304B\306\304!\2040\307\305B\306\305!\204<\307\310B\306\310!\204I\307\311B\306\311!\204V\307 \312B\306\312!\204c\307\n\313\312\307\"\210\314B\306\314!\204u\307\f\313\314\307\"\210\315B\306\315!\204\207\307 \313\315\307\"\210\316B\306\316!\204\231\307\313\316\307\"\210\317B\306\317!\204\253\307\320B\306\320!\204\270\307\313\320\307\"\210\321B\306\321!\204\312\307\313\321\307\"\210\322B\306\322!\204\334\323\313\322\307\"\210\324B\325\326B\306\326!\204\365\307\313\326\307\"\210\327B\306\327!\204\307\313\327\307\"\210\330B\306\330!\204\331\313\330\307\"\210\332B\306\332!\204+\331\313\332\307\"\207" [current-load-list nntp-have-messaged nntp-process-wait-for nntp-process-to-buffer nntp-process-callback nntp-process-decode boundp nil nntp-process-start-point nntp-inside-change-function nntp-last-command-time nnoo-define nntp-last-command nntp-authinfo-password nntp-authinfo-user nntp-connection-list nntp-server-type nntp-connection-alist nntp-status-string "" nntp-version "nntp 5.0" nntp-inhibit-erase nntp-inhibit-output nntp-server-xover try nntp-server-list-active-group] 3) #@203 *When non-nil, nntp will poll asynchronous connections once a second. By default, this is turned on only for Emacs 20.3, which has a bug that breaks nntp's normal method of noticing asynchronous data. (defvar nntp-async-needs-kluge (byte-code "\300\301\302 \"\207" [string-match "^GNU Emacs 20\\.3\\." emacs-version] 3) (#$ . -9281)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\305\306\307\"\210\305\310\311\"\207" [current-load-list nntp-async-timer nntp-async-process-list boundp nil autoload mail-source-read-passwd "mail-source" open-ssl-stream "ssl"] 3) #@25 Send STRING to PROCESS. (defalias 'nntp-send-string #[(process string) "\306   \203 \307 !\210\310\f P\"\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] 4 (#$ . 9871)]) (put 'nntp-send-string 'byte-optimizer 'byte-compile-inline-expand) #@28 Record the command STRING. (defalias 'nntp-record-command #[(string) "\212\303\304!q\210db\210\305 \306\307\"\310\311\312\3138\314\245\"\315 \315\n\316\261*\207" [time nntp-address string get-buffer-create "*nntp-log*" current-time format-time-string "%Y%m%dT%H%M%S" "." format "%03d" 2 1000 " " "\n"] 8 (#$ . 10224)]) #@43 Wait for WAIT-FOR to arrive from PROCESS. (defalias 'nntp-wait-for #[(process wait-for buffer &optional decode discard) "\212\306!q\210eb\210`f\307>\203\310\311!\2032\312!\313>\2032\310\311!\203(\314!\210\315!\210eb\210\202 \310\316!\203?\317 \210\320\202\222\312!\321>\204N\322\323\324\"\202\222db\210e\325\n \326#\204k\315!\210d\327Ze]db\210\202S)\330 ?!\210\f?\205\222\212 q\210db\210\331\306!!\210\203\220\320\332\333\334\"\210)\326\f\204\231\335 \210)\207" [process limit wait-for decode discard buffer process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message nil (open run) nnheader-report nntp "Server closed connection" re-search-backward t 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-have-messaged] 4 (#$ . 10553)]) (put 'nntp-wait-for 'byte-optimizer 'byte-compile-inline-expand) (defalias 'nntp-kill-buffer #[(buffer) "\301!\205\f\302!\210\303 \207" [buffer buffer-name kill-buffer nnheader-init-server-buffer] 2]) #@43 Find the connection delivering to BUFFER. (defalias 'nntp-find-connection #[(buffer) " ;\203\f\306 !\202 \307\211\f\211A@\211\2031 \n\211A@)=\203\n@\307\211\202 \205M\310 !\311>\203A \202M\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 (#$ . 11653)]) (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\211A@\211\2033\n\211A@)=\203\n@\307\211\202 \205O\310 !\311>\203C \202O\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] 5 (#$ . 12124)]) (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\211A@\211\2033\n\211A@)=\203\n@\307\211\202 \205O\310 !\311>\203C \202O\312\313 !!\210\314\n \"\307-\211\205X\313 !)\207" [buffer nntp-connection-alist entry process alist x get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq] 6 (#$ . 12618)]) #@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\211A@\211\2033\n\211A@)=\203\n@\307\211\202 \205O\310 !\311>\203C \202O\312\313 !!\210\314\n \"\307-\206V\315!\211\204d\316\317\320#\202|\204x\204x\212\313 !q\210\321 \210)\322\323\324\217)\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 nnheader-report nntp "Couldn't open connection to %s" erase-buffer err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) address nntp-inhibit-erase nnheader-callback-function] 6 (#$ . 13054)]) (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 \204\212\nq\210\306 \210)\307\310 \311#\f \n\312;\203=\313!\202?\312\211 !\"\"\211A\"@\211 \203p \211#A@)=\203I @!\312\211\"\202K!\205\223\314!!\315>\203\203!\202\223\316\317!!!\210\320 \"\312-\206\233\321!\211!\204\252\322\323\324#\202\302$\204\276\204\276\212\317!!q\210\306 \210)\325\326\327\217.\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer strings nntp-address nntp-port-number erase-buffer mapconcat identity " " nil get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) wait-for decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7 (#$ . 15214)]) (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 \311;\203+\312!\202-\311\211 !!\211A!@\211\203^\211\"A@)=\2037@ \311\211!\2029 \205\201\313 !\314>\203q \202\201\315\316 !!\210\317\"\311-\206\211\320!\211 \204\230\321\322\323#\202\260#\204\254 \204\254\212\316 !q\210\324 \210)\325\326\327\217.\207" [strings nntp-address nntp-port-number nntp-server-buffer wait-for nnheader-callback-function mapconcat identity " " nil get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" erase-buffer err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7 (#$ . 17591)]) #@57 Send STRINGS to server and wait until WAIT-FOR returns. (defalias 'nntp-send-command-and-decode #[(wait-for &rest strings) "\204 \204\212\nq\210\306 \210)\307\310 \311#\f \n\312 ;\203=\313!\202?\314\211!\"##\211A#@\211!\203p!\211$A@)=\203I!@\"\314\211#\202K\"\205\223\315\"!\316>\203\203\"\202\223\317\320\"!!\210\321! \" \314-\206\233\322!\211\"\204\252\323\324\325#\202\302%\204\276\204\276\212\320\"!q\210\306 \210)\326\327\330\217.\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer strings nntp-address nntp-port-number erase-buffer mapconcat identity " " t get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) wait-for decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7 (#$ . 19845)]) #@68 Send the current buffer to server and wait until WAIT-FOR returns. (defalias 'nntp-send-buffer #[(wait-for) "\204 \204\212\306\n!q\210\307 \210)\310 \210 \203\231\fp\311\216\312\313\312!\210\314\n;\203:\315!\202<\312\211  \211A @\211\203m\211!A@)=\203F@\312\211 \202H\205\220\316!\317>\203\200\202\220\320\321!!\210\322\"\312-ed#\210,\202 \312\314\n;\203\257\315!\202\261\312\211  \211A @\211\203\342\211!A@)=\203\273@\312\211 \202\275\205\316!\317>\203\365\202\320\321!!\210\322\"\312-ed#\210)\312\"#\n$\312%&$'();\2036\315!\2028\312\211  \211A @\211\203i\211!A@)=\203B@\312\211 \202D\205\214\316!\317>\203|\202\214\320\321!!\210\322\"\312-\206\224\323!\211\204\243\324\325\326(#\202\273*\204\267\204\267\212\321!q\210\307 \210)\327\330\331\217.\207" [nnheader-callback-function nntp-inhibit-output nntp-server-buffer mm-emacs-mule enable-multibyte-characters #1=#:buffer nntp-find-connection-buffer erase-buffer nntp-encode-text ((byte-code "q\210\302 !\207" [#1# #2=#:multibyte set-buffer-multibyte] 2)) nil set-buffer-multibyte process-send-region get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) #2# default-enable-multibyte-characters buffer nntp-connection-alist entry process alist x nntp-address nntp-port-number wait-for decode callback port address command nntp-inhibit-erase] 7 (#$ . 22170)]) (nnoo-define-basics-1 'nntp) (defalias 'nntp-next-result-arrived-p #[nil "\300f\301=\203\302\303\300\304#\205\"\304\207\305\306!\203!\307\310\300\304#\205\"\304\207\300\207" [nil 50 re-search-forward "\n\\. ?\n" t looking-at "[34]" search-forward "\n"] 4]) (put 'nntp-next-result-arrived-p 'byte-optimizer 'byte-compile-inline-expand) #@35 Retrieve the headers of ARTICLES. (defalias 'nntp-retrieve-headers #[(articles &optional group server fetch-old) "\306 \"\210\212\307\n!q\210\310 \210 \204\"\f\204\"\311 3\"\203\"\312\202\304 G\313\211e\307\n!\314\315456789: \211A@\2114\203\242\315\3164\247\203T\3174!\202V4D;<=\204m>\204m\212\nq\210\310 \210)\320\321;\322#?@\n<=\315AB<CDEFCCGC;\203\236\323C!\202\240C\315\211HICJJ\211AJ@\211H\203\321CH\211KA@)=\203\252H@I\315\211J\202\254I\205\364\324I!\325>\203\344I\202\364\326\327I!!\210\330HG\"G\315-\206\374\331C!\211I\204 \332\333\334E#\202$5\204 =\204 \212\327I!q\210\310 \210)\335\336\337\217.\210*9T9 \203;\3409L\246!\203:\341 \2106q\2107b\210\315f\342=\203X\343\344\315\314#\203q\202f\345\346!\203q\347\350\315\314#\203q`78T8\202F89W\203:M\247\203\234:MV\203\234\3408\351\246!\203\234\352\353\3548\355_:\245#\210\341 \210\202>M\247\203\265:MV\203\265\352\353\356\"\210\357 \210\360 \210\361\ned#\210.\362)\207" [group server nntp-server-buffer gnus-nov-is-evil nntp-nov-is-evil articles nntp-possibly-change-group nntp-find-connection-buffer erase-buffer nntp-retrieve-headers-with-xover nov 0 t nil "HEAD" int-to-string mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) zerop nntp-accept-response 50 re-search-forward "\n\\. ?\n" looking-at "[34]" search-forward "\n" 20 nnheader-message 6 "NNTP: Receiving headers... %d%%" 100 "NNTP: Receiving headers...done" nnheader-fold-continuation-lines nnheader-strip-cr copy-to-buffer headers fetch-old article nntp-inhibit-erase buf last-point received count number strings wait-for nnheader-callback-function nntp-inhibit-output nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-maximum-request nntp-large-newsgroup] 7 (#$ . 25497)]) (nnoo-register-function 'nntp-retrieve-headers) #@32 Retrieve group info on GROUPS. (defalias 'nntp-retrieve-groups #[(groups &optional server) "\306\307\"\210\310 !\205\325\212 q\210\311 \210\310 !q\210\n\312=\203\"\313 @!\210\311 \210\314\211e\315\310 !\n\2034\316\2025\3174567 \203Y\307\f \211A@D89:\204a;\204a\212 q\210\311 \210)\320\3218\322#<= 9:\307>?9@AB@@C@;\203\221\323@!\202\223@\307\211DE@FF\211AF@\211D\203\304@D\211GA@)=\203\235D@E\307\211F\202\237E\205\347\324E!\325>\203\327E\202\347\326\327E!!\210\330DC\"C\307-\206\357\331@!\211E\204\376\332\333\334B#\2024\204:\204\212\327E!q\210\311 \210)\335\336\337\217.\210*7T7 \203.\3407H\246!\203?\341 \210 q\2105b\210\342\343\307\315#\203H6T6\2028`567W\203?\341 \210\2021 q\210db\210\344\343\307\315#\210\345\346!\203\221 q\210db\210\n\204\200\344\347`\350Z\315#?\202\210\344\351`\352Z\315#?\203\221\341 \210\202k q\210eb\210\353\354\307\315#\203\250\355\356\315\211#\210\202\227\n\204\266\357 ed#\210\360\202\323eb\210\342\361\307\315#\203\314\314\224\362y\210`|\210\202\271\357 ed#\210\363.\207" [server nntp-server-buffer nntp-server-list-active-group groups command buf nntp-possibly-change-group nil nntp-find-connection-buffer erase-buffer try nntp-try-list-active 0 t "LIST ACTIVE" "GROUP" mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) zerop nntp-accept-response re-search-forward "^[0-9]" re-search-backward looking-at "^[23]" " ?\n" 3 "^\\. ?\n" 4 search-forward " " replace-match "" copy-to-buffer group "^[.2-5]" 1 active nntp-inhibit-erase last-point received count strings wait-for nnheader-callback-function nntp-inhibit-output nntp-address nntp-port-number decode callback buffer port address nntp-connection-alist entry process alist x nntp-maximum-request] 7 (#$ . 28930)]) (nnoo-register-function 'nntp-retrieve-groups) (defalias 'nntp-retrieve-articles #[(articles &optional group server) "\306 \"\210\212\nG\307\211e\310 !\311\312\313\n\"\314\31523456784q\210\316 \210\n\211A@\211\203\235\315\317\f\247\203C\320\f!\202D\fD9:;\204[<\204[\212 q\210\316 \210)\321\3229\323#=> :;\315?@:ABCDAAEA;\203\214\324A!\202\216A\315\211FGAHH\211AH@\211F\203\277AF\211IA@)=\203\230F@G\315\211H\202\232G\205\342\325G!\326>\203\322G\202\342\327\330G!!\210\331FE\"E\315-\206\352\332A!\211G\204\371\333\334\335C#\2023\204;\204\212\330G!q\210\316 \210)\336\337\340\217.\210*7T7\n\203)\3417J\246!\203,\342 \2104q\2105b\210\315f\343=\203F\344\345\315\311#\203l\202T\346\347!\203l\350\351\315\311#\203l2626H`BI\210`56T6\202467W\203,K\247\203\2278KV\203\227\3416\352\246!\203\227\353\354\3556\356_8\245#\210\342 \210\202,K\247\203\2608KV\203\260\353\354\357\"\210 q\210\316 \210e5\360\3612\".\n\207" [group server articles nntp-server-buffer article point nntp-possibly-change-group 0 nntp-find-connection-buffer t apply vector 1 nil erase-buffer "ARTICLE" int-to-string mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) zerop nntp-accept-response 50 re-search-forward "\n\\. ?\n" looking-at "[34]" search-forward "\n" 20 nnheader-message 6 "NNTP: Receiving articles... %d%%" 100 "NNTP: Receiving articles...done" mapcar #[(entry) "db\211\304 \n A#\210d}\210 A\305 \210~\210 @B\207" [point buf last-point entry insert-buffer-substring nntp-decode-text] 5] map nntp-inhibit-erase buf last-point received count number strings wait-for nnheader-callback-function nntp-inhibit-output nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-maximum-request nntp-large-newsgroup] 9]) (nnoo-register-function 'nntp-retrieve-articles) (defalias 'nntp-try-list-active #[(group) "\303!\210\212 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) "\306\307\"\210\310\311 D\f\204 \204\212q\210\312 \210)\313\314\n\315# \f\307 !\"#  $ ;\203J\316 !\202L \307\211%& ''\211A'@\211%\203} %\211(A@)=\203V%@&\307\211'\202X&\205\240\317&!\320>\203\220&\202\240\321\322&!!\210\323%$\"$\307-\206\250\324 !\211&\204\267\325\326\327\"#\202\317)\204\313\f\204\313\212\322&!q\210\312 \210)\330\331\332\217.\n\207" [server group strings wait-for nnheader-callback-function nntp-inhibit-output nntp-possibly-change-group nil "^\\.* ?\n" "LIST ACTIVE" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) nntp-server-buffer nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7 (#$ . 35890)]) (nnoo-register-function 'nntp-list-active-group) #@48 Return the list of existing articles in GROUP. (defalias 'nntp-request-group-articles #[(group &optional server) "\306\307\"\210\310\311 D\f\204 \204\212q\210\312 \210)\313\314\n\315# \f\307 !\"#  $ ;\203J\316 !\202L \307\211%& ''\211A'@\211%\203} %\211(A@)=\203V%@&\307\211'\202X&\205\240\317&!\320>\203\220&\202\240\321\322&!!\210\323%$\"$\307-\206\250\324 !\211&\204\267\325\326\327\"#\202\317)\204\313\f\204\313\212\322&!q\210\312 \210)\330\331\332\217.\n\207" [server group strings wait-for nnheader-callback-function nntp-inhibit-output nntp-possibly-change-group nil "^\\.* ?\n" "LISTGROUP" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) nntp-server-buffer nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7 (#$ . 38348)]) (nnoo-register-function 'nntp-request-group-articles) (defalias 'nntp-request-article #[(article &optional group server buffer command) "\305 \"\210\306\307\310\n\247\203\311\n!\202\n#\2052 \2030 \f\232\2040\212\fq\210\312 ed#\210\313 )\207\313 \207" [group server article buffer nntp-server-buffer nntp-possibly-change-group nntp-send-command-and-decode " ?\n\\. ?\n" "ARTICLE" int-to-string copy-to-buffer nntp-find-group-and-number] 5]) (nnoo-register-function 'nntp-request-article) (defalias 'nntp-request-head #[(article &optional group server) "\306 \"\210\307\310\n\247\203\311\n!\202\nD \204(\204(\212q\210\312 \210)\313\314 \315# !\f \316\"#$%&'$$($;\203V\317$!\202X$\316\211)*$++\211A+@\211)\203\211$)\211,A@)=\203b)@*\316\211+\202d*\205\254\320*!\321>\203\234*\202\254\322\323*!!\210\324)(\"(\316-\206\264\325$!\211*\204\303\326\327\330&#\202\333-\204\327 \204\327\212\323*!q\210\312 \210)\331\332\333\217.\n\205\345\334 \335 \210\207" [group server article strings wait-for nnheader-callback-function nntp-possibly-change-group " ?\n\\. ?\n" "HEAD" int-to-string erase-buffer mapconcat identity " " nil get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) nntp-find-group-and-number nntp-decode-text nntp-inhibit-output nntp-server-buffer nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7]) (nnoo-register-function 'nntp-request-head) (defalias 'nntp-request-body #[(article &optional group server) "\303 \"\210\304\305\306\n\247\203\307\n!\202\n#\207" [group server article nntp-possibly-change-group nntp-send-command-and-decode " ?\n\\. ?\n" "BODY" int-to-string] 5]) (nnoo-register-function 'nntp-request-body) (defalias 'nntp-request-group #[(group &optional server dont-check) "\306\307\"\210\310\311 D\f\204 \204\212q\210\312 \210)\313\314\n\315# \f\307 !\"#  $ ;\203J\316 !\202L \307\211%& ''\211A'@\211%\203} %\211(A@)=\203V%@&\307\211'\202X&\205\240\317&!\320>\203\220&\202\240\321\322&!!\210\323%$\"$\307-\206\250\324 !\211&\204\267\325\326\327\"#\202\317)\204\313\f\204\313\212\322&!q\210\312 \210)\330\331\332\217.\n\205Q\211  $ ;\203\352\316 !\202\354 \307\211%& ''\211A'@\211%\203 %\211(A@)=\203\366%@&\307\211'\202\370&\205@\317&!\320>\2030&\202@\321\322&!!\210\323%$\"$\307-$\236)\211%\211(AA) \240)\207" [server group strings wait-for nnheader-callback-function nntp-inhibit-output nntp-possibly-change-group nil "^[245].*\n" "GROUP" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) nntp-server-buffer nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 8]) (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\222 \205\222 \211\205.\312\f!\205.\313\312\f!!)\205\222  \f;\203@\312\f!\202A\f\314\211\211A@\211\203p\f\211A@)=\203J@\314\211\202L\205\221\315!\316>\203\203\202\221\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" get-buffer buffer-name nil process-status (open run) nntp-kill-buffer process-buffer delq entry process alist x] 6 (#$ . 46742)]) (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?\205\236  \f;\203F\316\f!\202G\f\317\211\211A@\211\203v\f\211A@)=\203P@\317\211\202R\205\227\320!\321>\203\211\202\227\322\323!!\210\324 \"\317-\206\236\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] 5]) (nnoo-register-function 'nntp-open-server) (defalias 'nntp-close-server #[(&optional server) "\306\307\310#\210  \n;\203\311\n!\202\n\307\211\211A@\211\203>\n\f\211A@)=\203\f@\307\211\202 \205Z\312 !\313>\203N \202Z\314\315 !!\210\316\f \"\307-\211\203~\312 !\317>\203m\320\321\322\217\210\314\315 !!\210 \211A@@\211\204`\323\324!)\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) #1=#:G97269 (byte-code "\306\307  \f\203\310 !\210\311 P\"\210* \312=\204$\313\314!\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 nntp-open-network-stream sleep-for 1 nntp-open-connection-function] 4) ((error)) nnoo-close-server nntp alist x] 6]) (nnoo-register-function 'nntp-close-server) (defalias 'nntp-request-close #[nil "\302 \211A@\211\205\"\303!\304>\203\305\306\307\217\210\310\311!!\210\202)\207" [process nntp-connection-list nil process-status (open run) #1=#:G97270 (byte-code "\306\307  \f\203\310 !\210\311 P\"\210* \312=\204$\313\314!\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 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\"\210\303\304\305\"\207" [server nntp-possibly-change-group nil nntp-send-command-and-decode " ?\n\\. ?\n" "LIST"] 3]) (nnoo-register-function 'nntp-request-list) (defalias 'nntp-request-list-newsgroups #[(&optional server) "\306\307\"\210\310\311C \204\f\204\212 q\210\312 \210)\313\314 \315# \n \307 !\"#;\203G\316!\202I\307\211$%&&\211A&@\211$\203z$\211'A@)=\203S$@%\307\211&\202U%\205\235\317%!\320>\203\215%\202\235\321\322%!!\210\323$#\"#\307-\206\245\324!\211%\204\264\325\326\327!#\202\314(\204\310 \204\310\212\322%!q\210\312 \210)\330\331\332\217.\n\207" [server strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-possibly-change-group nil " ?\n\\. ?\n" "LIST NEWSGROUPS" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7]) (nnoo-register-function 'nntp-request-list-newsgroups) (defalias 'nntp-request-newgroups #[(date &optional server) "\306\307\"\210\212 q\210\310\n!\211\211A@)\311\312 !8Z\211\313W\2030 \211@S\240\210 A \314\\\240\210\202K \314Y\203F \211@T\240\210 A \314Z\240\210\202K A \240\210\315\316\317\320 \"\321E$%&\204i'\204i\212 q\210\322 \210)\323\324$\325#() %&\307*+%,-./,,0,;\203\232\326,!\202\234,\307\21112,33\211A3@\2111\203\314,1\211A@)=\203\2461@2\307\2113\202\2502\205\357\3272!\330>\203\3372\202\357\331\3322!!\210\33310\"0\307-\206\367\334,!\2112\204\335\336\337.#\2024\204&\204\212\3322!q\210\322 \210)\340\341\342\217.\n\343 \210+\207" [server nntp-server-buffer date time x ls nntp-possibly-change-group nil date-to-time 8 decode-time 0 65536 "^\\. ?\n" "NEWGROUPS" format-time-string "%y%m%d %H%M%S" "GMT" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) nntp-decode-text strings wait-for nnheader-callback-function nntp-inhibit-output nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist nntp-inhibit-erase] 8]) (nnoo-register-function 'nntp-request-newgroups) (defalias 'nntp-request-post #[(&optional server) "\306\307\"\210\310\311C \204\f\204\212 q\210\312 \210)\313\314 \315# \n \307 !\"#$!!%!;\203G\316!!\202I!\307\211&'!((\211A(@\211&\203z!&\211)A@)=\203S&@'\307\211(\202U'\205\235\317'!\320>\203\215'\202\235\321\322'!!\210\323&%\"%\307-\206\245\324!!\211'\204\264\325\326\327##\202\314*\204\310 \204\310\212\322'!q\210\312 \210)\330\331\332\217.\n\205\324\333\334!\207" [server strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-possibly-change-group nil "^[23].* ?\n" "POST" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) nntp-send-buffer "^[23].*\n" nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7]) (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\212\fq\210\310 \210)\311\312\313# \f \n\314 !;\203A\315!\202C\314\211\"#$$\211A$@\211\"\203t\"\211%A@)=\203M\"@#\314\211$\202O#\205\227\316#!\317>\203\207#\202\227\320\321#!!\210\322\"!\"!\314-\206\237\323!\211#\204\256\324\325\326#\202\306&\204\302\n\204\302\212\321#!q\210\310 \210)\327\330\331\217.\n\207" [strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-address "^.*\n" "MODE READER" erase-buffer mapconcat identity " " nil get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7 (#$ . 57624)]) #@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 \n\310#\311 \312\"\311 \313\"\206 )\311 \314\"*+\203(\f\205\366)\2047\315\316\317\n\"!\211))\320\235?\205\366\321\322)D,-.\204[/\204[\2120q\210\323 \210)\324\325,\326#\n10-.\32723-45674484;\203\214\3304!\202\2164\327\2119:4 \211A@\2119\203\27349\211;A@)=\203\2279@:\327\211\202\230:\205\336\331:!\332>\203\316:\202\336\333\334:!!\210\33598\"8\327-\206\346\3364!\211:\204\365\337\340\3416#\202<\204\n.\204\n\212\334:!q\210\323 \210)\342\343\344\217.\210*\345\346*\206)=\206)\347\316\350)\n#!\211=D,-.\204A/\204A\2120q\210\323 \210)\324\325,\326#\n10-.\32723-45674484;\203r\3304!\202t4\327\2119:4 \211A@\2119\203\24149\211;A@)=\203}9@:\327\211\202~:\205\304\331:!\332>\203\264:\202\304\333\334:!!\210\33598\"8\327-\206\314\3364!\211:\204\333\337\340\3416#\202\364<\204\360.\204\360\212\334:!q\210\323 \210)\342\343\344\217.\n-\207" [nntp-authinfo-file list nntp-address alist force nntp-authinfo-user gnus-parse-netrc gnus-netrc-machine "nntp" gnus-netrc-get "force" "login" "password" read-string format "NNTP (%s) user name: " (nil "") "^3.* ?\n" "AUTHINFO USER" erase-buffer mapconcat identity " " nil get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) "^2.* ?\n" "AUTHINFO PASS" mail-source-read-passwd "NNTP (%s@%s) password: " user passwd send-if-force strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-port-number decode callback buffer port address command nntp-connection-alist entry process x nntp-inhibit-erase nntp-authinfo-password] 8 (#$ . 60098)]) #@39 Send the AUTHINFO to the nntp server. (defalias 'nntp-send-nosy-authinfo #[nil "\306\307\310\"!\211\311\235?\205\252\312\313 D\f\204% \204%\212\"q\210\314 \210)\315\316\n\317##\" \f\320$%&'()&&*&;\203R\321&!\202T&\320\211+,&--\211A-@\211+\203\205&+\211.A@)=\203^+@,\320\211-\202`,\205\250\322,!\323>\203\230,\202\250\324\325,!!\210\326+*\"*\320-\206\260\327&!\211,\204\277\330\331\332(#\202\327/\204\323\f\204\323\212\325,!q\210\314 \210)\333\334\335\217.\210*\336\337\340\341 #D\f\204\366 \204\366\212\"q\210\314 \210)\315\316\n\317##\" \f\320$%&'()&&*&;\203#\321&!\202%&\320\211+,&--\211A-@\211+\203V&+\211.A@)=\203/+@,\320\211-\2021,\205y\322,!\323>\203i,\202y\324\325,!!\210\326+*\"*\320-\206\201\327&!\211,\204\220\330\331\332(#\202\250/\204\244\f\204\244\212\325,!q\210\314 \210)\333\334\335\217.\n)\207" [nntp-address user strings wait-for nnheader-callback-function nntp-inhibit-output read-string format "NNTP (%s) user name: " (nil "") "^3.* ?\n" "AUTHINFO USER" erase-buffer mapconcat identity " " nil get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) "^2.* ?\n" "AUTHINFO PASS" mail-source-read-passwd "NNTP (%s@%s) password: " nntp-server-buffer nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 8 (#$ . 63571)]) #@150 Send the AUTHINFO to the nntp server. The authinfo login name is taken from the user's login name and the password contained in '~/.nntp-authinfo'. (defalias 'nntp-send-authinfo-from-file #[nil "\306\307!\205\265\310\311\312!!\313\216rq\210\314\307!\210eb\210\315\316\317 D \2040\f\2040\212 q\210\320 \210)\321\322 \323#$% \n \324&'()*+((,(;\203]\325(!\202_(\324\211-.(//\211A/@\211-\203\220(-\2110A@)=\203i-@.\324\211/\202k.\205\263\326.!\327>\203\243.\202\263\330\331.!!\210\332-,\",\324-\206\273\333(!\211.\204\312\334\335\336*#\202\3421\204\336 \204\336\212\331.!q\210\320 \210)\337\340\341\217.\210*\342\343`\324\210`{D \204\f\204\212 q\210\320 \210)\321\322 \323#$% \n \324&'()*+((,(;\203.\325(!\2020(\324\211-.(//\211A/@\211-\203a(-\2110A@)=\203:-@.\324\211/\202<.\205\204\326.!\327>\203t.\202\204\330\331.!!\210\332-,\",\324-\206\214\333(!\211.\204\233\334\335\336*#\202\2631\204\257 \204\257\212\331.!q\210\320 \210)\337\340\341\217. \207" [#1=#:temp-buffer strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer file-exists-p "~/.nntp-authinfo" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents "^3.* ?\n" "AUTHINFO USER" user-login-name erase-buffer mapconcat identity " " nil get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) "^2.* ?\n" "AUTHINFO PASS" nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist x nntp-inhibit-erase] 7 (#$ . 66472)]) #@52 Take care of an authinfo response from the server. (defalias 'nntp-handle-authinfo #[(process) "\n \210\212 q\210\306 \210)\f \307 \n  \203 \310 !\210\311\f \fP\"+\207" [nntp-last-command last nntp-authinfo-function nntp-server-buffer process string erase-buffer current-time nntp-record-command process-send-string nntp-last-command-time nntp-record-commands nntp-end-of-line] 4 (#$ . 69622)]) #@65 Create a new, fresh buffer usable for nntp process connections. (defalias 'nntp-make-process-buffer #[(buffer) "\212\303\304\305 \n\211\205\n;\203\306\202\307\n!)$!q\210\310 \210\311\312!\313L\210\311\314!\313L\210\311\315!\313L\210\311\316!\313L\210\311\317!\313L\210\311\320!\313L\210p)\207" [nntp-address nntp-port-number buffer generate-new-buffer format " *server %s %s %s*" get-buffer buffer-name mm-enable-multibyte make-local-variable after-change-functions nil nntp-process-wait-for nntp-process-callback nntp-process-to-buffer nntp-process-start-point nntp-process-decode] 8 (#$ . 70032)]) #@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#\312\315\316\217 \203$\317 !\210\320 !\205!\f\205!\321\f!\210\f\322\312\323./\212\324\f!q\210eb\210`f\325>\203T\326\327!\203p\330\f!\331>\203p\326\327!\203f\332\f!\210\333\f!\210eb\210\202G\326\334!\203}\335 \210\312\202\325\330\f!\336>\204\214\337\340\341\"\202\325db\210e0\342/0\323#\204\255\333\f!\210d\343Ze]0db\210\202\222)\344.?!\210 ?\205\325\212q\210db\210\345\324\f!!\2101\203\323\3121\346\347\350\"\210)\323 \204\334\351 \210)\210-\330\f!\352>\203\f\312E2B\2112\2113@@)\f4B4\212 q\210\353 \210\351 \2105q\210\3126\306\354!\210\355\323!\210*\202!\314\324\f!!\210\312+\207" [buffer pbuffer nntp-connection-timeout timer process discard run-hooks nntp-prepare-server-hook nntp-make-process-buffer nnheader-run-at-time nil lambda nntp-kill-buffer (byte-code " \f !*\207" [nntp-coding-system-for-read nntp-coding-system-for-write coding-system-for-write coding-system-for-read nntp-open-connection-function pbuffer] 2) ((error) (quit (byte-code "\301\302!\210\303!\210\304\305\306\"\210\306\207" [pbuffer message "Quit opening connection" nntp-kill-buffer signal quit nil] 3))) nnheader-cancel-timer buffer-name process-kill-without-query "^.*\n" t process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer (open run) nntp-read-server-type nntp-server-opened-hook nntp-send-authinfo decode wait-for limit nntp-have-messaged nntp-connection-alist x nntp-connection-list nntp-server-buffer nnheader-callback-function] 8 (#$ . 70646)]) (defalias 'nntp-open-network-stream #[(buffer) "\303\304 \n$\207" [buffer nntp-address nntp-port-number open-network-stream "nntpd"] 5]) (defalias 'nntp-open-ssl-stream #[(buffer) "\305\306\307 \n $\212 q\210\310\311!\210\312 \210e`|\210\f+\207" [ssl-program-arguments buffer nntp-address nntp-port-number proc ("-connect" (concat host ":" service)) open-ssl-stream "nntpd" nntp-wait-for-string "^ *20[01]" beginning-of-line] 5]) #@63 Find out what the name of the server we have connected to is. (defalias 'nntp-read-server-type #[nil "\306  \307\310\f\205H\f\211A@\311\n@\"\203 \n\211A@)<\203=\n\211A@)@\312=\204=\313\n\211A@)!\210\202 \n\211A@) \210\202 +\207" [nntp-server-type nntp-server-action-alist entry case-fold-search alist x buffer-string t nil string-match lambda eval] 4 (#$ . 72988)]) (defalias 'nntp-async-wait #[(process wait-for buffer decode callback) "\212\306!q\210 \204 \307 \210\n\f\n \f d\310\205'\311!)\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) nntp-async-kluge decode nntp-process-decode callback nntp-process-callback nntp-process-start-point after-change-functions nntp-async-needs-kluge] 2]) (defalias 'nntp-async-kluge #[(process) "\204\n\302\303\211\304#\305\306 \"\207" [nntp-async-timer process nnheader-run-at-time 1 nntp-async-timer-handler add-to-list nntp-async-process-list] 4]) (defalias 'nntp-async-timer-handler #[nil "\301\302\"\207" [nntp-async-process-list mapcar #[(proc) "\301!\302>\203\f\303!\207\304!\207" [proc process-status (open run) nntp-async-trigger nntp-async-stop] 2]] 3]) (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 ((set-match-data save-match-data-internal)) get-buffer-process nntp-async-trigger] 3]) (defalias 'nntp-async-trigger #[(process) "\212\306!q\210 \205}\nb\210g\307>\203(\310\311!\203\312!\202}\313 \210\314\315!\202}db\210\316 \n\317#\205}\320!\210\f\211\205I ;\203F\321\202G\322 !)\203sp\n\212\fq\210db\210\214``}\210\323\"\210\203r\324 \210-db\210\314\322\321\f!!!)\207" [process nntp-process-callback nntp-process-start-point nntp-process-wait-for nntp-process-to-buffer buffer process-buffer (52 53) looking-at "480" nntp-handle-authinfo nntp-snarf-error-message nntp-do-callback nil re-search-backward t nntp-async-stop get-buffer buffer-name insert-buffer-substring nntp-decode-text nntp-process-decode decode start buf] 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\"\210)\207" [message buffer-string string-match "[ \n]+" replace-match " " t nnheader-report nntp] 5 (#$ . 75602)]) #@53 Wait for output from PROCESS and message some dots. (defalias 'nntp-accept-process-output #[(process &optional timeout) "\212\306!\206q\210d\307\245\310\211\311W\204\312\313\314\315\n#\210*\316\f \206&\317\")\207" [nntp-server-buffer message-log-max len nntp-have-messaged process timeout nntp-find-connection-buffer 1024 nil 10 t nnheader-message 7 "nntp read: %dk" accept-process-output 1] 5 (#$ . 75872)]) #@58 Wait for output from the process that outputs to BUFFER. (defalias 'nntp-accept-response #[nil "\306\n ;\203\307 !\202 \310\211 \211A@\211\2035 \211A@)=\203 @\310\211\202\f\205Q\311\f!\312>\203E\f\202Q\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] 6 (#$ . 76297)]) (defalias 'nntp-possibly-change-group #[(group server &optional connectionless) "\306 \203\307 !\204\310 \306\n#\210\n\204 \311 !\204 \312 !\210)\f\205\202 \211 ;\2036\313 !\2027 \306\211  \211A @\211\203f \211!A@)=\203@@\306\211 \202B\205\211\314!\315>\203y\202\211\316\317!!\210\320\"\306-\236)\f\211!AA)@\232?\205\201\212\317@!q\210\321 \210\322\323\fD\"#\204\303$\204\303\212 q\210\321 \210)\324\325\"\326#%& #\306'(#)*+  ;\203\356\313 !\202\357 \306\211  \211A @\211\203 \211!A@)=\203\370@\306\211 \202\372\205A\314!\315>\2031\202A\316\317!!\210\320\"\306-\206H\312 !\211\204W\327\330\331*#\202o,\204k\204k\212\317!q\210\321 \210)\332\333\334\217.\210*\211!AA)\f\240\210\321 ))\207" [nnheader-callback-function server connectionless nntp-server-buffer group buffer nil nntp-server-opened nntp-open-server nntp-find-connection nntp-open-connection get-buffer process-status (open run) nntp-kill-buffer process-buffer delq erase-buffer "^[245].*\n" "GROUP" mapconcat identity " " nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((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))) nntp-connection-alist entry process alist x strings wait-for nntp-inhibit-output nntp-address nntp-port-number decode callback port address command nntp-inhibit-erase] 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 (#$ . 79481)]) #@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 (#$ . 79885)]) (defalias 'nntp-retrieve-headers-with-xover #[(articles &optional fetch-old) "q\210\306 \210 \203}\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}`\310y\210`|\210\202}\n\247\203}\325\211\317\211\326!\317#$%&'( \203\n\f\203\n\f@\fA\203\246\fA@\f@Z\nW\203\246\fA\211\202\220 ;%\307 \f@\"\210\fA \203\204%\203\204(T(\f\203\317\327()\246!\203\204\330 \210#q\210&\206\334eb\210\331\332\317\320#\203\356'T'\202\336`&'(W\203\330 \210#q\210\202\326$q\210\202\204 \203{%\203b#q\210db\210\333\334\317\320#\204/\330 \210#q\210db\210\202\313\335!\203Kdb\210\323y\210\313\336!\204K\330 \210#q\210\2025$q\210db\210\337#!\210#q\210\306 \210$q\210eb\210\315\316\317\320#\203t\340\323!\210\202eeb\210\341\342!\210. \207" [nntp-server-buffer nntp-server-xover nntp-nov-gap fetch-old articles first 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 zerop nntp-accept-response re-search-forward "^[0-9][0-9][0-9] .*\n" re-search-backward "^[0-9][0-9][0-9] " "^[23]" "^\\. ?\n" insert-buffer-substring delete-char delete-matching-lines "^\\.$\\|^[1-5][0-9][0-9] " process-buffer buf in-process-buffer-p last-point received count nntp-maximum-request] 8]) #@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 #\202o\311\313\f #\202o\211\203\\\f\314=\203\\\311\312@ #\210\212q\210eb\210\315\316!\203R\317y\210\315\320!\203R@)A\211\204)\f\314=\203m\212q\210\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]+ ..." erase-buffer nntp-xover-commands commands nntp-server-buffer] 5 (#$ . 81667)]) #@42 Wait until string arrives in the buffer. (defalias 'nntp-wait-for-string #[(regexp) "peb\210\306 \307\310#?\205u\311\n\f ;\203\312 !\202 \307\211\211A@\211\203I \211A@)=\203& @\307\211\202(\205i\313!\314>\203\\\202i\315\316!!\210\317 \f\"\307-!\210q\210eb\210\202)\207" [buf regexp nntp-server-buffer buffer nntp-connection-alist entry re-search-forward nil t accept-process-output get-buffer process-status (open run) nntp-kill-buffer process-buffer delq process alist x] 6 (#$ . 82269)]) (defalias 'nntp-open-telnet #[(buffer) "\212q\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:" mail-source-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&\212 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 (#$ . 83865)]) (defalias 'nntp-find-group-and-number #[nil "\212\214q\210eb\305\306\307\310#\206d}\210eb\210\311\312!\205\"\313\314\224\314\225{!\307\211\211\211\2035\315\f!\2035\307\316\317!\211\203H\320\321\n\"\204H\n\202h\316\322!\211\203g\f\203g\320\323\324\f\" \"\203g \314\224\314\225O\202h\325\320\326 \"\203v \327\211\224O \f.B\207" [nntp-server-buffer xref newsgroups group number search-forward "\n\n" nil t looking-at "2[0-9][0-9] +\\([0-9]+\\) " string-to-int 1 zerop mail-fetch-field "newsgroups" string-match "," "xref" format "\\([^ :]+\\):%d" "" " " 0] 6]) (provide 'nntp)