;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:23 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-news.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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\210\305\310\311\"\210\312\313\314\315\316\317%\207" [require url-vars url-util url-parse nntp autoload url-warn "url" gnus-group-read-ephemeral-group "gnus-group" custom-declare-group url-news nil "News related options." :group url] 6)
(defalias 'url-news-open-host #[(host port user pass) "\306\307!\203	\307 \210\310	C\"\210\n\205\\\205\\\311\312\nD+\204,,\204,\313-!\210\314\315\f\316#.-/0/;\203F\317/!\202H/\320\21112/33\203~3\211A3@\2111\203~/1\2114A@)=\203R1@2\320\2113\204W2\205\241\3212!\322>\203\2212\202\241\323\3242!!\210\32510\"0\320-\2112\205\254\3242!\211/\205\271r/q\210`)52\203\251
.67-
+\32089/:.//0/;\203\353\317/!\202\355/\320\21112/33\203#
3\211A3@\2111\203#
/1\2114A@)=\203\3671@2\320\2113\204\3742\205F
\3212!\322>\2036
2\202F
\323\3242!!\210\32510\"0\320-\206N
\326/!\2112\203m
;\204e
+\204e
\313\3242!!\210\327\330\331\217\210\202t
\332\333\334:#\210.
\204\260
<\204\260
=>>\204\260
\335 \210r/q\2105b\210\336\337.!!\203\245
5\340y\210\341 |\210)\202\260
\332\333\3426#\210.\311\343D+\204\307
,\204\307
\313-!\210\314\315\f\316#.-/0/;\203\341
\317/!\202\343
/\320\21112/33\2033\211A3@\2111\203/1\2114A@)=\203\355
1@2\320\2113\204\362
2\205<\3212!\322>\203,2\202<\323\3242!!\210\32510\"0\320-\2112\205G\3242!\211/\205Tr/q\210`)52\203D.67-
+\32089/:.//0/;\203\206\317/!\202\210/\320\21112/33\203\2763\211A3@\2111\203\276/1\2114A@)=\203\2221@2\320\2113\204\2272\205\341\3212!\322>\203\3212\202\341\323\3242!!\210\32510\"0\320-\206\351\326/!\2112\203;\204+\204\313\3242!!\210\327\344\345\217\210\202\332\333\334:#\210.
\204K<\204K=>>\204K\335 \210r/q\2105b\210\336\337.!!\203@5\340y\210\341 |\210)\202K\332\333\3426#\210.\346!?\205\\\347\350\351\352\n#\"\207" [host port user pass strings wait-for 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 err (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\204)\313\314!\210*2\315=\204N
2\203J3\203J\316	3452%\210\202N
3\203N
	345\3176543r\320	!q\210eb\210`f\321>\203v\322\323!\203\270\311	!\324>\203\270\322\325!\203\213\326	!\210\202\256\322\327!\203\241\330\331\332\333\334N#\210\335\333\317\"\210\202\256\322\336!\203\256`\337y\210`|\210\340	!\210eb\210\202i\322\341!\203\304\342 \210\202D
\311	!\343>\204\323\313\314!\210\202D
db\210e\31778\34438\345#\204\367\340	!\210d\346Ze]8db\210\202\334\347\350!7r9q\2107:+\3515?!\2106\204D
r4q\210db\210;\203.
r\320	!q\210\352\353 !)c\210\2026
\354\320	!\317\211#\210<\203C
\317<\355\356\357\"\210)6\204L
\360 \210.\317\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status #1=(open run) nntp-report #2="Server closed connection" ignore nntp-async-wait nil process-buffer #3=(50 51 52 53) looking-at #4="48[02]" #5=(open run) #6="480" nntp-handle-authinfo #7="482" nnheader-report nntp #8="%s" nntp-authinfo-rejected error-message signal #9="^.*\n" 1 nntp-accept-process-output #10="[45]" nntp-snarf-error-message #11=(open run) re-search-backward t 1000 match-string 0 nntp-decode-text mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 #12="" 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 #13="Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\207" [message #14="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." "AUTHINFO PASS" (byte-code "\203*	\306 \n
\203\307\n!\210\310	\n1P\"\210\311	!\312>\204)\313\314!\210*2\315=\204N
2\203J3\203J\316	3452%\210\202N
3\203N
	345\3176543r\320	!q\210eb\210`f\321>\203v\322\323!\203\270\311	!\324>\203\270\322\325!\203\213\326	!\210\202\256\322\327!\203\241\330\331\332\333\334N#\210\335\333\317\"\210\202\256\322\336!\203\256`\337y\210`|\210\340	!\210eb\210\202i\322\341!\203\304\342 \210\202D
\311	!\343>\204\323\313\314!\210\202D
db\210e\31778\34438\345#\204\367\340	!\210d\346Ze]8db\210\202\334\347\350!7r9q\2107:+\3515?!\2106\204D
r4q\210db\210;\203.
r\320	!q\210\352\353 !)c\210\2026
\354\320	!\317\211#\210<\203C
\317<\355\356\357\"\210)6\204L
\360 \210.\317\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string process-status #1# nntp-report #2# ignore nntp-async-wait nil process-buffer #3# looking-at #4# #5# #6# nntp-handle-authinfo #7# nnheader-report nntp #8# nntp-authinfo-rejected error-message signal #9# 1 nntp-accept-process-output #10# nntp-snarf-error-message #11# re-search-backward t 1000 match-string 0 nntp-decode-text mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 #12# 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 #13#] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\207" [message #14# signal quit nil] 3))) nntp-server-opened url-warn url format "NNTP authentication to `%s' as `%s' failed" nnheader-callback-function nntp-inhibit-output nntp-server-buffer command buffer nntp-connection-alist entry process alist x pos nntp-address nntp-port-number decode callback address nntp-inhibit-erase nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands] 8])
(defalias 'url-news-fetch-message-id #[(host message-id) "\305\306!	\211GSH\307=\204\310	\311Q\312	\313\n$\243\204Arq\210\314\315\316\317\320\321\322\323\324\325\326\327\330 \331\332\324\333\334\335\332\336\337\340\341\f\342\261\210))\207" [buf message-id host url-bug-address url-version generate-new-buffer " *url-news*" 62 "<" ">" nntp-request-article nil "Content-type: text/html\n\n" "<html>\n" " <head>\n" "  <title>Error</title>\n" " </head>\n" " <body>\n" "  <div>\n" "   <h1>Error requesting article...</h1>\n" "   <p>\n" "    The status message returned by the NNTP server was:" "<br><hr>\n" "    <xmp>\n" nntp-status-message "    </xmp>\n" "   </p>\n" "    If you If you feel this is an error, <a href=\"" "mailto:" "\">send mail</a>\n" "  </div>\n" " </body>\n" "</html>\n" "<!-- Automatically generated by URL v" " -->\n"] 27])
(defalias 'url-news-fetch-newsgroup #[(newsgroup host) "\305\306\"\203
\307\225\310O\305\311\"\203\307\211\224O\312	!\203+r	q\210\n)\313=\204.\314 \210	q\210eb\210\315\316\304\fDE\310p\317B$\207" [newsgroup gnus-group-buffer major-mode host nntp-open-connection-function string-match "^/+" 0 nil "/+$" get-buffer gnus-group-mode gnus gnus-group-read-ephemeral-group nntp browse] 6])
(defalias 'url-news #[(url) "\306H	>\204\307\310\311\300#\210\312H\206\n\211\306H	>\204&\307\310\313\300#\210\f\314H\206T\f\306H	>\204:\307\310\315\300#\210\f\316H\205T\317\f\306H	>\204O\307\310\315\300#\210\f\316H\320\")\321\211 !\322\306H	>\204k\307\310\323\300#\210\324H!\"\325
\306H	>\204\202\307\310\326\300#\210\327H\306H	>\204\223\307\310\330\300#\210\331H$\210\332\333\"\"\203\252\334\"\"!\202\275\"\335\230\203\267\336 \210\202\275\337\"\"\210!-\207" [url cl-struct-url-tags url-news-server host urlobj port 0 error "%s accessing a non-%s" url-host 4 url-portspec 5 url-type 1 url-scheme-get-property default-port nil url-unhex-string url-filename 6 url-news-open-host url-user 2 url-password 3 string-match "@" url-news-fetch-message-id "" gnus url-news-fetch-newsgroup article-brackets 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)