HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/url/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/url/url-news.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\304\205\304\311\312\nD@\204,A\204,\313B!\210\314\315\f\316#CBDED;\203F\317D!\202HD\320\211FGDHH\203zH\211AH\242\211F\203zDFA@=\203RF@G\320\211H\204WG\205\235\321G!\322>\203\215G\202\235\323\324G!!\210\325FE\"E\320-\211G\205\250\324G!\211D\205\265rDq\210`)IG\203UCJKB
@\320LMDNCDDED;\203\347\317D!\202\351D\320\211FGDHH\203H\211AH\242\211F\203DFA@=\203\363F@G\320\211H\204\370G\205>\321G!\322>\203.G\202>\323\324G!!\210\325FE\"E\320-\206F\326D!\211G\203O\204]@\204]\313\324G!!\210\3271\374\3301\353\3311\335C\203\240GCPG\332 QPRS\203\210\333P!\210\334GPTP\"\210\321G!\335>\206\236\336\337!*\210M\340=\203\253\341\202\327M\203\304
\203\304\342G
DLM%\210\341\202\327
\203\326G
DL\320ULDGr\324G!q\210eb\210`f\343>\203\360\344\345!\2035\321G!\346>\2035\344\347!\203\350G!\210\202*\344\351!\203\352\353\354\355\356N#\210\357\355\320\"\210\202*\344\360!\203*`\361y\210`|\210\362G!\210eb\210\202\343\344\363!\203B\364 \210\320\202\307\321G!\365>\204Q\336\337!\202\307db\210e\320VW\366
W\341#\204u\362G!\210d\367Ze]Wdb\210\202Z\370\371!VrBq\210VX+\372L?!\210U\204\306rDq\210db\210Y\203\255r\324G!q\210\373\374 !)c\210\202\266\375\324G!\320\211#\210Z\203\305\320Z\376\377\201_\"\210)\341U\204\321\201` \210.\202\327\341000\20200[\357\355[A\")\2020[\352\353\201aN[$)\202[\201b\201c!\210\357\201d\320\"\210)\320\202\352\353\201eN#.
\204]\\\204]]^>\204]\201f \210rDq\210Ib\210\344\201gC!!\203QI\361y\210\201h |\210)\202]\352\353\201iJ#.\210\311\201jD@\204wA\204w\313B!\210\314\315\f\316#CBDED;\203\221\317D!\202\223D\320\211FGDHH\203\305H\211AH\242\211F\203\305DFA@=\203\235F@G\320\211H\204\242G\205\350\321G!\322>\203\330G\202\350\323\324G!!\210\325FE\"E\320-\211G\205\363\324G!\211D\205rDq\210`)IG\203\240CJKB
@\320LMDNCDDED;\2032\317D!\2024D\320\211FGDHH\203fH\211AH\242\211F\203fDFA@=\203>F@G\320\211H\204CG\205\211\321G!\322>\203yG\202\211\323\324G!!\210\325FE\"E\320-\206\221\326D!\211G\203]O\204\250@\204\250\313\324G!!\210\3271G\33016\3311(C\203\353GCPG\332 QPRS\203\323\333P!\210\334GPTP\"\210\321G!\335>\206\351\336\337!*\210M\340=\203\366\341\202\"M\203
\203\342G
DLM%\210\341\202\"
\203!G
DL\320ULDGr\324G!q\210eb\210`f\343>\203;\344\345!\203\200\321G!\346>\203\200\344\347!\203R\350G!\210\202u\344\351!\203h\352\353\354\355\356N#\210\357\355\320\"\210\202u\344\360!\203u`\361y\210`|\210\362G!\210eb\210\202.\344\363!\203\215\364 \210\320\202\321G!\365>\204\234\336\337!\202db\210e\320VW\366
W\341#\204\300\362G!\210d\367Ze]Wdb\210\202\245\370\371!VrBq\210VX+\372L?!\210U\204rDq\210db\210Y\203\370r\324G!q\210\373\374 !)c\210\202\375\324G!\320\211#\210Z\203\320Z\376\377\201_\"\210)\341U\204\201` \210.\202\"\341000\202e00[\357\355[A\")\202e0[\352\353\201aN[$)\202e[\201b\201c!\210\357\201d\320\"\210)\320\202e\352\353\201eN#.
\204\250\\\204\250]^>\204\250\201f \210rDq\210Ib\210\344\201gC!!\203\234I\361y\210\201h |\210)\202\250\352\353\201iJ#.\210\201k!?\205\304\201l\201m\201n\201o\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 (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 string-to-multibyte buffer-string insert-buffer-substring nnheader-message 5 nnheader-callback-function nntp-inhibit-output nntp-server-buffer command buffer nntp-connection-alist entry process alist pos nntp-address nntp-port-number decode callback address nntp-inhibit-erase string nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line discard response limit nntp-process-response enable-multibyte-characters nntp-have-messaged err nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands "" erase-buffer "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s." "AUTHINFO PASS" nntp-server-opened url-warn url format "NNTP authentication to `%s' as `%s' failed"] 7])
(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" "<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 feel this is an error, M-x report-emacs-bug RET.\n" "  </div>\n" " </body>\n" "</html>\n" "<!-- Automatically generated by URL v" " -->\n"] 24])
(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) "\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)