%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\304\305\306\"\210\304\307\310\"\210\304\311\310\"\210\304\312\310\"\210\304\313\310\"\210\314\315\316\317\320\321\322\323&\210\314\324\316\325\326\327\320\321\322\323& \210\314\330\316\331\326\327\320\321\322\323& \210\314\332\316\333\326\334\320\321\322\335& \210\314\336\316\337\320\340\322\341&\210\342\336\343\327#\207" [require gnus message gnus-range autoload gnus-run-hook-with-args "gnus-util" gnus-agent-expire "gnus-agent" gnus-agent-regenerate-group gnus-agent-read-servers-validate-native gnus-agent-possibly-synchronize-flags-server custom-declare-variable gnus-open-server-hook nil "Hook called just before opening connection to the news server." :group gnus-start :type hook gnus-after-set-mark-hook "Hook called just after marks are set in a group." :version "24.1" gnus-before-update-mark-hook "Hook called just before marks are updated in a group." gnus-server-unopen-status "The default status if the server is not able to open.\nIf the server is covered by Gnus agent, the possible values are\n`denied', set the server denied; `offline', set the server offline;\nnil, ask user. If the server is not covered by Gnus agent, set the\nserver denied." "22.1" (choice (const :tag "Ask" nil) (const :tag "Deny server" denied) (const :tag "Unplug Agent" offline)) gnus-nntp-server "The name of the host running the NNTP server." gnus-server (choice (const :tag "disable" nil) string) make-obsolete-variable gnus-select-method] 10)
#@39 The current method, for the registry.
(defvar gnus-internal-registry-spool-current-method nil (#$ . 1906))
#@68 Check whether a connection to GNUS-COMMAND-METHOD has been opened.
(defalias 'gnus-server-opened #[(gnus-command-method) "\306!\307=?\205W;\203O\211\203 \211<\203 \211\206L\310 \"A\206L\211\311\232\203. \n\2068\310 \"A\2068\310\f\"A\2068
\211\203\\ \312\313@@@@@A@#\232\204\\ \211A\266\202\202? \211@@\262\2068 \211\203\201 \312\313@@@A@#\232\204\201 \211A\266\202\202f \211@\262\2068 A\314\211\2036\211A\262\242\3158\262\262;\204\215 \314\316C\3172'\211\242\206\264 \n\240\210\204\313 \320\321\322\323\324\325!\326\"\315\327% \"\210 \fD\211\203\354 \211@\320\321\322\330\324\325!\331\"\315\327%\"\210A\266\202\202\316 \210\211\242A@\332\235\203\377 \312\333\242@\"\202 \312\313\242@\242A@#\211\242B\211 \235\204#\204#\310@ \"\204#\211 B\266\2020\266\204\232\203\215 \262\314\262\202\215 \266\202\211\203I\310 \"\204IB B\211\262\262\334\335\"A@!\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-server-status denied assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function server-opened gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 2019)])
#@169 Return the status message from GNUS-COMMAND-METHOD.
If GNUS-COMMAND-METHOD is a string, it is interpreted as a group
name. The method this group uses will be queried.
(defalias 'gnus-status-message #[(gnus-command-method) ";\203 \301!\202\f \302\303\"A@!)\207" [gnus-command-method gnus-find-method-for-group gnus-get-function status-message] 3 (#$ . 3525)])
#@99 Open a method for getting news.
If CONFIRM is non-nil, the user will be asked for an NNTP server.
(defalias 'gnus-start-news-server #[(&optional confirm) "\306 ?\205\267 \n\203 \307\310 \311\304!\205 \fB\306 $ \203[ ;\203[ \312\230\204[ \312\230\2045 \313\230\203< \314\315 D\202Z \316\317 \"\203W \320 \321\322\323\324 \325\"\326\"!D\327\306DF\202Z \330 D
@\211\331\267\202| \332\314!\210\333\334\335\"\210\202\200 \332\320!\210\333\334\336\"\210\202\200 \332\330!\210
\337\340!\210*\203\217 \341
!\210\342
!\206\267 \343
!\206\267 +\206\267 \344\345\346
@
A@\347
!$!\206\267 \350\325\351
A@#)\207" [how gnus-current-select-method confirm gnus-nntp-server gnus-secondary-servers gnus-select-method nil gnus-completing-read "NNTP server" boundp "" "::" nnspool system-name string-match "^:" nnmh nnmh-directory file-name-as-directory expand-file-name substring 1 "~/" nnmh-get-new-mail nntp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nnspool 100 nnmh 112)) require gnus-message 5 "Looking up local news spool..." "Looking up mh spool..." gnus-run-hooks gnus-open-server-hook gnus-agent-read-servers-validate-native gnus-server-opened gnus-open-server gnus-y-or-n-p format-message "%s (%s) open error: `%s'. Continue? " gnus-status-message gnus-error "Couldn't open server on %s" gnus-agent gnus-batch-mode] 9 (#$ . 3898)])
#@63 Try to make sure that the server where GROUP exists is alive.
(defalias 'gnus-check-group #[(group) "\302!\303 !\206
\304 !)\207" [group method gnus-find-method-for-group gnus-server-opened gnus-open-server] 2 (#$ . 5284)])
#@129 Check whether the connection to METHOD is down.
If METHOD is nil, use `gnus-select-method'.
If it is down, start it up (again).
(defalias 'gnus-check-server #[(&optional method silent) "\206 \306\211;\203O\211\203 \211<\203 \211\206L\307 \"A\206L\211\310\232\203- \2068\307\f\"A\2068\307
\"A\2068(\211\203\\ \311\312@@@@@A@#\232\204\\ \211A\266\202\202? \211@@\262\2068)\211\203\201 \311\312@@@A@#\232\204\201 \211A\266\202\202f \211@\262\2068*A\306\211\2036\211A\262\242\3138\262\262;\204\215 \306\314C\3152'\211\242\206\264 \240\210\204\313 \316\317\320\321\322\323!\324\"\313\325% \"\210\f
D\211\203\354 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\316 \210\211\242A@\330\235\203\377 \311\331\242@\"\202 \311\312\242@\242A@#\211\242B\211 \235\204#\204#\307@ \"\204#\211 B\266\2020\266\204\232\203\215 \262\306\262\202\215 \266\202\211\203I\307 \"\204IB B\211\262\262\332!\203Y\314\202\265+\204w\333\334\335@A@\336\232\203o\336\202u\311\337A@\"$\210\340\341!\210\342!\211+\204\265\333\n\203\216\334\202\217\343\344@A@\336\232\203\236\336\202\244\311\337A@\"\n\203\254\345\202\263\311\346\347@!\"%\210*\207" [method gnus-select-method result gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist nil assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-opened gnus-message 5 "Opening %s server%s..." #1# " on %s" gnus-run-hooks gnus-open-server-hook gnus-open-server 3 "Opening %s server%s...%s" "done" "failed: %s" nnheader-get-report-string gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist silent] 19 (#$ . 5518)])
#@56 Return a function symbol based on METHOD and FUNCTION.
(defalias 'gnus-get-function #[(method function &optional noerror) "\204 \306\307!\210;\203N\211\203 \211<\203 \211\206K\310 \"A\206K\211\311\232\203- \n\2067\310 \"A\2067\310\f\"A\2067
\211\203[ \312\313@@@@@A@#\232\204[ \211A\266\202\202> \211@@\262\2067&\211\203\200 \312\313@@@A@#\232\204\200 \211A\266\202\202e \211@\262\2067'A\314\211\2035\211A\262\242\3158\262\262;\204\214 \314\316C\3172&\211\242\206\263 \n\240\210\204\312 \320\321\322\323\324\325!\326\"\315\327% \"\210 \fD\211\203\353 \211@\320\321\322\330\324\325!\331\"\315\327%\"\210A\266\202\202\315 \210\211\242A@\332\235\203\376 \312\333\242@\"\202\312\313\242@\242A@#\211\242B\211 \235\204\"\204\"\310@ \"\204\"\211 B\266\2020\266\204\232\203\214 \262\314\262\202\214 \266\202\211\203H\310 \"\204HB B\211\262\262(\203i\334!\203`@\202e\335\336!\210\336)\202k@\211 )\337N *+*\236\211 ,\204\226+\340\312\341)+#!B,\342)\337,*B#\210,A) -\343-!\204\311@\204\254\306\344!\210\335@!\210\343-!\204\311.\203\303\314-\202\311\306\345-\"\210-+\207" [method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers error "Attempted use of a nil select method" assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-online require nnagent gnus-method-functions intern "%s-%s" put fboundp "Trying to require a method that doesn't exist" "No such function: %s" gnus-secondary-select-methods gnus-newsrc-alist gnus-agent method-sym method-fns function method-fnlist-elt func noerror] 19 (#$ . 7476)])
(defalias 'gnus-method-denied-p #[(method) "\302 \"A@\303=\207" [method gnus-opened-servers assoc denied] 3])
(defvar gnus-backend-trace nil)
(defvar gnus-backend-trace-elapsed nil)
(defalias 'gnus-backend-trace #[(type form) "\205. r\304\305!q\210\306 \210db\210\307\310!\311\312 \247\203\" \313\314 !!\202# \315\n $\261\210\313 \211)\207" [gnus-backend-trace gnus-backend-trace-elapsed type form get-buffer-create "*gnus trace*" buffer-disable-undo format-time-string "%H:%M:%S" format " %.2fs %s %S\n" float-time time-since 0] 6])
#@43 Open a connection to GNUS-COMMAND-METHOD.
(defalias 'gnus-open-server #[(gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/5\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/6A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"\210\306
\"\310\331@\"\306\310\331@\"\334\335!\"\204j\3367\"\205~A@\205~A@\337\230?\205~\340A@PP\262 8\211 9A@\341=\203\230\342\343\3448#\210\312\202g\345\346\" :\3471\307\3501\264:A@AA\"00\202\3360 ;\342\343\3518\352;!$\210)\312\202\336 ;<\203\325\353\354!\210\202\334\342\343\3558#\210)\312 =\312 >9\204\361\312D\2119
B9A=\203:\356=\203\357\2024\360\2024?\2033\361!\2033@\203#@\357=>@\2024A\204/\314>\357\2024\341\2024\341\240\210>\203E\341 @\362!)\202f9A@\360=\203_?\203_\361!\203_\212\363!\210)\332\364\"\210=+*\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-backend-trace :opening gnus-methods-using address gnus-server-equal #1# "+" denied gnus-message 1 "Server %s previously determined to be down; not retrying" gnus-get-function open-server (quit) (error) "Unable to open server %s due to: %s" error-message-string debug "Quit" "Quit trying to open server %s" nnagent-open-server offline ok gnus-agent-method-p gnus-open-server gnus-agent-possibly-synchronize-flags-server :opened gnus-secondary-select-methods gnus-newsrc-alist gnus-message-archive-method server elem open-server-function err debug-on-quit result open-offline gnus-agent gnus-server-unopen-status gnus-batch-mode] 19 (#$ . 9956)])
#@46 Close the connection to GNUS-COMMAND-METHOD.
(defalias 'gnus-close-server #[(gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"A@AA\"\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function close-server gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 12521)])
#@51 Request the active file from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-list #[(gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"A@!\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-list gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 13955)])
#@49 Read and update infos from GNUS-COMMAND-METHOD.
(defalias 'gnus-finish-retrieve-group-infos #[(gnus-command-method infos data) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"\210\334\335\"A@!\"#\332\336\"\210\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-backend-trace :finishing gnus-get-function finish-retrieve-group-infos :finished gnus-secondary-select-methods gnus-newsrc-alist infos data] 18 (#$ . 15390)])
#@63 Start early async retrieval of data from GNUS-COMMAND-METHOD.
(defalias 'gnus-retrieve-group-data-early #[(gnus-command-method infos) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"A@ \"\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function retrieve-group-data-early gnus-secondary-select-methods gnus-newsrc-alist infos] 18 (#$ . 16950)])
#@55 Request the newsgroups file from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-list-newsgroups #[(gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"A@!\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-list-newsgroups gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 18438)])
#@61 Request all new groups since DATE from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-newgroups #[(date gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\314#\211 \205Y A@\")\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-newgroups gnus-secondary-select-methods gnus-newsrc-alist func date] 19 (#$ . 19899)])
#@53 Request a data generation from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-regenerate #[(gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"A@!\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-regenerate gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 21390)])
(defalias 'gnus-request-compact-group #[(group) "\304!\211\305\n\306\"\307\310 \"\203 \311 \312\225\"\202 )\nA@\313#*\207" [group method gnus-command-method gname gnus-find-method-for-group gnus-get-function request-compact-group string-match "^[^:]+:" substring 0 t] 5])
#@53 Request groups compaction from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-compact #[(gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"A@!\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-compact gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 23119)])
#@60 Request GROUP. If DONT-CHECK, no information is required.
(defalias 'gnus-request-group #[(group &optional dont-check gnus-command-method info) "\206\252 \306\n\206\250\204 \206\250\307\f\"\204\212\310\311\"\2033 \312\313\314\315\"\314\316\"\206/ \317#\202; \312\313 @ A@#\262\211\203J \211<\203J \211\206\320
\"A\206\211\321\232\203\\ \206k\320@\"A\206k\320A\"A\206kB\211\203\215 \312\313@@@@@A@#\232\204\215 \211A\266\202\202p \211@@\262\206kC\211\203\262 \312\313@@@A@#\232\204\262 \211A\266\202\202\227 \211@\262\206kDA\306\211\203i\211A\262\242\3228\262\262;\204\276 \306\323C\3242Z\211\242\206\345 \240\210\204\374 \325\326\327\330\331\332!\333\"\322\334%
\"\210@AD\211\203 \211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202\210\211\242A@\337\235\2032\312\340\242@\"\202<\312\313\242@\242A@#\211\242B\211
\235\204V\204V\320@
\"\204V\211
B\266\2020\266\204\232\203\276 \262\306\262\202\276 \266\202\211\203|\320
\"\204|B
B\211\262\262\206\250\341!\206\250\211\206\227\307\f\"A@\262\306\203\253\3228\211\262\203\253\211\321\232\203\257 \202\246\211;\203\374\211\211\203\302\211<\203\302\211\206\367\320
\"A\206\367\211\321\232\203\324 \206\343\320@\"A\206\343\320A\"A\206\343B\211\203\312\313@@@@@A@#\232\204\211A\266\202\202\350\211@@\262\206\343C\211\203*\312\313@@@A@#\232\204*\211A\266\202\202\211@\262\206\343DA\306\211\203\341\211A\262\242\3228\262\262;\2046\306\323C\3242\322\211\242\206] \240\210\204t\325\326\327\330\331\332!\333\"\322\334%
\"\210@AD\211\203\227\211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202y\210\211\242A@\337\235\203\252\312\340\242@\"\202\264\312\313\242@\242A@#\211\242B\211
\235\204\316\204\316\320@
\"\204\316\211
B\266\2020\266\204\232\2036\262\306\262\2026\266\202\211\203\364\320
\"\204\364B
B\211\262\262\202U\211A@;\203T\211\342\343@!\344P!\211AA\236\204 \345A@DC\"\262\210E\306\211\211\204\307\211A\262\242\211\262\203\307@@=\203$\346AA!\346AA!\306\211\3472\274\211A\262\242\211\262\203\271@\236\211\262\204i\350\347\306\"\210\351\"\262\232\204NA@;\203\203\211A@;\204\213\350\347\306\"\210\202NA@A@\310\352\"\203\235\353!\262\310\352\"\203\251\353!\262\232\204\264\350\347\306\"\210\266\202N?0\266\206\203$\262\202$\266\203\206U\211B\306\203\203\211A\262\242@\262@@\232\203\322A@A@\232\203\322\354\"\204\322\306\262\202\322?\266\203\203\211AA\204\262\202U\342\312\355@\"!\211AA\236\2033@A@\356QAABB\202F@A@\356QA@DAABBB\262EBE\266\203\202U\211\262\211A@\317\232\203c\211\202\246\211A@\204p\211@\317D\202\246\211\343@!\357\320F\">\203\243\342\344P!\236\204\243\360@F\236>\203\243\345\342\344P!A@DC\"\202\244\266\202\266\202\266\202\211;\203\366\211\203\276\211<\203\276\211\206\363\320
\"A\206\363\211\321\232\203\320 \206\337\320@\"A\206\337\320A\"A\206\337B\211\203\312\313@@@@@A@#\232\204\211A\266\202\202\344\211@@\262\206\337C\211\203&\312\313@@@A@#\232\204&\211A\266\202\202 \211@\262\206\337DA\306\211\203\335\211A\262\242\3228\262\262;\2042\306\323C\3242\316\211\242\206Y \240\210\204p\325\326\327\330\331\332!\361\"\322\334%
\"\210@AD\211\203\223\211@\325\326\327\335\331\332!\362\"\322\334%\"\210A\266\202\202u\210\211\242A@\363\235\203\246\312\340\242@\"\202\260\312\313\242@\242A@#\211\242B\211
\235\204\312\204\312\320@
\"\204\312\211
B\266\2020\266\204\232\2032\262\306\262\2022\266\202\211\203\360\320
\"\204\360B
B\211\262\262\364\306 G H\211 I\204\365\366!\210I;\203UI\211\203 \211<\203 \211\206Q\320
\"A\206Q\211\321\232\203. \206=\320@\"A\206=\320A\"A\206=B\211\203_\312\313@@@@@A@#\232\204_\211A\266\202\202B\211@@\262\206=C\211\203\204\312\313@@@A@#\232\204\204\211A\266\202\202i\211@\262\206=DA\306\211\203;\211A\262\242\3228\262\262;\204\220\306\323C\3242,\211\242\206\267 \240\210\204\316\325\326\327\330\331\332!\361\"\322\334%
\"\210@AD\211\203\361\211@\325\326\327\335\331\332!\362\"\322\334%\"\210A\266\202\202\323\210\211\242A@\363\235\203\312\340\242@\"\202\312\313\242@\242A@#\211\242B\211
\235\204(\204(\320@
\"\204(\211
B\266\2020\266\204\232\203\220\262\306\262\202\220\266\202\211\203N\320
\"\204NB
B\211\262\262IJ\203tI I\367I!\203kI@\202p\370\371!\210\371)\202wI@\211 K\372N LHL\236\211 M\204\242H\342\312\373KH#!BM\374K\372MLB#\210MA) N\375N!\204\327I@\204\271\365\376!\210\370I@!\210\375N!\204\327G\203\321\306N\202\327\365\377N\"\210N. O\310\201R O\"\203\365\201S O\201T \225\"\202\367O)A@PQ$)\207" [gnus-command-method group gnus-override-method gnus-select-method gnus-newsrc-hashtb gnus-server-method-cache nil gethash string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" gnus-group-name-to-method intern symbol-name "-address" append copy-sequence --cl-block-nil-- throw delq "/\\'" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" address physical-address [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) request-group error "Attempted use of a nil select method" gnus-online require nnagent gnus-method-functions "%s-%s" put fboundp "Trying to require a method that doesn't exist" "No such function: %s" gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-extended-servers gnus-valid-select-methods noerror function method gnus-agent method-sym method-fns method-fnlist-elt func gname dont-check info "^[^:]+:" substring 0] 23 (#$ . 24562)])
#@33 Request a description of GROUP.
(defalias 'gnus-request-group-description #[(group) "\304!\305 \30615 \211;\203 \304!@\202 \211\307!\204# \310!\210\311\312\313\314#!!\2620\266\202\2029 \210\315\266\202\205W \316\n \"\317\320 \"\203Q \321 \322\225\"\202R )\nA@\"*\207" [group func gnus-command-method gname gnus-find-method-for-group request-group-description (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 30759)])
#@43 Request that GROUP get a complete rescan.
(defalias 'gnus-request-group-scan #[(group info) "\305!\306 \30715 \211;\203 \305!@\202 \211\310!\204# \311!\210\312\313\314\315#!!\2620\266\202\2029 \210\316\266\202\205X \317\n \"\320\321 \"\203Q \322 \323\225\"\202R )\nA@\f#*\207" [group func gnus-command-method gname info gnus-find-method-for-group request-group-scan (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 31270)])
#@30 Request the GROUP be closed.
(defalias 'gnus-close-group #[(group) "\306 \206\240\204 \n\206\240\307 \"\204\204\310\311\"\203/ \312\313\314\315\"\314\316\"\206+ \317#\2027 \312\313\n@\nA@#\262\211\203F \211<\203F \211\206y\320\f\"A\206y\211\321\232\203X \n\206e\320
\"A\206e\3206\"A\206e7\211\203\210 \312\313@@@@@A@#\232\204\210 \211A\266\202\202k \211@@\262\206e8\211\203\255 \312\313@@@A@#\232\204\255 \211A\266\202\202\222 \211@\262\206e9A\306\211\203c\211A\262\242\3228\262\262;\204\271 \306\323C\3242T\211\242\206\340 \n\240\210\204\367 \325\326\327\330\331\332!\333\"\322\334%\f\"\210
6D\211\203\211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202\373 \210\211\242A@\337\235\203,\312\340\242@\"\2026\312\313\242@\242A@#\211\242B\211\f\235\204P\204P\320@\f\"\204P\211\fB\266\2020\266\204\232\203\271 \262\306\262\202\271 \266\202\211\203v\320\f\"\204vB\fB\211\262\262\206\240\341!\206\240\211\206\221\307 \"A@\262\306\203\245\3228\211\262\203\245\211\321\232\203\251\n\202\236\211;\203\364\211\211\203\274\211<\203\274\211\206\357\320\f\"A\206\357\211\321\232\203\316\n\206\333\320
\"A\206\333\3206\"A\206\3337\211\203\376\312\313@@@@@A@#\232\204\376\211A\266\202\202\341\211@@\262\206\3338\211\203#\312\313@@@A@#\232\204#\211A\266\202\202\211@\262\206\3339A\306\211\203\331\211A\262\242\3228\262\262;\204/\306\323C\3242\312\211\242\206V\n\240\210\204m\325\326\327\330\331\332!\333\"\322\334%\f\"\210
6D\211\203\217\211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202q\210\211\242A@\337\235\203\242\312\340\242@\"\202\254\312\313\242@\242A@#\211\242B\211\f\235\204\306\204\306\320@\f\"\204\306\211\fB\266\2020\266\204\232\203/\262\306\262\202/\266\202\211\203\354\320\f\"\204\354B\fB\211\262\262\202M\211A@;\203L\211\342\343@!\344P!\211AA\236\204\345A@DC\"\262\210:\306\211\211\204\277\211A\262\242\211\262\203\277@@=\203 \346AA!\346AA!\306\211\3472\264\211A\262\242\211\262\203\261@\236\211\262\204a\350\347\306\"\210\351\"\262\232\204FA@;\203{\211A@;\204\203\350\347\306\"\210\202FA@A@\310\352\"\203\225\353!\262\310\352\"\203\241\353!\262\232\204\254\350\347\306\"\210\266\202F?0\266\206\203 \262\202 \266\203\206M\2117\306\203\372\203\372\211A\262\242@\262@@\232\203\312A@A@\232\203\312\354\"\204\312\306\262\202\312?\266\203\203\211AA\204\f\262\202M\342\312\355@\"!\211AA\236\203+@A@\356QAABB\202>@A@\356QA@DAABBB\262:B:\266\203\202M\211\262\211A@\317\232\203[\211\202\236\211A@\204h\211@\317D\202\236\211\343@!\357\320;\">\203\233\342\344P!\236\204\233\360@;\236>\203\233\345\342\344P!A@DC\"\202\234\266\202\266\202\266\202 <\361<\362\" =\310\363=\"\203\275\364=\365\225\"\202\277=)<A@\")\207" [group gnus-override-method gnus-select-method gnus-newsrc-hashtb gnus-server-method-cache gnus-server-alist nil gethash string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" gnus-group-name-to-method intern symbol-name "-address" append copy-sequence --cl-block-nil-- throw delq "/\\'" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" address physical-address gnus-get-function close-group "^[^:]+:" substring 0 gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-extended-servers gnus-valid-select-methods gnus-command-method gname] 22 (#$ . 31788)])
#@114 Request headers for ARTICLES in GROUP.
If FETCH-OLD, retrieve all headers (or some subset thereof) in the group.
(defalias 'gnus-retrieve-headers #[(articles group &optional fetch-old) "\306!\n\203 @\247\203 \307 \f#\202O
\203. \310 !\203. \311 !\203. \312 \f#\202O \313 \314\" \315\316\"\203G \317\320\225\"\202I ) A@\f$)\207" [group gnus-command-method gnus-use-cache articles fetch-old gnus-agent gnus-find-method-for-group gnus-cache-retrieve-headers gnus-online gnus-agent-method-p gnus-agent-retrieve-headers gnus-get-function retrieve-headers string-match "^[^:]+:" substring 0 gname] 5 (#$ . 35702)])
#@28 Request ARTICLES in GROUP.
(defalias 'gnus-retrieve-articles #[(articles group) "\304!\305 \306\"\n\307\310 \"\203 \311 \312\225\"\202 ) A@#)\207" [group gnus-command-method articles gname gnus-find-method-for-group gnus-get-function retrieve-articles string-match "^[^:]+:" substring 0] 5 (#$ . 36334)])
#@64 Request active information on GROUPS from GNUS-COMMAND-METHOD.
(defalias 'gnus-retrieve-groups #[(groups gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\" A@\"\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function retrieve-groups gnus-secondary-select-methods gnus-newsrc-alist groups] 18 (#$ . 36652)])
#@60 Return the type (`post' or `mail') of GROUP (and ARTICLE).
(defalias 'gnus-request-type #[(group &optional article) "\304!\305 @\30614 \211;\203 \304!@\202 \211\307!\204\" \310!\210\311\312\313\314#!!\2620\266\202\2028 \210\315\266\202\204? \316\202X \317 \305\"\320\321\n\"\203T \322\n\323\225\"\202U \n) \")\207" [group gnus-command-method gname article gnus-find-method-for-group request-type (error) featurep require fboundp intern format "%s-%s" nil unknown gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 38123)])
#@85 Change the status of a group.
Valid statuses include `subscribe' and `unsubscribe'.
(defalias 'gnus-request-update-group-status #[(group status) "\304!\305 @\30614 \211;\203 \304!@\202 \211\307!\204\" \310!\210\311\312\313\314#!!\2620\266\202\2028 \210\315\266\202\205W \316 \305\"\317\320\n\"\203P \321\n\322\225\"\202Q \n) A@#)\207" [group gnus-command-method gname status gnus-find-method-for-group request-update-group-status (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 38676)])
#@40 Set marks on articles in the back end.
(defalias 'gnus-request-set-mark #[(group action) "\305!\306 @\30714 \211;\203 \305!@\202 \211\310!\204\" \311!\210\312\313\314\315#!!\2620\266\202\2028 \210\316\266\202\204? \n\202a \317 \306\"\320\321 \"\203T \322 \323\225\"\202U )\n A@#\210\324\f\n#)\207" [group gnus-command-method action gname gnus-after-set-mark-hook gnus-find-method-for-group request-set-mark (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" substring 0 gnus-run-hook-with-args] 9 (#$ . 39256)])
#@76 Allow the back end to change the mark the user tries to put on an article.
(defalias 'gnus-request-update-mark #[(group article mark) "\306!\307 @\31014 \211;\203 \306!@\202 \211\311!\204\" \312!\210\313\314\315\316#!!\2620\266\202\2028 \210\317\266\202\204? \n\202` \320 \f\n$\210\321 \307\" \322\323
\"\203[ \324
\325\225\"\202\\
)\f\n#)\207" [group gnus-command-method mark gnus-before-update-mark-hook article gname gnus-find-method-for-group request-update-mark (error) featurep require fboundp intern format "%s-%s" nil gnus-run-hook-with-args gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 39838)])
#@142 Request the ARTICLE in GROUP.
ARTICLE can either be an article number or an article Message-ID.
If BUFFER, insert the article in that group.
(defalias 'gnus-request-article #[(article group &optional buffer) "\305!\306 \307\"\n\310\311 \"\203 \312 \313\225\"\202 ) A@\f$)\207" [group gnus-command-method article gname buffer gnus-find-method-for-group gnus-get-function request-article string-match "^[^:]+:" substring 0] 5 (#$ . 40480)])
#@79 Request the headers in the thread containing the article specified by HEADER.
(defalias 'gnus-request-thread #[(header group) "\304!\305 \306\"\n\307\310 \"\203 \311 \312\225\"\202 )\")\207" [group gnus-command-method header gname gnus-find-method-for-group gnus-get-function request-thread string-match "^[^:]+:" substring 0] 5 (#$ . 40932)])
#@199 Activate and select GROUP with the given MESSAGE-ID selected.
Returns the article number of the message.
If GROUP is not already selected, the message will be the only one in
the group's summary.
(defalias 'gnus-select-group-with-message-id #[(group message-id) "\306\307\310#\311\307\312#\210\313\216\314\315\316\315\317\320&\210*\321!\3221; \323 !\211 \204. \324\325\326\"\210\327\315\211\211\f$\210\f)0\202H \n\203C \330 \210\331\324
\"))\207" [group saved-display group-is-new message-id article-number err gnus-group-get-parameter display :allow-list gnus-group-set-parameter 0 #[nil "\302\303 #\207" [group saved-display gnus-group-set-parameter display] 4] gnus-summary-read-group-1 nil :no-article :no-display (-1) gnus-summary-setup-buffer (error) gnus-summary-insert-subject signal error "message-id not in group" gnus-summary-select-article gnus-summary-exit apply] 8 (#$ . 41290)])
#@115 Return the simplest representation of the name of GROUP.
This is the string that Gnus uses to identify the group.
(defalias 'gnus-simplify-group-name #[(group) "\302\303\304 \"\203 \305 \306\225\"\202 )\307!\"\207" [group gname gnus-group-prefixed-name string-match "^[^:]+:" substring 0 gnus-group-method] 4 (#$ . 42202)])
#@192 Look up the current article in the group where it originated.
This command only makes sense for groups shows articles gathered
from other groups -- for instance, search results and the like.
(defalias 'gnus-warp-to-article #[nil "\303!\304 @\30514 \211;\203 \303!@\202 \211\306!\204\" \307!\210\310\311\312\313#!!\2620\266\202\2028 \210\314\266\202\203C \315 \304\" \206O \316\302!\205O \n\205O \317 )\207" [gnus-newsgroup-name gnus-command-method gnus-registry-enabled gnus-find-method-for-group warp-to-article (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function boundp gnus-try-warping-via-registry] 9 (#$ . 42539) nil])
#@39 Request the head of ARTICLE in GROUP.
(defalias 'gnus-request-head #[(article group) "\306!\307 \310\311#\312\211
\203* \247\203* \313\"\203* B\311\202r \314\"\203< B\311\202r \315\n!\203j \n?\205b \316\317\"\203_ \320\321\225\"\202a ) A@#\202r \322\"\311\f\203\217 rq\210eb\210\323\324\312\311#\203\213 `Sd|\210\325 \210) ,\207" [group gnus-command-method head res clean-up gnus-use-cache gnus-find-method-for-group gnus-get-function request-head t nil gnus-cache-request-article gnus-agent-request-article fboundp string-match "^[^:]+:" substring 0 gnus-request-article search-forward "\n\n" nnheader-fold-continuation-lines article gnus-override-method gname nntp-server-buffer] 6 (#$ . 43205)])
#@39 Request the body of ARTICLE in GROUP.
(defalias 'gnus-request-body #[(article group) "\306!\307 \310\311#\312\211
\203* \247\203* \313\"\203* B\311\202l \314\"\203< B\311\202l \315\n!\203d \n \316\317\"\203Y \320\321\225\"\202[ ) A@#\202l \322\"\311\f\203\206 rq\210eb\210\323\324\312\311#\203\205 e`S|\210) ,\207" [group gnus-command-method head res clean-up gnus-use-cache gnus-find-method-for-group gnus-get-function request-body t nil gnus-cache-request-article gnus-agent-request-article fboundp string-match "^[^:]+:" substring 0 gnus-request-article search-forward "\n\n" article gname nntp-server-buffer] 6 (#$ . 43954)])
#@52 Post the current buffer using GNUS-COMMAND-METHOD.
(defalias 'gnus-request-post #[(gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"A@!\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-post gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 44631)])
#@77 Expunge GROUP, which is removing articles that have been marked as deleted.
(defalias 'gnus-request-expunge-group #[(group gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/!A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332\333\"\" #\334\335#\"\203_\336#\337\225\"\202a#)A@\"\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-expunge-group string-match "^[^:]+:" substring 0 gnus-secondary-select-methods gnus-newsrc-alist group gname] 18 (#$ . 46067)])
#@131 Request a SCAN being performed in GROUP from GNUS-COMMAND-METHOD.
If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned.
(defalias 'gnus-request-scan #[(group gnus-command-method) "\203\n \306!\202 \307\n \n\204 \310 !?\205@ \311 \312\"\205< \313\314\"\2039 \315\316\225\"\202; ) A@\"+\207" [group gnus-command-method gnus-plugged mail-source-plugged gnus-inhibit-demon gnus-internal-registry-spool-current-method gnus-find-method-for-group t gnus-agent-method-p gnus-get-function request-scan string-match "^[^:]+:" substring 0 gname] 4 (#$ . 47649)])
(defalias 'gnus-request-update-info #[(info gnus-command-method) "\306@\30710 \211;\203 \310!@\202 \211\311!\204 \312!\210\313\314\315\316#!!\2620\266\202\2024 \210\317\266\202\205\240;\203}\211\203J \211<\203J \211\206z\320 \"A\206z\211\321\232\203\\ \n\206f\320 \"A\206f\320\f\"A\206f
\211\203\212 \315\322@@@@@A@#\232\204\212 \211A\266\202\202m \211@@\262\206f'\211\203\257 \315\322@@@A@#\232\204\257 \211A\266\202\202\224 \211@\262\206f(A\317\211\203d\211A\262\242\3238\262\262;\204\273 \317\324C\3252U\211\242\206\342 \n\240\210\204\371 \326\327\330\331\332\333!\334\"\323\335% \"\210 \fD\211\203\211@\326\327\330\336\332\333!\337\"\323\335%\"\210A\266\202\202\374 \210\211\242A@\340\235\203-\315\341\242@\"\2027\315\322\242@\242A@#\211\242B\211 \235\204Q\204Q\320@ \"\204Q\211 B\266\2020\266\204\232\203\273 \262\317\262\202\273 \266\202\211\203w\320 \"\204wB B\211\262\262\342\306\")@ *\343\344*\"\203\227\345*\346\225\"\202\231*))A@#\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers request-update-info (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil assoc "native" "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function string-match "^[^:]+:" substring 0 gnus-secondary-select-methods gnus-newsrc-alist info gname] 18])
#@47 Request that GNUS-COMMAND-METHOD update INFO.
(defalias 'gnus-request-marks #[(info gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/+\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/,A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\332@\3331v\211;\203Y\334!@\202Z\211\335!\204d\336!\210\337\340\310\341#!!\2620\266\202\202z\210\312\266\202\205\352-@ .\342\332\". /\343\344/\"\203\233\345/\346\225\"\202\235/)-A@#\205\351\347.0\"\211 1@\211 2\350V\203\3462\351U\203\304\350\202\311\3502SB 3\351-8 4\35243C\" 5-AA\211 65\240\210,-*)\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" request-marks (error) gnus-find-method-for-group featurep require fboundp intern "%s-%s" gnus-get-function string-match "^[^:]+:" substring 0 gethash 1 2 gnus-range-add gnus-secondary-select-methods gnus-newsrc-alist info group gname gnus-active-hashtb active min range read new-read #1=#:c] 19 (#$ . 49938)])
(put 'gnus-request-marks 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-request-expire-articles #[(articles group &optional force) "\306!\307\310\311\312\n\"\"\313\314 \315\"\n \316\317\f\"\203$ \320\f\321\225\"\202% \f) A@
$ \203K \322 !\203K \323\n\"\211 \203J \324\305#\210),\207" [group gnus-command-method articles gnus-inhibit-demon gname force gnus-find-method-for-group delq nil mapcar #[(n) "\301Y\205 \207" [n 0] 2] t gnus-get-function request-expire-articles string-match "^[^:]+:" substring 0 gnus-agent-method-p gnus-sorted-difference gnus-agent-expire not-deleted gnus-agent expired-articles] 6])
(defalias 'gnus-request-move-article #[(article group server accept-function &optional last move-is-internal) "\306!\307 \310\"\n\311\312 \"\203 \313 \314\225\"\202 ) A@\f
&\211 \203< \203< \315 !\203< \316\nC\"\210*\207" [group gnus-command-method article gname accept-function last gnus-find-method-for-group gnus-get-function request-move-article string-match "^[^:]+:" substring 0 gnus-agent-method-p gnus-agent-unfetch-articles move-is-internal result gnus-agent] 8])
(defalias 'gnus-request-accept-article #[(group &optional gnus-command-method last no-encode) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/)\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/*A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\204\\+;\203\\\332+!\206[\333+!db\210n\204f\334c\210,\204~- -\335 \210\214\336 \210\337 \210)\340 \210)\206\206\332+!\341\342\"+;\203\253+ .\343\344.\"\203\245\345.\346\225\"\202\247.)\202\255+A@/# 01\203\320\347!\203\3200A\203\320\350+0AC\"\2100*\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-find-method-for-group gnus-group-name-to-method "\n" message-options-set-recipient message-narrow-to-head mail-encode-encoded-word-buffer message-encode-message-body gnus-get-function request-accept-article string-match "^[^:]+:" substring 0 gnus-agent-method-p gnus-agent-regenerate-group gnus-secondary-select-methods gnus-newsrc-alist group no-encode message-options gname last result gnus-agent] 18])
(defalias 'gnus-request-replace-article #[(article group buffer &optional no-encode) "\204 \306 \210\214\307 \210\310 \210)\311 \210)\312\n!@\313\314\315 \"!\f\n \316\317
\"\2032 \320
\321\225\"\2023
)# \203K \322!\203K \323\n\fC\"\210*\207" [no-encode message-options group func article gname message-options-set-recipient message-narrow-to-head mail-encode-encoded-word-buffer message-encode-message-body gnus-group-name-to-method intern format "%s-request-replace-article" string-match "^[^:]+:" substring 0 gnus-agent-method-p gnus-agent-regenerate-group buffer result gnus-agent gnus-command-method] 5])
#@56 Request a new buffer restored to the state of ARTICLE.
(defalias 'gnus-request-restore-buffer #[(article group) "\304!\305 \306\"\n\307\310 \"\203 \311 \312\225\"\202 ) A@#)\207" [group gnus-command-method article gname gnus-find-method-for-group gnus-get-function request-restore-buffer string-match "^[^:]+:" substring 0] 5 (#$ . 55668)])
(defalias 'gnus-request-create-group #[(group &optional gnus-command-method args) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/!\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/\"A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\206N\332#!\333\334\"# $\335\336$\"\203h\337$\340\225\"\202j$)A@%#)\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-find-method-for-group gnus-get-function request-create-group string-match "^[^:]+:" substring 0 gnus-secondary-select-methods gnus-newsrc-alist group gname args] 18])
(defalias 'gnus-request-delete-group #[(group &optional force) "\305!\306 \307\"\310\311\n\"\203 \312\n\313\225\"\202 \n) A@#\211 \203- \314!\210\315!\210\f*\207" [group gnus-command-method gname force result gnus-find-method-for-group gnus-get-function request-delete-group string-match "^[^:]+:" substring 0 gnus-cache-delete-group gnus-agent-delete-group] 5])
(defalias 'gnus-request-rename-group #[(group new-name) "\305!\306 \307\"\310\311\n\"\203 \312\n\313\225\"\202 \n) \310\311\n\"\203, \312\n\313\225\"\202- \n) A@#\211 \203A \314 \"\210\315 \"\210\f*\207" [group gnus-command-method gname new-name result gnus-find-method-for-group gnus-get-function request-rename-group string-match "^[^:]+:" substring 0 gnus-cache-rename-group gnus-agent-rename-group] 6])
(defalias 'gnus-close-backends #[nil "\305\306\211 \f\211A\242\211\205% \307\310 @\311P!\211!\203 \n \210\202 ,\207" [gnus-valid-select-methods gnus-command-method func gnus-inhibit-demon methods t nil fboundp intern "-request-close"] 4])
(defalias 'gnus-asynchronous-p #[(gnus-command-method) "\302\303\304#\305 !\205 )\207" [gnus-command-method func gnus-get-function asynchronous-p t fboundp] 4])
(defalias 'gnus-remove-denial #[(gnus-command-method) ";\203F\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/ \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/ A\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\306
\"\211 A@\211 \332=\205\\ A\333\240*\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" denied closed gnus-secondary-select-methods gnus-newsrc-alist elem status] 19])
(provide 'gnus-int)
Zerion Mini Shell 1.0