;ELC ;;; Compiled ;;; in Emacs version 27.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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\210\305\310\311\"\207" [require url-vars url-util url-parse nntp autoload url-warn "url" gnus-group-read-ephemeral-group "gnus-group"] 3) (defalias 'url-news-open-host #[(host port user pass) "\306\307!\203 \307 \210\310 C\"\210\n\205\234 \205\234\311\312\nD\f\204( \204(\313@!\210\314\315\316#@A;\203<\317!\202=\320\211\203a\211A\262\242\211\262\203aA@=\203?\211@\262\320\262\202?\205\321!\322>\203q\202\323\324!!\210\325A\"A\320\266\205\211\205\210\324!\211\205\222r\211q\210`)\203\302BC@ \f\320A;\203\257\317!\202\260\320\211\203\324\211A\262\242\211\262\203\324A@=\203\262\211@\262\320\262\202\262\205\362\321!\322>\203\344\202\362\323\324!!\210\325A\"A\320\266\205\206\372\326!\211\203\201D\204 \f\204 \313\324!!\210\3271l\3301]\3311Q\203F\211\332 E\211FG\2031\333!\210\334HP\"\210\321!\335>\206D\336\337!\266\340=\203P\341\202K\203f\203f\342%\210\341\202K\203J\211\320r\324!q\210eb\210`f\343>\203\206\344\345!\203\310\321!\346>\203\310\344\347!\203\233\350!\210\202\276\344\351!\203\261\352\353\354\355\356N#\210\357\355\320\"\210\202\276\344\360!\203\276`\361y\210`|\210\362!\210eb\210\202y\344\363!\203\325\364 \210\320\202=\321!\365>\204\343\336\337!\202=db\210e\320\366\341#\204\362!\210d\367Ze]\262db\210\202\350\370\371!\262r@q\210\211I)\266\372?!\210\211\204<rq\210db\210r\324!q\210\373 )c\210J\203;\320J\374\375\376\"\210)\341\204D\377 \210)\266\205\202K\341000\202\21100\357\355A\"\262\202\2110\352\353\201N\n$\262\202\211\201O\201P!\210\357\201Q\320\"\210\320\262\202\211\352\353\201R #\266\210\204\312K\204\312LM>\204\312\201S \210rq\210b\210\344\201T!!\203\276\361y\210\201U |\210)\202\312\352\353\201VB#\266\311\201W D\f\204\337 \204\337\313@!\210\314\315\316#@A;\203\363\317!\202\364\320\211\203\211A\262\242\211\262\203A@=\203\366\211@\262\320\262\202\366\2056\321!\322>\203(\2026\323\324!!\210\325A\"A\320\266\205\211\205?\324!\211\205Ir\211q\210`)\203yBC@ \f\320A;\203f\317!\202g\320\211\203\213\211A\262\242\211\262\203\213A@=\203i\211@\262\320\262\202i\205\251\321!\322>\203\233\202\251\323\324!!\210\325A\"A\320\266\205\206\261\326!\211\2038D\204\304\f\204\304\313\324!!\210\3271#\3301\3311\203\375\211\332 E\211FG\203\350\333!\210\334HP\"\210\321!\335>\206\373\336\337!\266\340=\203\341\202\203\203\342%\210\341\202\203\211\320r\324!q\210eb\210`f\343>\203=\344\345!\203\321!\346>\203\344\347!\203R\350!\210\202u\344\351!\203h\352\353\354\355\356N#\210\357\355\320\"\210\202u\344\360!\203u`\361y\210`|\210\362!\210eb\210\2020\344\363!\203\214\364 \210\320\202\364\321!\365>\204\232\336\337!\202\364db\210e\320\366\341#\204\272\362!\210d\367Ze]\262db\210\202\237\370\371!\262r@q\210\211I)\266\372?!\210\211\204\363rq\210db\210r\324!q\210\373 )c\210J\203\362\320J\374\375\376\"\210)\341\204\373\377 \210)\266\205\202\341000\202@00\357\355A\"\262\202@0\352\353\201N\n$\262\202@\201O\201P!\210\357\201Q\320\"\210\320\262\202@\352\353\201R #\266\210\204\201K\204\201LM>\204\201\201S \210rq\210b\210\344\201T!!\203u\361y\210\201U |\210)\202\201\352\353\201VB#\266\201X!?\205\234\201Y\201Z\201[\201\\\n#\"\207" [host port user pass nnheader-callback-function nntp-inhibit-output fboundp nnheader-init-server-buffer nntp-open-server "^.* ?\n" "AUTHINFO USER" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer nntp-server-buffer nntp-connection-alist nntp-address nntp-port-number nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s." "AUTHINFO PASS" nntp-server-opened url-warn url format "NNTP authentication to `%s' as `%s' failed"] 25]) (defalias 'url-news-fetch-message-id #[(host message-id) "\304\305! \211GSH\306=\204\307 \310Q\311 \312\n$\243\204>rq\210\313\314\315\316\317\320\321\322\323\324\325\326\327 \330\331\323\332\331\333\334\335\336 \337\261\210))\207" [buf message-id host url-version generate-new-buffer " *url-news*" 62 "<" ">" nntp-request-article nil "Content-type: text/html\n\n" "\n" " \n" " Error\n" " \n" " \n" "
\n" "

Error requesting article...

\n" "

\n" " The status message returned by the NNTP server was:" "


\n" " \n" nntp-status-message " \n" "

\n" " If you feel this is an error, M-x report-emacs-bug RET.\n" "
\n" " \n" "\n" "\n"] 24]) (defalias 'url-news-fetch-newsgroup #[(newsgroup host) "\305\306\"\203 \307\310\225\"\305\311\"\203\307\310\211\224#\312 !\203,r q\210\n)\313=\204/\314 \210 q\210eb\210\315\316 \304\fDE\317p\320B$\207" [newsgroup gnus-group-buffer major-mode host nntp-open-connection-function string-match "^/+" substring 0 "/+$" get-buffer gnus-group-mode gnus gnus-group-read-ephemeral-group nntp nil browse] 6]) (defalias 'url-news #[(url) "\306! >\204\307\310\300D\"\210\311H\206\n\306! >\204'\307\310\300D\"\210\211\312H\206W\306! >\204<\307\310\300D\"\210\211\313H\205W\314\306! >\204R\307\310\300D\"\210\313H\315\"\262\316\211\317\306! >\204o\307\310\300D\"\210\320H!\321 \f\306! >\204\207\307\310\300D\"\210\322H\306! >\204\231\307\310\300D\"\210\323H$\210\324\325\"\203\260\326 \"\202\303\327\230\203\275\330 \210\202\303\331 \"\210-\207" [url cl-struct-url-tags url-news-server host port article-brackets type-of signal wrong-type-argument 4 5 1 url-scheme-get-property default-port nil url-unhex-string 6 url-news-open-host 2 3 string-match "@" url-news-fetch-message-id "" gnus url-news-fetch-newsgroup buf article] 9]) (defalias 'url-snews #[(url) "\303=\203\n\304\202 \305\306\n!)\207" [url-gateway-method nntp-open-connection-function url ssl nntp-open-ssl-stream nntp-open-tls-stream url-news] 2]) (provide 'url-news)