ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-int.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\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 (#$ . 1908))
#@68 Check whether a connection to GNUS-COMMAND-METHOD has been opened.
(defalias 'gnus-server-opened #[(gnus-command-method) "\306!\307=?\205U;\203M\211\203 <\203 \206K\310 \n\"A\206K \311\232\203/ \2064\310 \f\"A\2064\310
\"A\2064 \203e \312\313@@@@@A@#\232\204e \211A\210\202C @@)\2064 \203\221 \312\313@@@A@#\232\204\221 \211A\210\202q @)\2064A\314\211 \2031\315 \211A \2428\211 ;\204\243 \314\316 \3172! \206\315 \204\331 \320\321\n\"\210\320\322\f
D\"\210 A@\323\235\203\362 \312\324 @\"\202\374 \312\313 @ A@#\211 ! B\211 \"\n\235\204 \204 \310\"@\n\"\204 \"\nB!*0+\232\203\243 \314\211 \204\250 +\211 #\203H\310 \n\"\204H #B\nB#))\325\326\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-server-status denied assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function server-opened gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 2021)])
#@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 (#$ . 3505)])
#@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\275 \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\306O\325\"!D\326\306DF\202Z \327 D
@\211\314=\203p \330\314!\210\331\332\333\"\210\202\206 \320=\203\202 \330\320!\210\331\332\334\"\210\202\206 \330\327!\210
\335\336!\210(\203\225 \337
!\210\340
!\206\275 \341
!\206\275 )\206\275 \342\343\344
@
A@\345
!$!\206\275 \346\324\347
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 1 "~/" nnmh-get-new-mail nntp 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 gnus-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 (#$ . 3878)])
#@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 (#$ . 5161)])
#@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;\203?\211\203 <\203 \206=\307 \f\"A\206= \310\232\203. \206)\307
\"A\206)\307 !\"A\206)\" ##\203e \311\312#@@@#@@A@#\232\204e #\211A#\210\202C #@@)\206)$ %%\203\221 \311\312%@@%@A@#\232\204\221 %\211A%\210\202q %@)\206)&A\306\211 ' ((\203&\313(\211A(\2428\211;\204\242 \306\314 ) *\3152\206\310 *\204\323 \316\317\f\"\210\316\320
!D\"\210A@\321\235\203\353 \311\322@\"\202\363 \311\312@A@#\211 +B\211 ,\f\235\204)\204\307,@\f\"\204,\fB+*0+\232\203\242 '\306\211(\204\247 '+\211\203;\307 \f\"\204; \nB\fB\n))\323!\203I\314\202\245-\204g\324\325\326@A@\327\232\203_\327\202e\311\330A@\"$\210\331\332!\210\333!\211-\204\245\324\n\203~\325\202\334\335@A@\327\232\203\216\327\202\224\311\330A@\"\n\203\234\336\202\243\311\337\340@!\"%\210*\207" [method gnus-select-method result server gnus-server-method-cache gnus-server-alist nil assoc "native" format "%s:%s" 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (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-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache name name-method silent] 11 (#$ . 5395)])
#@56 Return a function symbol based on METHOD and FUNCTION.
(defalias 'gnus-get-function #[(method function &optional noerror) "\204 \306\307!\210;\203@\211\203 <\203 \206>\310 \n\"A\206> \311\232\203. \206'\310 \f\"A\206'\310
\"A\206' \203d \312\313 @@@ @@A@#\232\204d \211A \210\202B @@)\206'! \"\"\203\220 \312\313\"@@\"@A@#\232\204\220 \"\211A\"\210\202p \"@)\206'#A\314\211 $ %%\203$\315%\211A%\2428\211;\204\241 \314\316 & '\3172\206\307 '\204\322 \320\321\n\"\210\320\322\f
D\"\210A@\323\235\203\351 \312\324@\"\202\361 \312\313@A@#\211 (B\211 )\n\235\204&\204\310)@\n\"\204)\nB(*0+\232\203\241 $\314\211%\204\246 $+\211 *\203;\310 \n\"\204; *B\nB*))+\203[\325!\203R@\202W\326\327!\210\327)\202]@\211 ,\330N -.-\236\211 /\204\210.\331\312\332,.#!B/\333,\330/-B#\210/A) 0\3340!\204\273@\204\236\306\335!\210\326@!\210\3340!\204\2731\203\265\3140\202\273\306\3360\"\2100+\207" [method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist error "Attempted use of a nil select method" assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (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-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache name name-method result gnus-agent method-sym method-fns function method-fnlist-elt func noerror] 7 (#$ . 7298)])
(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 Z\202\" \314\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 0] 6])
#@43 Open a connection to GNUS-COMMAND-METHOD.
(defalias 'gnus-open-server #[(gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+. //\203\\ \310\311/@@@/@@A@#\232\204\\ /\211A/\210\202: /@@)\206+0 11\203\210 \310\3111@@1@A@#\232\204\210 1\211A1\210\202h 1@)\206+2A\312\211 3 4 55\203(\3135\211A5\2428\2114;\204\232 4\312\314 6 7 4\31524\206\304 47\204\320 \316\317\n\"\210\316\320\f
D\"\2104A@\321\235\203\351 \310\3224@\"\202\363 \310\3114@4A@#\211 84B\211 9\n\235\2046\204\3069@\n\"\2049\nB8*0+\232\203\232 43\312\2115\204\237 3+\211 :\203?\306 \n\"\204? :B\nB:))\323\324\"\210\306.\" 4\310\3224@\"\306\310\3224@\"\325\326!\"\204n\3274;\"\205\2054A@\205\2054A@\330\230?\205\205\3314A@PP)\211 <A@\332=\203\234\333\334\335 #\210\312\202k\336\337\" =\3401\312\3411\270=A@AA\"00\202\3400 >\333\334\342 \343>!$\210)\312\202\340 >?\203\330\344\345!\210\202\336\333\334\346 #\210)\312 :\312 @<\204\365\312D\211<.B.<A:\203\f=\347=\203\350\2028\351\2028A\2037\352!\2037B\203'B\350=@B\2028C\2043\314@\350\2028\332\2028\332\240\210@\203I\332 B\353!)\202j<A@\351=\203cA\203c\352!\203c\212\354!\210)\323\355\"\210:+*\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (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-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result gnus-message-archive-method elem open-server-function err debug-on-quit open-offline gnus-agent gnus-server-unopen-status gnus-batch-mode] 7 (#$ . 9725)])
#@46 Close the connection to GNUS-COMMAND-METHOD.
(defalias 'gnus-close-server #[(gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\323\324\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function close-server gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 12274)])
#@51 Request the active file from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-list #[(gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\323\324\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function request-list gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 13689)])
#@49 Read and update infos from GNUS-COMMAND-METHOD.
(defalias 'gnus-finish-retrieve-group-infos #[(gnus-command-method infos data) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+ A\312\211 \203(\313 \211A \2428\211 ;\204\232 \312\314 ! \3152 \206\304 !\204\320 \316\317\n\"\210\316\320\f
D\"\210 A@\321\235\203\351 \310\322 @\"\202\363 \310\311 @ A@#\211 \" B\211 #\n\235\204 \204\306#@\n\"\204#\nB\"*0+\232\203\232 \312\211 \204\237 +\211 $\203?\306 \n\"\204? $B\nB$))\323\324\"\210\325\326\"A@%&#\323\327\"\210\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-backend-trace :finishing gnus-get-function finish-retrieve-group-infos :finished gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result infos data] 6 (#$ . 15109)])
#@63 Start early async retrieval of data from GNUS-COMMAND-METHOD.
(defalias 'gnus-retrieve-group-data-early #[(gnus-command-method infos) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\323\324\"A@\"\"\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function retrieve-group-data-early gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result infos] 6 (#$ . 16655)])
#@55 Request the newsgroups file from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-list-newsgroups #[(gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\323\324\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function request-list-newsgroups gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 18129)])
#@61 Request all new groups since DATE from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-newgroups #[(date gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\323\324\314#\211 \"\205W\"#A@\")\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function request-newgroups gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result func date] 6 (#$ . 19575)])
#@53 Request a data generation from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-regenerate #[(gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\323\324\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function request-regenerate gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 21053)])
(defalias 'gnus-request-compact-group #[(group) "\304!\211\305\n\306\"\307\310 \"\203 \311\225\312O\202 )\nA@\313#*\207" [group method gnus-command-method gname gnus-find-method-for-group gnus-get-function request-compact-group string-match "^[^:]+:" 0 nil t] 5])
#@53 Request groups compaction from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-compact #[(gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\323\324\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function request-compact gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 22760)])
#@60 Request GROUP. If DONT-CHECK, no information is required.
(defalias 'gnus-request-group #[(group &optional dont-check gnus-command-method info) "\206G \306 \206F \204 \f\206F\307
\"J\204\243 >\310\311>\"\203; \312\313\314\315>\"\314\316>\"\2067 \317#\202C \312\313\f@\fA@#)\211 ?\203U ?<\203U ?\206\231\320?@\"A\206\231?\321\232\203j \f\206}\320?A\"A\206}\320?B\"A\206}C DD\203\245 ?\312\313D@@@D@@A@#\232\204\245 D\211AD\210\202\202 D@@)\206}E FF\203\322 ?\312\313F@@F@A@#\232\204\322 F\211AF\210\202\261 F@)\206}GA\306\211 H I JJ\203z\322J\211AJ\2428\211I;\204\344 ?I\306\323 K L I\3242jI\206\fIL\204 \325\326@\"\210\325\327ABD\"\210IA@\330\235\2037\312\331I@\"\202A\312\313I@IA@#\211 MIB\211 N@\235\204fK\204f\320N@@\"\204fN@B@M*0+\232\203\344 IH\306\211J\204\351 H+\211 O\203\226\320?@\"\204\226?OB@B@O))\206F\332 !\206F\n\206\256\316\307
\"J8\306 I\211\203\306\322\n8\211I\203\306I\321\232\203\312\f\202EI;\203+I\211 ?\203\343?<\203\343?\206'\320?@\"A\206'?\321\232\203\370\f\206 \320?A\"A\206 \320?B\"A\206 C DD\2033?\312\313D@@@D@@A@#\232\2043D\211AD\210\202D@@)\206 E FF\203`?\312\313F@@F@A@#\232\204`F\211AF\210\202?F@)\206 GA\306\211 H I JJ\203\322J\211AJ\2428\211I;\204r?I\306\323 K L I\3242\370I\206\235\fIL\204\252\325\333@\"\210\325\334ABD\"\210IA@\330\235\203\305\312\331I@\"\202\317\312\313I@IA@#\211 MIB\211 N@\235\204\364K\204\364\320N@@\"\204\364N@B@M*0+\232\203rIH\306\211J\204wH+\211 O\203$\320?@\"\204$?OB@B@O))\202\344IA@;\203\342I I\335\336I@!\337P!\211 PIAA\236\204Y\340IPIA@DC\"I)Q\306\211 R S TR\2042T\211AT\242\211S\2032I@S@=\203dIS U V\341VAA!\341UAA!\306\211 W X Y Z\3422%Z\211AZ\242\211X\203!X@Y\236\211W\204\300\343\342\306\"\210\344WY\"YXW\232\204\242XA@;\203\340WA@;\204\350\343\342\306\"\210\202\242XA@WA@ [ \\\310\345\\\"\203\346\\!\\\310\345[\"\203\346[![\\[\232\204 \343\342\306\"\210*\202\242Y?0.\203dS\211R\203iR,\206\344 I II IC\306 S DI\203\203D\203\203D\211AD\242@SI@S@\232\203IIA@SA@\232\203I\347IS\"\204I\306\211I\204NI+\204\220IAA\204\225I\202\336\335\312\350I@\"!\211 ]IAA\236\203\273I@IA@\351 QIAABB\202\323I@IA@\351 Q]IA@DIAABBB\211IQBQI)*\202\344I\211IA@\317\232\203\363I\202EIA@\204I@\317D\202EI I\336I@! ^\352\320^_\">\203B\335^\337P!I\236\204B\353I@_\236>\203B\340I\335^\337P!IA@DC\"\202DI***\211;\203\245\211 ?\203_?<\203_?\206\243\320?@\"A\206\243?\321\232\203t\f\206\207\320?A\"A\206\207\320?B\"A\206\207C DD\203\257?\312\313D@@@D@@A@#\232\204\257D\211AD\210\202\214D@@)\206\207E FF\203\334?\312\313F@@F@A@#\232\204\334F\211AF\210\202\273F@)\206\207GA\306\211 H I JJ\203\204\322J\211AJ\2428\211I;\204\356?I\306\323 K L I\3242tI\206\fIL\204&\325\354@\"\210\325\355ABD\"\210IA@\330\235\203A\312\331I@\"\202K\312\313I@IA@#\211 MIB\211 N@\235\204pK\204p\320N@@\"\204pN@B@M*0+\232\203\356IH\306\211J\204\363H+\211 O\203\240\320?@\"\204\240?OB@B@O))\356\306 ` a\211 I\204\266\357\360!\210I;\203I\211 ?\203\317?<\203\317?\206\320?@\"A\206?\321\232\203\344\f\206\367\320?A\"A\206\367\320?B\"A\206\367C DD\203 ?\312\313D@@@D@@A@#\232\204 D\211AD\210\202\374D@@)\206\367E FF\203L?\312\313F@@F@A@#\232\204LF\211AF\210\202+F@)\206\367GA\306\211 H I JJ\203\364\322J\211AJ\2428\211I;\204^?I\306\323 K L I\3242\344I\206\211\fIL\204\226\325\361@\"\210\325\362ABD\"\210IA@\330\235\203\261\312\331I@\"\202\273\312\313I@IA@#\211 MIB\211 N@\235\204\340K\204\340\320N@@\"\204\340N@B@M*0+\232\203^IH\306\211J\204cH+\211 O\203\320?@\"\204?OB@B@O))Ib\2035I I\363I!\203,I@\2021\364\365!\210\365)\2028I@\211 c\366N dad\236\211 e\204ca\335\312\367ca#!Be\370c\366edB#\210eA) f\371f!\204\230I@\204z\357\372!\210\364I@!\210\371f!\204\230`\203\222\306f\202\230\357\373f\"\210f. >\310\374>\"\203\260>\375\225\306O\202\262>)A@g\n$)\207" [gnus-command-method group info gnus-override-method gnus-select-method gnus-newsrc-hashtb nil intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name mapc #[#2=(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) "%s" gnus-group-name-to-method #[#2# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] intern symbol-name "-address" append copy-sequence --cl-block-nil-- throw delq "/$" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" address physical-address #[#2# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] request-group error "Attempted use of a nil select method" #[#2# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] gnus-online require nnagent gnus-method-functions "%s-%s" put fboundp "Trying to require a method that doesn't exist" "No such function: %s" "^[^:]+:" 0 gname server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 s2 s1 address-slot method-name gnus-valid-select-methods noerror function gnus-agent method-sym method-fns method-fnlist-elt func dont-check] 7 (#$ . 24188)])
#@33 Request a description of GROUP.
(defalias 'gnus-request-group-description #[(group) "\305!\306 \30714 ;\203 \305!@\202 \310 !\204& \311 !\210\312\313\314\315 #!!)0\2026 \210\316*\205U \317\n \" \320\321\f\"\203O \f\322\225\316O\202P \f)\nA@\"*\207" [group func gnus-command-method method gname gnus-find-method-for-group request-group-description (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" 0] 6 (#$ . 30693)])
#@43 Request that GROUP get a complete rescan.
(defalias 'gnus-request-group-scan #[(group info) "\306!\307 \31014 ;\203 \306!@\202 \311 !\204& \312 !\210\313\314\315\316 #!!)0\2026 \210\317*\205V \320\n \" \321\322\f\"\203O \f\323\225\317O\202P \f)\nA@
#*\207" [group func gnus-command-method 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 "^[^:]+:" 0] 6 (#$ . 31180)])
#@30 Request the GROUP be closed.
(defalias 'gnus-close-group #[(group) "\306\n\206>\204 \206>\307\f\"J\204\233 \310\311
\"\2033 \312\313\314\315
\"\314\316
\"\206/ \317#\202; \312\313 @ A@#)\211 0\203M 0<\203M 0\206\221\32001\"A\206\2210\321\232\203b \206u\32002\"A\206u\32003\"A\206u4 55\203\235 0\312\3135@@@5@@A@#\232\204\235 5\211A5\210\202z 5@@)\206u6 77\203\312 0\312\3137@@7@A@#\232\204\312 7\211A7\210\202\251 7@)\206u8A\306\211 9 : ;;\203r\322;\211A;\2428\211:;\204\334 0:\306\323 < = :\3242b:\206 :=\204\325\3261\"\210\325\32723D\"\210:A@\330\235\203/\312\331:@\"\2029\312\313:@:A@#\211 >:B\211 ?1\235\204^<\204^\320?@1\"\204^?1B1>*0+\232\203\334 :9\306\211;\204\341 9+\211 @\203\216\32001\"\204\2160@B1B1@))\206>\332!\206> \206\246\316\307\f\"J8\306 :\211\203\276\322 8\211:\203\276:\321\232\203\302 \202=:;\203#:\211 0\203\3330<\203\3330\206 \32001\"A\206 0\321\232\203\360 \206\32002\"A\206\32003\"A\2064 55\203+0\312\3135@@@5@@A@#\232\204+5\211A5\210\2025@@)\2066 77\203X0\312\3137@@7@A@#\232\204X7\211A7\210\20277@)\2068A\306\211 9 : ;;\203 \322;\211A;\2428\211:;\204j0:\306\323 < = :\3242\360:\206\225 :=\204\242\325\3331\"\210\325\33423D\"\210:A@\330\235\203\275\312\331:@\"\202\307\312\313:@:A@#\211 >:B\211 ?1\235\204\354<\204\354\320?@1\"\204\354?1B1>*0+\232\203j:9\306\211;\204o9+\211 @\203 \32001\"\204 0@B1B1@))\202\334:A@;\203\332: :\335\336:@!\337P!\211 A:AA\236\204Q\340:A:A@DC\":)B\306\211 C D EC\204*E\211AE\242\211D\203*:@D@=\203\\:D F G\341GAA!\341FAA!\306\211 H I J K\3422 K\211AK\242\211I\203I@J\236\211H\204\270\343\342\306\"\210\344HJ\"JIH\232\204\232IA@;\203\330HA@;\204\340\343\342\306\"\210\202\232IA@HA@ L M\310\345M\"\203\372\346M!M\310\345L\"\203\346L!LML\232\204\343\342\306\"\210*\202\232J?0.\203\\D\211C\203aC,\206\334: :: :4\306 D 5:\203{5\203{5\211A5\242@D:@D@\232\203A:A@DA@\232\203A\347:D\"\204A\306\211:\204F:+\204\210:AA\204\215:\202\326\335\312\350:@\"!\211 N:AA\236\203\263:@:A@\351Q:AABB\202\313:@:A@\351QN:A@D:AABBB\211:BBB:)*\202\334:\211:A@\317\232\203\353:\202=:A@\204\372:@\317D\202=: :\336:@! O\352\320OP\">\203:\335O\337P!:\236\204:\353:@P\236>\203:\340:\335O\337P!:A@DC\"\202<:*** Q\354Q\355\" \310\356
\"\203W
\357\225\306O\202X
)QA@\")\207" [group info gnus-override-method gnus-select-method gnus-newsrc-hashtb gname nil intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name mapc #[#2=(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) "%s" gnus-group-name-to-method #[#2# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] 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 "^[^:]+:" 0 server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 s2 s1 address-slot method-name gnus-valid-select-methods gnus-command-method] 7 (#$ . 31673)])
#@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\225\320O\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 "^[^:]+:" 0 nil gname] 5 (#$ . 35686)])
#@28 Request ARTICLES in GROUP.
(defalias 'gnus-retrieve-articles #[(articles group) "\304!\305 \306\"\n\307\310 \"\203 \311\225\312O\202 ) A@#)\207" [group gnus-command-method articles gname gnus-find-method-for-group gnus-get-function retrieve-articles string-match "^[^:]+:" 0 nil] 5 (#$ . 36311)])
#@64 Request active information on GROUPS from GNUS-COMMAND-METHOD.
(defalias 'gnus-retrieve-groups #[(groups gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\323\324\"\"A@\"\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function retrieve-groups gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result groups] 6 (#$ . 36622)])
#@60 Return the type (`post' or `mail') of GROUP (and ARTICLE).
(defalias 'gnus-request-type #[(group &optional article) "\306!\307 @\31013 ;\203 \306!@\202 \311 !\204% \312 !\210\313\314\315\316 \n#!!)0\2025 \210\317*\204= \320\202V \321 \307\" \322\323\f\"\203R \f\324\225\317O\202S \f)
\")\207" [group gnus-command-method func 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 "^[^:]+:" 0] 6 (#$ . 38079)])
#@85 Change the status of a group.
Valid statuses include `subscribe' and `unsubscribe'.
(defalias 'gnus-request-update-group-status #[(group status) "\306!\307 @\31013 ;\203 \306!@\202 \311 !\204% \312 !\210\313\314\315\316 \n#!!)0\2025 \210\317*\205U \320 \307\" \321\322\f\"\203N \f\323\225\317O\202O \f)
A@#)\207" [group gnus-command-method func 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 "^[^:]+:" 0] 6 (#$ . 38610)])
#@40 Set marks on articles in the back end.
(defalias 'gnus-request-set-mark #[(group action) "\306!\307 @\31013 ;\203 \306!@\202 \311 !\204% \312 !\210\313\314\315\316 \n#!!)0\2025 \210\317*\204= \f\202` \320 \307\" \321\322
\"\203R
\323\225\317O\202S
)\f A@#\210\324\f#)\207" [group gnus-command-method func method action gname gnus-find-method-for-group request-set-mark (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" 0 gnus-run-hook-with-args gnus-after-set-mark-hook] 6 (#$ . 39168)])
#@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 @\31013 ;\203 \306!@\202 \311 !\204% \312 !\210\313\314\315\316 \n#!!)0\2025 \210\317*\204= \f\202d \320
\f$\210\321 \307\" \322\323\"\203] \324\225\317O\202_ )\f#)\207" [group gnus-command-method func method mark gnus-before-update-mark-hook 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 "^[^:]+:" 0 article gname] 6 (#$ . 39728)])
#@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\225\313O\202 ) A@\f$)\207" [group gnus-command-method article gname buffer gnus-find-method-for-group gnus-get-function request-article string-match "^[^:]+:" 0 nil] 5 (#$ . 40351)])
#@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\225\312O\202 )\")\207" [group gnus-command-method header gname gnus-find-method-for-group gnus-get-function request-thread string-match "^[^:]+:" 0 nil] 5 (#$ . 40796)])
#@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 (#$ . 41147)])
#@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\225\306O\202 )\307!\"\207" [group gname gnus-group-prefixed-name string-match "^[^:]+:" 0 nil gnus-group-method] 4 (#$ . 42059)])
#@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 "\306!\307 @\31013 \n;\203 \306\n!@\202 \n \311\f!\204% \312\f!\210\313\314\315\316\f #!!)0\2025 \210\317*\203A \320 \307\" \206M \321\305!\205M
\205M \322 )\207" [gnus-newsgroup-name gnus-command-method group func 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] 6 (#$ . 42389) 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\225\312O\202a ) A@#\202r \321\"\311\f\203\217 rq\210eb\210\322\323\312\311#\203\213 `Sd|\210\324 \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 "^[^:]+:" 0 gnus-request-article search-forward "\n\n" nnheader-fold-continuation-lines article gnus-override-method gname nntp-server-buffer] 6 (#$ . 43054)])
#@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\225\312O\202[ ) A@#\202l \321\"\311\f\203\206 rq\210eb\210\322\323\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 "^[^:]+:" 0 gnus-request-article search-forward "\n\n" article gname nntp-server-buffer] 6 (#$ . 43792)])
#@52 Post the current buffer using GNUS-COMMAND-METHOD.
(defalias 'gnus-request-post #[(gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\323\324\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function request-post gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 44458)])
#@77 Expunge GROUP, which is removing articles that have been marked as deleted.
(defalias 'gnus-request-expunge-group #[(group gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+ A\312\211 \203(\313 \211A \2428\211 ;\204\232 \312\314 ! \3152 \206\304 !\204\320 \316\317\n\"\210\316\320\f
D\"\210 A@\321\235\203\351 \310\322 @\"\202\363 \310\311 @ A@#\211 \" B\211 #\n\235\204 \204\306#@\n\"\204#\nB\"*0+\232\203\232 \312\211 \204\237 +\211 $\203?\306 \n\"\204? $B\nB$))\323\324\"% &\325\326&\"\203]&\327\225\312O\202_&)A@\"\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function request-expunge-group string-match "^[^:]+:" 0 gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result group gname] 6 (#$ . 45879)])
#@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\225\316O\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 "^[^:]+:" 0 nil gname] 4 (#$ . 47436)])
(defalias 'gnus-request-update-info #[(info gnus-command-method) "\306@\3071/ ;\203 \310 !@\202 \311 !\204! \312 !\210\313\314\315\316 \n#!!)0\2021 \210\317*\205\226;\203s\211 \203I \f<\203I \f\206q\320\f
\"A\206q\f\321\232\203\\ \206Z\320\f \"A\206Z\320\f!\"A\206Z\" ##\203\224 \f\315\322#@@@#@@A@#\232\204\224 #\211A#\210\202r #@@)\206Z$ %%\203\300 \f\315\322%@@%@A@#\232\204\300 %\211A%\210\202\240 %@)\206Z&A\317\211 ' ((\203W\323(\211A(\2428\211;\204\321 \f \317\324 ) *\3252H \206\370 *\204\326\327
\"\210\326\330 !D\"\210 A@\331\235\203 \315\332 @\"\202$\315\322 @ A@#\211 + B\211 ,
\235\204D)\204D\320,@
\"\204D,
B+*0+\232\203\321 '\317\211(\204\326 '+\211 -\203n\320\f
\"\204n\f-B
B-))\333\306\".@ /\334\335/\"\203\215/\336\225\317O\202\217/).A@#\207" [gnus-command-method group func method server gnus-server-method-cache 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 #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-get-function string-match "^[^:]+:" 0 gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache name name-method result info gname] 7])
#@47 Request that GNUS-COMMAND-METHOD update INFO.
(defalias 'gnus-request-marks #[(info gnus-command-method) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+# $$\203\\ \310\311$@@@$@@A@#\232\204\\ $\211A$\210\202: $@@)\206+% &&\203\210 \310\311&@@&@A@#\232\204\210 &\211A&\210\202h &@)\206+'A\312\211 ( ) **\203(\313*\211A*\2428\211);\204\232 )\312\314 + , )\3152)\206\304 ),\204\320 \316\317\n\"\210\316\320\f
D\"\210)A@\321\235\203\351 \310\322)@\"\202\363 \310\311)@)A@#\211 -)B\211 .\n\235\204+\204\306.@\n\"\204.\nB-*0+\232\203\232 )(\312\211*\204\237 (+\211 /\203?\306 \n\"\204? /B\nB/))\323@ 0 1\3241}0;\203]\3250!@\202_0 )\326)!\204m\327)!\210\330\331\310\332)1#!!)0\202\210\312*\205\3562@ 0\333\323\"0 3\334\3353\"\203\2413\336\225\312O\202\2433)2A@#\205\355\33704\"J\211 5@\211 6\340V\203\3526\341U\203\313\340\202\320\3406SB 7\34128 8\34287C\" 92AA9\240\210+2*)\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" request-marks (error) gnus-find-method-for-group featurep require fboundp intern "%s-%s" gnus-get-function string-match "^[^:]+:" 0 intern-soft 1 2 gnus-range-add gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result group func info gname gnus-active-hashtb active min range read new-read] 7 (#$ . 49667)])
(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$ \f\320\225\310O\202% \f) A@
$ \203K \321 !\203K \322\n\"\211 \203J \323\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 "^[^:]+:" 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\225\314O\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 "^[^:]+:" 0 nil 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) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+! \"\"\203\\ \310\311\"@@@\"@@A@#\232\204\\ \"\211A\"\210\202: \"@@)\206+# $$\203\210 \310\311$@@$@A@#\232\204\210 $\211A$\210\202h $@)\206+%A\312\211 & ' ((\203(\313(\211A(\2428\211';\204\232 '\312\314 ) * '\3152'\206\304 '*\204\320 \316\317\n\"\210\316\320\f
D\"\210'A@\321\235\203\351 \310\322'@\"\202\363 \310\311'@'A@#\211 +'B\211 ,\n\235\204)\204\306,@\n\"\204,\nB+*0+\232\203\232 '&\312\211(\204\237 &+\211 -\203?\306 \n\"\204? -B\nB-))\204Z.;\203Z\323.!\206Y\324.!db\210n\204d\325c\210/\204\2000 0\326 \210\214\327 \2101 2\330 \210*\331 \210)\206\210\323.!\332\333\".;\203\255. 3\334\3353\"\203\2473\336\225\312O\202\2513)\202\257.A@4# -5\203\322\337!\203\322-A\203\322\340.-AC\"\210-*\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (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 "^[^:]+:" 0 gnus-agent-method-p gnus-agent-regenerate-group gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result group no-encode message-options message-default-charset mail-parse-charset gname last gnus-agent] 6])
(defalias 'gnus-request-replace-article #[(article group buffer &optional no-encode) "\204 \306 \210\214\307 \210\n\310 \210*\311 \210)\312\f!@ \313\314\315
\"!\f \316\317\"\2038 \320\225\321O\202: )# \203S \322!\203S \323\fC\"\210*\207" [no-encode message-options message-default-charset mail-parse-charset group func 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 "^[^:]+:" 0 nil gnus-agent-method-p gnus-agent-regenerate-group article gname 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\225\312O\202 ) A@#)\207" [group gnus-command-method article gname gnus-find-method-for-group gnus-get-function request-restore-buffer string-match "^[^:]+:" 0 nil] 5 (#$ . 55402)])
(defalias 'gnus-request-create-group #[(group &optional gnus-command-method args) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311 @@ @A@#\232\204\210 \211A \210\202h @)\206+ A\312\211 \203(\313 \211A \2428\211 ;\204\232 \312\314 ! \" \3152 \206\304 \"\204\320 \316\317\n\"\210\316\320\f
D\"\210 A@\321\235\203\351 \310\322 @\"\202\363 \310\311 @ A@#\211 # B\211 $\n\235\204!\204\306$@\n\"\204$\nB#*0+\232\203\232 \312\211 \204\237 +\211 %\203?\306 \n\"\204? %B\nB%))\206L\323&!\324\325\"& '\326\327'\"\203f'\330\225\312O\202h')A@(#)\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-find-method-for-group gnus-get-function request-create-group string-match "^[^:]+:" 0 gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result group gname args] 6])
(defalias 'gnus-request-delete-group #[(group &optional force) "\305!\306 \307\"\310\311\n\"\203 \n\312\225\313O\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 "^[^:]+:" 0 nil gnus-cache-delete-group gnus-agent-delete-group] 5])
(defalias 'gnus-request-rename-group #[(group new-name) "\305!\306 \307\"\310\311\n\"\203 \n\312\225\313O\202 \n) \310\311\n\"\203, \n\312\225\313O\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 "^[^:]+:" 0 nil 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) ";\203D\211\203 <\203 \206B\306 \n\"A\206B \307\232\203& \206+\306 \f\"A\206+\306
\"A\206+ \203\\ \310\311@@@@@A@#\232\204\\ \211A\210\202: @@)\206+ \203\210 \310\311@@@A@#\232\204\210 \211A\210\202h @)\206+A\312\211 \203(\313 \211A \2428\211;\204\232 \312\314 \3152\206\304 \204\320 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351 \310\322@\"\202\363 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\232 \312\211 \204\237 +\211 !\203?\306 \n\"\204? !B\nB!))\306\"\211 \"A@\211 #\323=\205[\"A\324\240*\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" denied closed gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result elem status] 6])
(provide 'gnus-int)
Kontol Shell Bypass