;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\"\210\312\315\316\"\210\317\320\321\322\323DD\324\325\326\327\330&\210\317\331\321\322\332DD\333\325\326\327\334&\210\317\335\321\322\336DD\337\325\326\327\334&\210\317\340\321\322\341DD\342\343\344\325\326\327\334&	\210\317\345\321\322\346DD\347\325\326\327\350&\210\317\351\321\322\352DD\353\325\326\327\354&\210\317\355\321\322\356DD\357\325\326\327\360&\210\317\361\321\322\362DD\363\325\326\327\334&\210\317\364\321\322\365DD\366\325\326\327\334&\210\317\367\321\322\370DD\366\325\326\327\334&\210\317\371\321\322\372DD\373\343\374\325\326\327\322&	\210\317\375\321\322\376DD\377\343\374\327\201@\325\326&	\210\317\201A\321\322\201BDD\201C\343\201D\327\201E\325\326&	\210\317\201F\321\322\201GDD\201H\343\374\327\360\325\326&	\210\317\201I\321\322\201JDD\201K\343\374\327\201L\325\326&	\210\317\201M\321\322\201NDD\201O\343\344\327\360\325\326&	\210\317\201P\321\322\201QDD\201R\343\344\325\326\327\350&	\210\317\201S\321\322\201TDD\201U\343\344\325\326\327\201V&	\210\317\201W\321\322\201XDD\201Y\343\344\327\360\325\326&	\210\317\201Z\321\322\201[DD\201\\\343\344\327\201]\325\326&	\210\317\201^\321\322\201_DD\201`\343\344\325\326\327\201a&	\210\317\201b\321\322\201cDD\201d\343\344\325\326\327\360&	\210\317\201e\321\322\201fDD\201g\343\344\325\326\327\201h&	\207" [require gnus gnus-cache nnmail nnvirtual gnus-sum gnus-score gnus-srvr gnus-util timer autoload gnus-server-update-server "gnus-srvr" gnus-agent-customize-category "gnus-cus" custom-declare-variable gnus-agent-directory funcall function #[0 "\301\302\"\207" [gnus-directory nnheader-concat "agent/"] 3 #1=""] "Where the Gnus agent will store its files." :group gnus-agent :type directory gnus-agent-plugged-hook #[0 "\300\207" [nil] 1 #1#] "Hook run when plugging into the network." hook gnus-agent-unplugged-hook #[0 "\300\207" [nil] 1 #1#] "Hook run when unplugging from the network." gnus-agent-fetched-hook #[0 "\300\207" [nil] 1 #1#] "Hook run when finished fetching articles." :version "22.1" gnus-agent-handle-level #[0 "\207" [gnus-level-subscribed] 1 #1#] "Groups on levels higher than this variable will be ignored by the Agent." integer gnus-agent-expire-days #[0 "\300\207" [7] 1 #1#] "Read articles older than this will be expired.\nIf you wish to disable Agent expiring, see `gnus-agent-enable-expiration'." (number :tag "days") gnus-agent-expire-all #[0 "\300\207" [nil] 1 #1#] "If non-nil, also expire unread, ticked and dormant articles.\nIf nil, only read articles will be expired." boolean gnus-agent-group-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook run in Agent group minor modes." gnus-agent-summary-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook run in Agent summary minor modes." gnus-agent-server-mode-hook #[0 "\300\207" [nil] 1 #1#] gnus-agent-confirmation-function #[0 "\300\207" [y-or-n-p] 1 #1#] "Function to confirm when error happens." "21.1" gnus-agent-synchronize-flags #[0 "\300\207" [nil] 1 #1#] "Indicate if flags are synchronized when you plug in.\nIf this is `ask' the hook will query the user." (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Ask" ask)) gnus-agent-go-online #[0 "\300\207" [ask] 1 #1#] "Indicate if offline servers go online when you plug in.\nIf this is `ask' the hook will query the user." "21.3" (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Ask" ask)) gnus-agent-mark-unread-after-downloaded #[0 "\300\207" [t] 1 #1#] "Indicate whether to mark articles unread after downloaded." gnus-agent-download-marks #[0 "\300\207" [(download)] 1 #1#] "Marks for downloading." (repeat (symbol :tag "Mark")) gnus-agent-consider-all-articles #[0 "\300\207" [nil] 1 #1#] "When non-nil, the agent will let the agent predicate decide\nwhether articles need to be downloaded or not, for all articles.  When\nnil, the default, the agent will only let the predicate decide\nwhether unread articles are downloaded or not.  If you enable this,\ngroups with large active ranges may open slower and you may also want\nto look into the agent expiry settings to block the expiration of\nread articles as they would just be downloaded again." gnus-agent-max-fetch-size #[0 "\300\207" [10000000] 1 #1#] "Chunk size for `gnus-agent-fetch-session'.\nThe function will split its article fetches into chunks smaller than\nthis limit." gnus-agent-enable-expiration #[0 "\300\207" [ENABLE] 1 #1#] "The default expiration state for each group.\nWhen set to ENABLE, the default, `gnus-agent-expire' will expire old\ncontents from a group's local storage.  This value may be overridden\nto disable expiration in specific categories, topics, and groups.  Of\ncourse, you could change gnus-agent-enable-expiration to DISABLE then\nenable expiration per categories, topics, and groups." (radio (const :format "Enable " ENABLE) (const :format "Disable " DISABLE)) gnus-agent-expire-unagentized-dirs #[0 "\300\207" [t] 1 #1#] "Whether expiration should expire in unagentized directories.\nHave `gnus-agent-expire' scan the directories under\n(gnus-agent-directory) for groups that are no longer agentized.\nWhen found, offer to remove them." gnus-agent-auto-agentize-methods #[0 "\300\207" [nil] 1 #1#] "Initially, all servers from these methods are agentized.\nThe user may remove or add servers using the Server buffer.\nSee Info node `(gnus)Server Buffer' and Info node `(gnus)Agent Variables'." (repeat symbol) gnus-agent-queue-mail #[0 "\300\207" [t] 1 #1#] "Whether and when outgoing mail should be queued by the agent.\nWhen `always', always queue outgoing mail.  When nil, never\nqueue.  Otherwise, queue if and only if unplugged." (radio (const :format "Always" always) (const :format "Never" nil) (const :format "When unplugged" t)) gnus-agent-prompt-send-queue #[0 "\300\207" [nil] 1 #1#] "If non-nil, `gnus-group-send-queue' will prompt if called when unplugged." gnus-agent-article-alist-save-format #[0 "\300\207" [1] 1 #1#] "Indicates whether to use compression(2), versus no\ncompression(1), when writing agentview files.  The compressed\nfiles do save space but load times are 6-7 times higher.  A group\nmust be opened then closed for the agentview to be updated using\nthe new format." (radio (const :format "Compressed" 2) (const :format "Uncompressed" 1))] 10)
(defvar gnus-agent-history-buffers nil)
(defvar gnus-agent-buffer-alist nil)
#@650 An assoc list identifying the articles whose headers have been fetched.
If successfully fetched, these headers will be stored in the group's overview
file.  The key of each assoc pair is the article ID, the value of each assoc
pair is a flag indicating whether the identified article has been downloaded
(gnus-agent-fetch-articles sets the value to the day of the download).
NOTES:
1) The last element of this list can not be expired as some
   routines (for example, get-agent-fetch-headers) use the last
   value to track which articles have had their headers retrieved.
2) The function `gnus-agent-regenerate' may destructively modify the value.
(defvar gnus-agent-article-alist nil (#$ . 6575))
(defvar gnus-agent-group-alist nil)
(defvar gnus-category-alist nil)
(defvar gnus-agent-current-history nil)
(defvar gnus-agent-overview-buffer nil)
(defvar gnus-category-predicate-cache nil)
(defvar gnus-category-group-cache nil)
#@98 Cache of message subjects for spam messages.
Actually a hash table holding subjects mapped to t.
(defvar gnus-agent-spam-hashtb nil (#$ . 7511))
(defvar gnus-agent-file-name nil)
(defvar gnus-agent-file-coding-system 'utf-8-emacs)
(defvar gnus-agent-file-loading-cache nil)
(defvar gnus-agent-total-fetched-hashtb nil)
(defvar gnus-agent-inhibit-update-total-fetched-for nil)
(defvar gnus-agent-need-update-total-fetched-for nil)
(defalias 'gnus-open-agent #[0 "\301\302 \210\303 \210\304 \210\305\306\307\"\210\305\310\307\"\210\305\311\307\"\207" [gnus-agent t gnus-agent-read-servers gnus-category-read gnus-agent-create-buffer add-hook gnus-group-mode-hook gnus-agent-mode gnus-summary-mode-hook gnus-server-mode-hook] 3])
(defalias 'gnus-agent-create-buffer #[0 "\211\205\301\302!\211\262!\205\211\262
\203\303\207\304\305!rq\210\306 \210)\307\207" [gnus-agent-overview-buffer buffer-live-p get-buffer t gnus-get-buffer-create " *Gnus agent overview*" mm-enable-multibyte nil] 4])
(gnus-add-shutdown 'gnus-close-agent 'gnus)
(defalias 'gnus-close-agent #[0 "\304\211\304\211\211\205\305\306!\211\262!\205\211\262
\205#\307
!\210\310 \207" [gnus-category-predicate-cache gnus-category-group-cache gnus-agent-spam-hashtb gnus-agent-overview-buffer nil buffer-live-p get-buffer kill-buffer gnus-prune-buffers] 6])
#@150 Performs the body then updates the group's line in the group
buffer.  Automatically blocks multiple updates due to recursion.

(fn GROUP &rest BODY)
(defalias 'gnus-agent-with-refreshed-group '(macro . #[385 "\300\301\302BB\303\304\305\306\307\310	\311BBFEE\207" [prog1 let ((gnus-agent-inhibit-update-total-fetched-for t)) when (and gnus-agent-need-update-total-fetched-for (not gnus-agent-inhibit-update-total-fetched-for)) with-current-buffer gnus-group-buffer (setq gnus-agent-need-update-total-fetched-for nil) gnus-group-update-group (t)] 12 (#$ . 8857)]))
#@45 Load FILE and do a `read' there.

(fn FILE)
(defalias 'gnus-agent-read-file #[257 "\300\301\302\"r\211q\210\303\304\"\216\3051\306!\210eb\210\307p!0\202!\210\310*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] (error) nnheader-insert-file-contents read nil] 5 (#$ . 9428)])
(defalias 'gnus-agent-method #[0 "\301@!\302A@\303\232\203\304\202A@Q\207" [gnus-command-method symbol-name "/" "" "unnamed"] 4])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-agent-method speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@39 The name of the Gnus agent directory.
(defalias 'gnus-agent-directory #[0 "\302\303\304	@!\305	A@\306\232\203\307\202	A@Q!\305#\207" [gnus-agent-directory gnus-command-method nnheader-concat nnheader-translate-file-chars symbol-name "/" "" "unnamed"] 7 (#$ . 10064)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-agent-directory speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@58 The full name of the Gnus agent library FILE.

(fn FILE)
(defalias 'gnus-agent-lib-file #[257 "\302
\303\302\304\305\306\307	@!\310	A@\311\232\203\312\202	A@Q!\310#\"!\"\207" [gnus-agent-directory gnus-command-method expand-file-name file-name-as-directory "agent.lib" nnheader-concat nnheader-translate-file-chars symbol-name "/" "" "unnamed"] 13 (#$ . 10489)])
#@32 

(fn CATEGORY PROPERTY VALUE)
(defalias 'gnus-agent-cat-set-property #[771 "\211\203
\236\206
C
AB\241\210\211\262

\241\210\2029
A@@=\2030\211
AA\241\266\2029\211A\211\262\204\210\207" [] 7 (#$ . 10863)])
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-name '(macro . #[257 "\300
D\207" [car] 3 (#$ . 11093)]))
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-days-until-old '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-days-until-old] 5 (#$ . 11199)]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-days-until-old gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-days-until-old #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-days-until-old] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-enable-expiration '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-enable-expiration] 5 (#$ . 11657)]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-enable-expiration gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-enable-expiration #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-enable-expiration] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-groups '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-groups] 5 (#$ . 12130)]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-groups gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-groups #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-groups] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-high-score '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-high-score] 5 (#$ . 12548)]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-high-score gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-high-score #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-high-score] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-length-when-long '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-long-article] 5 (#$ . 12986)]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-length-when-long gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-length-when-long #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-long-article] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-length-when-short '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-short-article] 5 (#$ . 13446)]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-length-when-short gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-length-when-short #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-short-article] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-low-score '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-low-score] 5 (#$ . 13911)]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-low-score gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-low-score #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-low-score] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-predicate '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-predicate] 5 (#$ . 14344)]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-predicate gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-predicate #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-predicate] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-score-file '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-score] 5 (#$ . 14777)]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-score-file gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-score-file #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-score] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@17 

(fn CATEGORY)
(defalias 'gnus-agent-cat-enable-undownloaded-faces '(macro . #[257 "\300\301\302ED\207" [cdr assq 'agent-enable-undownloaded-faces] 5 (#$ . 15205)]))
(byte-code "\300\301\302\303#\300\304\302\305#\300\207" [function-put gnus-agent-cat-enable-undownloaded-faces gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-enable-undownloaded-faces #[514 "\300
\301F\207" [gnus-agent-cat-set-property 'agent-enable-undownloaded-faces] 6 "\n\n(fn VALUE CATEGORY)"]] 7 "\n\n(fn DO &rest ARGS)"] gnus-agent-cat-groups #[385 "\300\301\302$\207" [gv--defsetter gnus-agent-cat-groups #[385 "\300\301C\"B\207" [gnus-agent-set-cat-groups append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"]] 5)
#@24 

(fn CATEGORY GROUPS)
(defalias 'gnus-agent-set-cat-groups #[514 "\211\301=?\205p\302\236A

=\203\303\202n

A=\2033\302\236\206.\302C
AB\241\210\211\262
\241\202n
\211\203W\211
A\262\242\304
!
=\204R\305
\306\302\236A\"\"\210\266\2024\303\210\302\236\206l\302C
AB\241\210\211\262
\241\262
\207" [gnus-category-group-cache ignore agent-groups nil gnus-group-category gnus-agent-set-cat-groups delete] 12 (#$ . 15942)])
#@47 

(fn NAME &optional DEFAULT-AGENT-PREDICATE)
(defalias 'gnus-agent-cat-make #[513 "
\300\206\301BD\207" [agent-predicate false] 5 (#$ . 16393)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-agent-cat-make speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@55 Read a group name in the minibuffer, with completion.
(defalias 'gnus-agent-read-group #[0 "\301 \206\302\303\211\304\303\211&\207" [gnus-newsgroup-name gnus-group-group-name gnus-group-completing-read nil t] 8 (#$ . 16693)])
#@52 Initialize data structures for efficient fetching.
(defalias 'gnus-agent-start-fetch #[0 "\300 \207" [gnus-agent-create-buffer] 1 (#$ . 16931)])
#@40 Save all data structures and clean up.
(defalias 'gnus-agent-stop-fetch #[0 "\302r	q\210~)\207" [gnus-agent-spam-hashtb nntp-server-buffer nil] 1 (#$ . 17082)])
#@36 Do FORMS safely.

(fn &rest FORMS)
(defalias 'gnus-agent-with-fetch '(macro . #[128 "\300\301\302\303BBB\304BB\207" [unwind-protect let ((gnus-agent-fetching t)) (gnus-agent-start-fetch) ((gnus-agent-stop-fetch))] 6 (#$ . 17250)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-agent-with-fetch lisp-indent-function 0 put edebug-form-spec t] 5)
#@19 

(fn TAIL VALUE)
(defalias 'gnus-agent-append-to-list '(macro . #[514 "\300\301\302\303BBEE\207" [setq setcdr cons (nil)] 9 (#$ . 17627)]))
#@25 

(fn LEVEL &rest ARGS)
(defalias 'gnus-agent-message '(macro . #[385 "\300\301\302BB\303BE\207" [if <= (gnus-verbose) message] 6 (#$ . 17777)]))
#@38 Hook run when installing agent mode.
(defvar gnus-agent-mode-hook nil (#$ . 17931))
(defvar gnus-agent-mode nil)
(defvar gnus-agent-mode-status '(gnus-agent-mode " Plugged"))
#@57 Minor mode for providing agent support in Gnus buffers.
(defalias 'gnus-agent-mode #[0 "\306\307\310!\"\210\311\312\310!\"\313\314\315\"!\316\301!\210\317\211\320L\210\316
!\317L\210\321\322\323\"\2032\313\314\324\"! \210\211\n\236\204?\211AB\nB\211\f\236\204Q\211\313\314\325\"!JB\fB\326\327!\203c
\320\330\331
!\210)\210\332\333\313\314\334\"!\"\207" [major-mode gnus-agent-mode minor-mode-alist gnus-agent-mode-status minor-mode-map-alist gnus-plugged string-match "^gnus-\\(.*\\)-mode$" symbol-name match-string 1 intern format "gnus-agent-%s-mode" make-local-variable t nil gnus-visual-p agent-menu menu "gnus-agent-%s-make-menu-bar" "gnus-agent-%s-mode-map" derived-mode-p gnus-group-mode :unknown gnus-agent-toggle-plugged gnus-run-hooks gnus-agent-mode-hook "gnus-agent-%s-mode-hook" gnus-agent-go-online] 8 (#$ . 18112)])
(defvar gnus-agent-group-mode-map (make-sparse-keymap))
(gnus-define-keys-1 gnus-agent-group-mode-map '("Ju" gnus-agent-fetch-groups "Jc" gnus-enter-category-buffer "Jj" gnus-agent-toggle-plugged "Js" gnus-agent-fetch-session "JY" gnus-agent-synchronize-flags "JS" gnus-group-send-queue "Ja" gnus-agent-add-group "Jr" gnus-agent-remove-group "Jo" gnus-agent-toggle-group-plugged))
(defalias 'gnus-agent-group-make-menu-bar #[0 "\301\302!?\205\303\304!\210\305\302\306\307$\207" [gnus-agent-group-mode-map boundp gnus-agent-group-menu (lambda (#1=#:def-tmp-var) (defvar gnus-agent-group-menu #1# #2="")) nil easy-menu-do-define #2# ("Agent" ["Toggle plugged" gnus-agent-toggle-plugged t] ["Toggle group plugged" gnus-agent-toggle-group-plugged t] ["List categories" gnus-enter-category-buffer t] ["Add (current) group to category" gnus-agent-add-group t] ["Remove (current) group from category" gnus-agent-remove-group t] ["Send queue" gnus-group-send-queue gnus-plugged] ("Fetch" ["All" gnus-agent-fetch-session gnus-plugged] ["Group" gnus-agent-fetch-group gnus-plugged]) ["Synchronize flags" gnus-agent-synchronize-flags t])] 5])
(defvar gnus-agent-summary-mode-map (make-sparse-keymap))
(gnus-define-keys-1 gnus-agent-summary-mode-map '("Jj" gnus-agent-toggle-plugged "Ju" gnus-agent-summary-fetch-group "JS" gnus-agent-fetch-group "Js" gnus-agent-summary-fetch-series "J#" gnus-agent-mark-article "J\243" gnus-agent-unmark-article "@" gnus-agent-toggle-mark "Jc" gnus-agent-catchup))
(defalias 'gnus-agent-summary-make-menu-bar #[0 "\301\302!?\205\303\304!\210\305\302\306\307$\207" [gnus-agent-summary-mode-map boundp gnus-agent-summary-menu (lambda (#1=#:def-tmp-var) (defvar gnus-agent-summary-menu #1# #2="")) nil easy-menu-do-define #2# ("Agent" ["Toggle plugged" gnus-agent-toggle-plugged t] ["Mark as downloadable" gnus-agent-mark-article t] ["Unmark as downloadable" gnus-agent-unmark-article t] ["Toggle mark" gnus-agent-toggle-mark t] ["Fetch downloadable" gnus-agent-summary-fetch-group t] ["Catchup undownloaded" gnus-agent-catchup t])] 5])
(defvar gnus-agent-server-mode-map (make-sparse-keymap))
(gnus-define-keys-1 gnus-agent-server-mode-map '("Jj" gnus-agent-toggle-plugged "Ja" gnus-agent-add-server "Jr" gnus-agent-remove-server))
(defalias 'gnus-agent-server-make-menu-bar #[0 "\301\302!?\205\303\304!\210\305\302\306\307$\207" [gnus-agent-server-mode-map boundp gnus-agent-server-menu (lambda (#1=#:def-tmp-var) (defvar gnus-agent-server-menu #1# #2="")) nil easy-menu-do-define #2# ("Agent" ["Toggle plugged" gnus-agent-toggle-plugged t] ["Add" gnus-agent-add-server t] ["Remove" gnus-agent-remove-server t])] 5])
#@39 

(fn STRING MOUSE-BUTTON MOUSE-FUNC)
(defalias 'gnus-agent-make-mode-line-string #[771 "\300\301\302\"\303\304%\207" [propertize local-map make-mode-line-mouse-map mouse-face mode-line-highlight] 9 (#$ . 21615)])
#@55 Toggle whether Gnus is unplugged or not.

(fn SET-TO)
(defalias 'gnus-agent-toggle-plugged #[257 "\211=\2042\211\203 \211\303\304!\210	A\305\306\307\310#\240\210\302\n!\210\2022\311 \210\211\303\312!\210	A\305\313\307\310#\240\210\314\315!\207" [gnus-plugged gnus-agent-mode-status gnus-agent-go-online gnus-run-hooks gnus-agent-plugged-hook gnus-agent-make-mode-line-string " Plugged" mouse-2 gnus-agent-toggle-plugged gnus-agent-close-connections gnus-agent-unplugged-hook " Unplugged" set-buffer-modified-p t] 6 (#$ . 21838) (byte-code "?C\207" [gnus-plugged] 1)])
#@19 

(fn &rest BODY)
(defalias 'gnus-agent-while-plugged '(macro . #[128 "\300\301\302\303\304BB\305BBE\207" [let ((original-gnus-plugged gnus-plugged)) unwind-protect progn (gnus-agent-toggle-plugged t) ((gnus-agent-toggle-plugged original-gnus-plugged))] 7 (#$ . 22419)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-agent-while-plugged lisp-indent-function 0 put edebug-form-spec t] 5)
#@46 Close all methods covered by the Gnus agent.
(defalias 'gnus-agent-close-connections #[0 "\300 \211\205\301
\211A\262\242!\210\202\207" [gnus-agent-covered-methods gnus-close-server] 4 (#$ . 22839)])
#@23 Start Gnus unplugged.
(defalias 'gnus-unplugged #[0 "\301\302 \207" [gnus-plugged nil gnus] 1 (#$ . 23050) nil])
#@21 Start Gnus plugged.
(defalias 'gnus-plugged #[0 "\301\302 \207" [gnus-plugged t gnus] 1 (#$ . 23170) nil])
#@53 Read news as a child unplugged.

(fn &optional ARG)
(defalias 'gnus-child-unplugged #[256 "\301\302
\301\303#\207" [gnus-plugged nil gnus child] 5 (#$ . 23284) "P"])
#@53 Read news as a child unplugged.

(fn &optional ARG)
(defalias 'gnus-slave-unplugged #[256 "\301\302
\301\303#\207" [gnus-plugged nil gnus child] 5 (#$ . 23457) "P"])
(make-obsolete 'gnus-slave-unplugged 'gnus-child-unplugged "28.1")
#@356 Allow Gnus to be an offline newsreader.

The gnus-agentize function is now called internally by gnus when
gnus-agent is set.  If you wish to avoid calling gnus-agentize,
customize `gnus-agent' to nil.

This will modify the `gnus-setup-news-hook', and
`message-send-mail-real-function' variables, and install the Gnus agent
minor mode in all Gnus buffers.
(defalias 'gnus-agentize #[0 "\305 \210\306\307\310	\311\"!?\205!\n\205!\312\313\314\"\210\315\316\fB\"\210\317 \207" [message-send-mail-real-function gnus-agent-directory gnus-agent-auto-agentize-methods gnus-select-method gnus-secondary-select-methods gnus-open-agent gnus-agent-send-mail file-exists-p nnheader-concat "lib/servers" gnus-message 3 "First time agent user, agentizing remote groups..." mapc #[257 "\211\211\203\211<\203\211\206)
\306
\"A\206)
\211\307\232\203 	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203M
\310\311@@@@@A@#\232\204M\211A\262
\2021\211@@\262
\206

\211\203p
\310\311@@@A@#\232\204p\211A\262
\202V\211@\262
\206
A\312\211\203
\211A\262\242\313
8\262
\262
;\204|\312\314C\3152
\211
\242\206\243	\240\210\204\261\316\317\320\"\"\210\nD\211\203\311\211@\316\317\321\"\"\210
A\266\202\202\264\210\211\242A@\322\235\203\334\310\323\242@\"\202\346\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203|
\262
\312\262\202|\266\202\211\203&
\306\"\204&


BB\211\262
\262
\211@>\205\257
\211\312\211C\3152\244
\211
\242\206C
	\240\210\204Q
\316\317\320\"\"\210\nD\211\203i
\211@\316\317\321\"\"\210
A\266\202\202T
\210\211\242A@\322\235\203|
\310\323\242@\"\202\206
\310\311\242@\242A@#\211\242B\204\240
\211\235\204\240
\306
@\"\204\240
\211B
\266\2020\266\204B\312\211\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" gnus-newsrc-alist gnus-agent-auto-agentize-methods gnus-agent-covered-methods gnus-agent-method-p-cache] 16 "\n\n(fn SERVER-OR-METHOD)"] gnus-agent-write-servers] 4 (#$ . 23698) nil])
#@124 Make sure the queue group exists.
Optional arg GROUP-NAME allows another group to be specified.

(fn &optional GROUP-NAME)
(defalias 'gnus-agent-queue-setup #[256 "\302\303\304\206\305\"\"?\2054\306
\206\305\307\"\210\310\311\303\304\206\"\305\"\312\313#\210)\314\303\304\2060\305\"\315\316#\207" [gnus-newsrc-hashtb gnus-level-default-subscribed gethash format "nndraft:%s" "queue" gnus-request-create-group (nndraft #1="") 1 gnus-subscribe-group nil (nndraft #1#) gnus-group-set-parameter gnus-dummy ((gnus-draft-mode))] 5 (#$ . 26157)])
(defalias 'gnus-agent-send-mail #[0 "\203	\203\303=\204\304 \207eb\210\305\306\307\n!\310Q!\210\311\310!\210\312\313!\210\314\315\316\317\211$\210\320\315!\207" [gnus-agent-queue-mail gnus-plugged mail-header-separator always message-multi-smtp-send-mail re-search-forward "^" regexp-quote "\n" replace-match gnus-agent-insert-meta-information mail gnus-request-accept-article "nndraft:queue" nil t gnus-group-refresh-group] 5])
#@192 Insert meta-information into the message that says how it's to be posted.
TYPE can be either `mail' or `news'.  If the latter, then METHOD can
be a select method.

(fn TYPE &optional METHOD)
(defalias 'gnus-agent-insert-meta-information #[513 "\212\301!\210eb\210\302\303!\304\305\306\"\307\261\210\310u\210\311\307\312\313#\205+\314\315\313\211#\210\202)\207" [gnus-agent-meta-information-header message-remove-header ": " symbol-name " " format "%S" "\n" -1 search-backward nil t replace-match "\\n"] 9 (#$ . 27153)])
#@38 Restore GCC field from saved header.
(defalias 'gnus-agent-restore-gcc #[0 "\212eb\210\301\302\303!\304Q\305\306#\205\307\310\311\"\210\202)\207" [gnus-agent-gcc-header re-search-forward "^" regexp-quote ":" nil t replace-match "Gcc:" fixedcase] 4 (#$ . 27688)])
(defalias 'gnus-agent-any-covered-gcc #[0 "\214\300 \210\301\302\303\304#\211\205\305\306\307\310\311\"!\"\303\211\204,
\203,\312@!\262

A\262\202\266\202)\207" [message-narrow-to-headers mail-fetch-field "gcc" nil t mapcar gnus-inews-group-method message-unquote-tokens message-tokenize-header " ," gnus-agent-method-p] 7])
#@32 Save GCC if Gnus is unplugged.
(defalias 'gnus-agent-possibly-save-gcc #[0 "?\205#\303 \205#\212eb\210\304\305\306\307\304#\205\"\310\n\311P\312\"\210\202*\207" [gnus-plugged case-fold-search gnus-agent-gcc-header gnus-agent-any-covered-gcc t re-search-forward "^gcc:" nil replace-match ":" fixedcase] 4 (#$ . 28296)])
#@28 Do GCC if Gnus is plugged.
(defalias 'gnus-agent-possibly-do-gcc #[0 "\204\n\301 ?\205\f\302 \207" [gnus-plugged gnus-agent-any-covered-gcc gnus-inews-do-gcc] 1 (#$ . 28628)])
#@68 Put all new articles in the current groups into the Agent.

(fn N)
(defalias 'gnus-agent-fetch-groups #[257 "\204\301\302!\210\303
\304\"\207" [gnus-plugged error "Groups can't be fetched when Gnus is unplugged" gnus-group-iterate gnus-agent-fetch-group] 4 (#$ . 28813) "P"])
#@69 Put all new articles in GROUP into the Agent.

(fn &optional GROUP)
(defalias 'gnus-agent-fetch-group #[256 "\211\206\262
\211\204\304\305!\210\306
!\204\307\310\"\207	\311\312\"\216\313\314!\210\315!\316\216\314\317 \210\320\n\"\210\321\322\323#,\207" [gnus-newsgroup-name gnus-plugged gnus-command-method gnus-agent-fetching error "No group on the current line" gnus-agent-group-covered-p message "%s isn't covered by the agent" make-closure #[0 "\301\300!\207" [V0 gnus-agent-toggle-plugged] 2] gnus-agent-toggle-plugged t gnus-find-method-for-group #[0 "\300 \207" [gnus-agent-stop-fetch] 1] gnus-agent-start-fetch gnus-agent-fetch-group-1 gnus-message 5 "Fetching %s...done"] 6 (#$ . 29098) (byte-code "\300 C\207" [gnus-group-group-name] 1)])
#@64 Add the current group to an agent category.

(fn CATEGORY ARG)
(defalias 'gnus-agent-add-group #[514 "
\236\301C\301C\302\303\304#\"\210\305\306\236A\242\244\"\210\307 \207" [gnus-category-alist nil gnus-group-iterate make-closure #[257 "\302\300\303!\240\236A\203\300\242\304
\305\302\300\242\236A\"\"\266\301
\301\242B\240\207" [V0 V1 agent-groups gnus-group-category gnus-agent-set-cat-groups delete] 8 "\n\n(fn GROUP)"] gnus-agent-set-cat-groups agent-groups gnus-category-write] 11 (#$ . 29867) (byte-code "\302\303\304\305\306\"\307#!	D\207" [gnus-category-alist current-prefix-arg intern gnus-completing-read "Add to category" mapcar #[257 "\300
@!\207" [symbol-name] 3 "\n\n(fn CAT)"] t] 6)])
#@69 Remove the current group from its agent category, if any.

(fn ARG)
(defalias 'gnus-agent-remove-group #[257 "\300C\301\302\303\"\"\210\304 \207" [nil gnus-group-iterate make-closure #[257 "\301\300\302!\240\236A\205\300\242\303
\304\301\300\242\236A\"\"\262
\207" [V0 agent-groups gnus-group-category gnus-agent-set-cat-groups delete] 8 "\n\n(fn GROUP)"] gnus-category-write] 7 (#$ . 30587) "P"])
#@43 Synchronize unplugged flags with servers.
(defalias 'gnus-agent-synchronize-flags #[0 "\212\301 \211\205\211@\302\303\304!!\203\305!\210\211A\262
)\202\262
)\207" [gnus-command-method gnus-agent-covered-methods file-exists-p gnus-agent-lib-file "flags" gnus-agent-synchronize-flags-server] 4 (#$ . 30997) nil])
#@64 Synchronize flags according to `gnus-agent-synchronize-flags'.
(defalias 'gnus-agent-possibly-synchronize-flags #[0 "\212\301 \211\205\211@\302!\303=\203\304!\210\211A\262
)\202\262
)\207" [gnus-command-method gnus-agent-covered-methods gnus-server-status ok gnus-agent-possibly-synchronize-flags-server] 3 (#$ . 31322) nil])
#@63 Synchronize flags set when unplugged for server.

(fn METHOD)
(defalias 'gnus-agent-synchronize-flags-server #[257 "\211\303\304\305\306!!\205v\307\310!q\210\311 \210\312\305\306!!\210\n\204)\313\314\315	A@#\210\202s\316	!\204:\313\314\317	A@#\210\202s\3201]\3211R`\322\323p!\324\"\210\211`|\266\202B0\325\305\306!!\266\202s\305\306!\326ed\305\306!\303\327%\210\330\331\332!#\266\333\303!*\207" [gnus-agent gnus-command-method gnus-plugged nil file-exists-p gnus-agent-lib-file "flags" gnus-get-buffer-create " *Gnus Agent flag synchronize*" erase-buffer nnheader-insert-file-contents gnus-message 1 "You must be plugged to synchronize flags with server %s" gnus-check-server "Couldn't open server %s" (error) (end-of-file) eval read t delete-file write-region silent error "Couldn't set flags from file %s due to %s" error-message-string kill-buffer] 9 (#$ . 31663)])
#@88 Synchronize flags for server according to `gnus-agent-synchronize-flags'.

(fn METHOD)
(defalias 'gnus-agent-possibly-synchronize-flags-server #[257 "\301\302\303!!\205&\203\304=\203#\304=\205&\305\306\307A@\"!\205&\310
!\207" [gnus-agent-synchronize-flags file-exists-p gnus-agent-lib-file "flags" ask gnus-y-or-n-p format-message "Synchronize flags on server `%s'? " gnus-agent-synchronize-flags-server] 5 (#$ . 32554)])
#@269 Rename fully-qualified OLD-GROUP as NEW-GROUP.
Always updates the agent, even when disabled, as the old agent
files would corrupt gnus when the agent was next enabled.
Depends upon the caller to determine whether group renaming is
supported.

(fn OLD-GROUP NEW-GROUP)
(defalias 'gnus-agent-rename-group #[514 "\303!\304
\305!)!\303!\304
\305!)!	\306\307#\210\310\311\"\203.\312\225\313O\202/\310\311\"\203?\312\225\313O\202@\314\"\315\313#\210\315#\210\316		#\317\n\313\211\f%\210\317	@A\n%\262
\266\203)\207" [gnus-command-method nnmail-pathname-coding-system file-name-coding-system gnus-find-method-for-group directory-file-name gnus-agent-group-pathname gnus-rename-file t string-match "^[^:]+:" 0 nil gnus-agent-get-group-info gnus-agent-save-group-info gnus-agent-get-local gnus-agent-set-local] 16 (#$ . 32994)])
#@238 Delete fully-qualified GROUP.
Always updates the agent, even when disabled, as the old agent
files would corrupt gnus when the agent was next enabled.
Depends upon the caller to determine whether group deletion is
supported.

(fn GROUP)
(defalias 'gnus-agent-delete-group #[257 "\303
!\304
\305!)!	\306
!\210\307\310\"\203 \311\225\312O\202!\313\312#\210\314#\210\315\312\211%\262
)\207" [gnus-command-method nnmail-pathname-coding-system file-name-coding-system gnus-find-method-for-group directory-file-name gnus-agent-group-pathname gnus-delete-directory string-match "^[^:]+:" 0 nil gnus-agent-save-group-info gnus-agent-get-local gnus-agent-set-local] 10 (#$ . 33864)])
#@37 Enroll SERVER in the agent program.
(defalias 'gnus-agent-add-server #[0 "\306 \307 
\205\251
\310\211;\203=
\211\211\203\211<\203\211\2068
\311
\"A\2068
\211\312\232\203/	\206$
\311
\n\"A\206$
\311
\"A\206$
\f\211\203\\
\313\314@@@@@A@#\232\204\\\211A\262
\202@\211@@\262
\206$

\211\203
\313\314@@@A@#\232\204\211A\262
\202e\211@\262
\206$
'A\310\211\203\"
\211A\262\242\315
8\262
\262
;\204\213\310\316C\3172
\211
\242\206\262	\240\210\204\300\320\321\322\"\"\210\nD\211\203\330\211@\320\321\323\"\"\210
A\266\202\202\303\210\211\242A@\324\235\203\353\313\325\242@\"\202\365\313\314\242@\242A@#\211\242B\204
\211\235\204
\311
@\"\204
\211B
\266\2020\266\204\232\203\213
\262
\310\262\202\213\266\202\211\2035
\311\"\2045


BB\211\262
\266\203\202\251
\211	\232\203I
	\266\202\202\251

\203\\
\211@;\203\\
\326\"\266\202\202\251
\211\203q

\204q
\211A@\327\232\203q
\262
\202\251
\211\330
@!\331\311(\">\203\246
\332
\333P!\236\204\246
\334@(\236>\203\246
\335\332\333P!A@DC\"\266\204\202\251

\266\204\204\261
\336\337!\210\340
!\203\273
\336\341!\210
)B)\310*\342!\210\343 \210\344\345\346#\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-server-server-name gnus-server-named-server nil assoc "native" format "%s:%s" 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append error "No server on the current line" gnus-agent-method-p "Server already in the agent program" gnus-server-update-server gnus-agent-write-servers gnus-message 1 "Entered %s into the Agent" gnus-newsrc-alist gnus-valid-select-methods gnus-agent-covered-methods gnus-agent-method-p-cache] 19 (#$ . 34562) nil])
#@39 Remove SERVER from the agent program.
(defalias 'gnus-agent-remove-server #[0 "\302 \303 
\204\f\304\305!\210\211\235\204\304\306!\210\307
\"\310\311!\210\312 \210\313\314\315#\207" [gnus-agent-covered-methods gnus-agent-method-p-cache gnus-server-server-name gnus-server-named-server error "No server on the current line" "Server not in the agent program" delete nil gnus-server-update-server gnus-agent-write-servers gnus-message 1 "Removed %s from the agent"] 6 (#$ . 36684) nil])
#@36 Read the alist of covered servers.
(defalias 'gnus-agent-read-servers #[0 "\304\305\306\"!\307\205\310 \207" [gnus-agent-directory gnus-agent-covered-methods gnus-agent-method-p-cache gnus-server-alist gnus-agent-read-file nnheader-concat "lib/servers" nil gnus-agent-read-servers-validate] 4 (#$ . 37183)])
(defalias 'gnus-agent-read-servers-validate #[0 "\301\302\303\"\207" [gnus-agent-covered-methods mapcar #[257 "\211;\203	\211\202|\211\306\211C\3072z\211
\242\206\240\210\204'\310\311\312\"	\"\210\nD\211\203?\211@\310\311\313\"\"\210
A\266\202\202*\210\211\242A@\314\235\203R\315\316\242@\"\202\\\315\317\242@\242A@#\211\242B\204v\211	\235\204v\320
@	\"\204v\211	B
\266\2020\266\204\211\211\203\212\211<\203\212\211\206\245
\320
	\"A\206\245
\211\321\232\203\234\206\221
\320
\n\"A\206\221
\320
\"A\206\221
\f\211\203\311
\315\317@@@@@A@#\232\204\311\211A\262
\202\255\211@@\262
\206\221

\211\203\354
\315\317@@@A@#\232\204\354\211A\262
\202\322\211@\262
\206\221
A\306\211\203\217
\211A\262\242\322
8\262
\262
;\204\370\306\323C\3072\200
\211
\242\206
\240\210\204-
\310\311\312\"	\"\210\nD\211\203E
\211@\310\311\313\"\"\210
A\266\202\2020
\210\211\242A@\314\235\203X
\315\316\242@\"\202b
\315\317\242@\242A@#\211\242B\204|
\211	\235\204|
\320
@	\"\204|
\211	B
\266\2020\266\204\232\203\370
\262
\306\262\202\370\266\202\211\203\242
\320	\"\204\242


B	B\211\262
\262
\211\203\276

\235?\205\303

B\306\211\207\324\325\326#\207" [gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods nil server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") format "%s" "%s:%s" assoc "native" 4 t gnus-message 8 "Ignoring disappeared server `%s'" gnus-newsrc-alist gnus-agent-covered-methods gnus-agent-method-p-cache] 17 "\n\n(fn SERVER-OR-METHOD)"] nil] 4])
#@22 

(fn NATIVE-METHOD)
(defalias 'gnus-agent-read-servers-validate-native #[257 "\301\302\303\"\"\211\207" [gnus-agent-covered-methods mapcar make-closure #[257 "\211\203\n\211\300\232\203\f\301\207\207" [V0 "native"] 3 "\n\n(fn METHOD)"]] 5 (#$ . 39363)])
#@37 Write the alist of covered servers.
(defalias 'gnus-agent-write-servers #[0 "\306\307\310\"!\210	\n\307\311\"\312\313\314\"\315\316\"\216r\211q\210\317
p\")r
q\210\320\321\211\321\322%\210*\266\202*\207" [gnus-agent-directory nnheader-file-coding-system nnmail-pathname-coding-system file-name-coding-system coding-system-for-write gnus-agent-covered-methods gnus-make-directory nnheader-concat "lib" "lib/servers" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] prin1 write-region nil 0] 9 (#$ . 39629)])
#@237 Mark the next N articles as downloadable.
If N is negative, mark backward instead.  If UNMARK is non-nil, remove
the mark instead.  The difference between N and the actual number of
articles marked is returned.

(fn N &optional UNMARK)
(defalias 'gnus-agent-mark-article #[513 "
\300W\301!\211\300V\203?\302\303`\304\"\211\205\305
!\266\303`\306\"\206#\307 \"\210\310\203/\311\2020\312\313\314#\300U\203?\211S\262
\202\211\300U\204J\315\316\317\"\210\320 \210\321 \210\207" [0 abs gnus-summary-set-agent-mark get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-next-subject -1 1 nil t gnus-message 7 "No more articles" gnus-summary-recenter gnus-summary-position-point] 8 (#$ . 40217) "p"])
#@189 Remove the downloadable mark from the next N articles.
If N is negative, unmark backward instead.  The difference between N and
the actual number of articles unmarked is returned.

(fn N)
(defalias 'gnus-agent-unmark-article #[257 "\300
\301\"\207" [gnus-agent-mark-article t] 4 (#$ . 40988) "p"])
#@188 Toggle the downloadable mark from the next N articles.
If N is negative, toggle backward instead.  The difference between N and
the actual number of articles toggled is returned.

(fn N)
(defalias 'gnus-agent-toggle-mark #[257 "\300
\301\"\207" [gnus-agent-mark-article toggle] 4 (#$ . 41293) "p"])
#@196 Mark ARTICLE as downloadable.  If UNMARK is nil, article is marked.
When UNMARK is t, the article is unmarked.  For any other value, the
article's mark is toggled.

(fn ARTICLE &optional UNMARK)
(defalias 'gnus-summary-set-agent-mark #[513 "\211\306\267\202\307\202\310\202
>\311\307\310#\205\206\312
\203~\313\"	>\203-\n\202\204>\2037\202\204\f>\203A
\202\204>\203M\202\204>\203Y\202\204>\203e\202\204>\203q\202\204\236A\206\204\202\204\314\"\315\"\207" [gnus-newsgroup-downloadable gnus-newsgroup-unsendable gnus-unsendable-mark gnus-downloadable-mark gnus-newsgroup-unreads gnus-unread-mark #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 6 t 10)) nil t gnus-summary-goto-subject gnus-summary-update-mark delq gnus-add-to-sorted-list unread gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-spam-marked gnus-spam-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-newsgroup-expirable gnus-expirable-mark gnus-newsgroup-reads gnus-ancient-mark] 7 (#$ . 41599)])
#@59 Construct list of articles that have not been downloaded.
(defalias 'gnus-agent-get-undownloaded-list #[0 "\306!\307\302!\210\310	!\211\205\315\311!\312\313\314\"\315\"\f\205
\316C\211\316C\211\203\251\203\251@@@

W\203EA\262	\266\202%

V\203a
C\241\262
C\241\262A\262\266\202%@A\203wA\262	A\262\266\202%A\262	A\262\203\226@W\203\226A\262\202\201
@\232\204\244C\241\262\266\202%\203\302\211A\262\242
C\241\262

C\241\266\202\202\251A
A\211\266\207)\207" [gnus-newsgroup-name gnus-command-method gnus-newsgroup-agentized gnus-newsgroup-headers gnus-use-cache gnus-newsgroup-cached gnus-find-method-for-group make-local-variable gnus-agent-method-p gnus-agent-load-alist sort mapcar #[257 "\211\300H\207" [0] 3 "\n\n(fn H)"] < nil gnus-newsgroup-undownloaded gnus-newsgroup-unfetched] 11 (#$ . 42678)])
#@121 Mark as read all unhandled articles.
An article is unhandled if it is neither cached, nor downloaded, nor
downloadable.
(defalias 'gnus-agent-catchup #[0 "\212	\204\n\n\203\304\211\305!	\"\n\"\262
\211\203&\306
\211A\262\242\"\210\202\210\307 )\207" [gnus-newsgroup-undownloaded gnus-newsgroup-downloadable gnus-newsgroup-cached gnus-catchup-mark gnus-sorted-ndifference copy-tree gnus-summary-mark-article gnus-summary-position-point] 5 (#$ . 43564) nil])
#@51 Fetch the process-marked articles into the Agent.
(defalias 'gnus-agent-summary-fetch-series #[0 "\205$	\303\304!\305\"\211\306 \210\307\310\311\n\"\"\210\311\311\n\"\")\266\202\211\207" [gnus-newsgroup-processable gnus-newsgroup-downloadable gnus-newsgroup-undownloaded sort copy-tree < gnus-agent-summary-fetch-group mapc gnus-summary-remove-process-mark gnus-sorted-ndifference] 7 (#$ . 44037) nil])
#@126 Fetch the downloadable articles in the group.
Optional arg ALL, if non-nil, means to fetch all articles.

(fn &optional ALL)
(defalias 'gnus-agent-summary-fetch-group #[256 "\211\203\202		\306\n!\307
\f\310\311\"\216\312\313!\210\204!\314\315!\210\316\216\313\317 \210\320\321\n\"\211\262\"*\212\211\203\200\211@\211	>\203c\322	\"
\235\204l
\235\204l\323\"\210\202l\211\203l\324\313\"\210\325\307\313#\203x\326!\210\210
A\266\202\2029\210*\210)\207" [gnus-newsgroup-articles gnus-newsgroup-downloadable gnus-newsgroup-name gnus-command-method gnus-plugged gnus-agent-fetching gnus-find-method-for-group nil make-closure #[0 "\301\300!\207" [V0 gnus-agent-toggle-plugged] 2] gnus-agent-toggle-plugged t error "No articles to download" #[0 "\300 \207" [gnus-agent-stop-fetch] 1] gnus-agent-start-fetch gnus-sorted-ndifference gnus-agent-fetch-articles delq gnus-summary-mark-article gnus-summary-set-agent-mark gnus-summary-goto-subject gnus-summary-update-download-mark gnus-newsgroup-undownloaded gnus-agent-mark-unread-after-downloaded gnus-newsgroup-dormant gnus-newsgroup-marked gnus-unread-mark] 12 (#$ . 44455) "P"])
#@123 Fetch the current article as it is selected.
This can be added to `gnus-select-article-hook' or
`gnus-mark-article-hook'.
(defalias 'gnus-agent-fetch-selected-article #[0 "\n\205\306	!\205\307\fC\"\205\310\f
\"\311\f!)\207" [gnus-current-select-method gnus-command-method gnus-plugged gnus-newsgroup-name gnus-current-article gnus-newsgroup-undownloaded gnus-agent-method-p gnus-agent-fetch-articles delq gnus-summary-update-download-mark] 3 (#$ . 45623)])
#@88 Update a plugged group by performing the indicated actions.

(fn GROUP ACTIONS SERVER)
(defalias 'gnus-agent-synchronize-group-flags #[771 "\211\211\203\211<\203\211\206)
\306
\"A\206)
\211\307\232\203 	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203M
\310\311@@@@@A@#\232\204M\211A\262
\2021\211@@\262
\206

\211\203p
\310\311@@@A@#\232\204p\211A\262
\202V\211@\262
\206
\"A\312\211\203
\211A\262\242\313
8\262
\262
;\204|\312\314C\3152
\211
\242\206\243	\240\210\204\261\316\317\320\"\"\210\nD\211\203\311\211@\316\317\321\"\"\210
A\266\202\202\264\210\211\242A@\322\235\203\334\310\323\242@\"\202\346\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203|
\262
\312\262\202|\266\202\211\203&
\306\"\204&


BB\211\262
\262
#\324
$\"A@\262
\206K
\325#\"\211\262\324
$\"A@\262
\326\"\210\211\203\374
\211\203\337
\211@\211@
A@\3278\211\211\203\326
\211@\211\330=\203\231
AA\211\331=\203
\332\202\200
\333\3278\"\240\266\334\324\n@%\"\"\210\202\317
\211\335=\203\317
\306
\336\n8\"\211\204\273

C\211\262\336\n\233\211@B\240\266\211\331=\203\306
\332\202\307
\333A\"\241\266
A\266\202\202d
\266
A\266\202\202U
\210&\211\205\362
\337\340!\211\262!\205\362
\211\262
\203\374
\341\314\"\210)\312\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" gethash gnus-group-full-name gnus-request-set-mark 2 read add gnus-range-add gnus-remove-from-range gnus-get-unread-articles-in-group tick 3 buffer-live-p get-buffer gnus-group-update-group gnus-newsrc-alist gnus-command-method gnus-newsrc-hashtb gnus-active-hashtb gnus-group-buffer] 18 (#$ . 46096)])
#@280 Sync the agent's active file with the current buffer.
Pass non-nil for GROUPS-P if the buffer starts out in groups format.
Regardless, both the file and the buffer end up in active format
if METHOD is agentized; otherwise the function is a no-op.

(fn METHOD &optional GROUPS-P)
(defalias 'gnus-agent-save-active #[513 "\303!\205<
\304ed\"\305\306\206\307\310\311$\262
\312\313!\203'\314\315\"\210\202,\316\315\"\210\317
\"\210\320 \210	\321
!*\266\202\207" [gnus-command-method gnus-agent-file-coding-system nnheader-file-coding-system gnus-agent-method-p count-lines make-hash-table :size 300 :test equal gnus-agent-lib-file "active" gnus-groups-to-gnus-format nil gnus-active-to-gnus-format gnus-agent-write-active erase-buffer nnheader-insert-file-contents] 8 (#$ . 48225)])
#@17 

(fn FILE NEW)
(defalias 'gnus-agent-write-active #[514 "\302\303!!\210\304\305#)\207" [gnus-agent-file-coding-system nnmail-active-file-coding-system gnus-make-directory file-name-directory gnus-write-active-file nil] 6 (#$ . 49023)])
#@121 Possibly expand a group's active range to include articles
downloaded into the agent.

(fn GROUP ACTIVE &optional INFO)
(defalias 'gnus-agent-possibly-alter-active #[770 "\206\301!\302!\205k\303!@\206\304A\206\304@\206#
A\206)

W\2034\240\210\211V\203?
\241\210\205i\211\305ZW\205i\3068AA\211\307T	SBC\"\240\266\310S#\266\205)\207" [gnus-command-method gnus-find-method-for-group gnus-agent-method-p gnus-agent-get-local 0 100 2 gnus-range-add gnus-agent-set-local] 15 (#$ . 49272)])
#@103 Update single group's active range in agent's copy of server's active file.

(fn METHOD GROUP ACTIVE)
(defalias 'gnus-agent-save-group-info #[771 "\305!\205\237\206	\306\307!\310\211\311\312!!\210\313\314\315\"\316\317\"\216r\211q\210\320!\203W\321!\210eb\210\322\323\324!\325Q\310\315#\203W\212\326p!\262\326p!\262)\327 \330y\210`|\210\205\213\331\332\206fAA]\206r@	@^$c\210db\210\333\334\310\315#\205\213\335\330!\210\202|)r
q\210\336\310\211\310\337%\210*\262
+\266\203\207" [gnus-command-method nnheader-file-coding-system coding-system-for-write nnmail-pathname-coding-system file-name-coding-system gnus-agent-method-p gnus-agent-lib-file "active" nil gnus-make-directory file-name-directory generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] file-exists-p nnheader-insert-file-contents re-search-forward "^" regexp-quote " " read point-at-bol 1 format "%s %d %d y\n" search-backward "\\." delete-char write-region 0] 14 (#$ . 49807)])
#@93 Get single group's active range in agent's copy of server's active file.

(fn METHOD GROUP)
(defalias 'gnus-agent-get-group-info #[514 "\305!\205X
\206	\306\307!\310\211\311\312!!\210\313\314\315\"r\211q\210\316\317\"\216\320!\205R\321!\210eb\210\322\323\324!\325Q\310\315#\205R\212\326p!\262\326p!\262)B*\262
+\266\203\207" [gnus-command-method nnheader-file-coding-system coding-system-for-write nnmail-pathname-coding-system file-name-coding-system gnus-agent-method-p gnus-agent-lib-file "active" nil gnus-make-directory file-name-directory generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] file-exists-p nnheader-insert-file-contents re-search-forward "^" regexp-quote " " read] 10 (#$ . 50861)])
#@47 Translate GROUP into a file name.

(fn GROUP)
(defalias 'gnus-agent-group-path #[257 "\303\304\305\306\"\203\307\225\310O\202\311\312\313#\266\203\314\312#!\262
\204H\315\316\317	\303\320\n@!\321\nA@\322\232\203<\323\202?\nA@Q!\321#\"!\203I\207\211\314\311\313#\207" [nnmail-use-long-file-names gnus-agent-directory gnus-command-method nnheader-translate-file-chars nnheader-replace-duplicate-chars-in-string string-match "^[^:]+:" 0 nil 47 95 subst-char-in-string 46 file-directory-p expand-file-name nnheader-concat symbol-name "/" "" "unnamed"] 11 (#$ . 51652)])
#@47 Translate GROUP into a file name.

(fn GROUP)
(defalias 'gnus-agent-group-pathname #[257 "\302\303\304\"\203
\305\225\306O\202
\2033\307	\310\311@!\312A@\313\232\203)\314\202,A@Q!\312#\202S\315!\307	\310\311@!\312A@\313\232\203K\314\202NA@Q!\312#)\"\207" [gnus-command-method gnus-agent-directory nnmail-group-pathname string-match "^[^:]+:" 0 nil nnheader-concat nnheader-translate-file-chars symbol-name "/" "" "unnamed" gnus-find-method-for-group] 10 (#$ . 52243)])
#@15 

(fn METHOD)
(defalias 'gnus-agent-get-function #[257 "\300
!\203	\211@\207\301\302!\210\302\207" [gnus-online require nnagent] 3 (#$ . 52738)])
#@61 Return the subset of methods that are covered by the agent.
(defalias 'gnus-agent-covered-methods #[0 "\301\302\303\304\"\"\207" [gnus-agent-covered-methods delq nil mapcar gnus-server-to-method] 5 (#$ . 52891)])
(defalias 'gnus-agent-history-buffer #[0 "\302\303@!\304A@\305\232\203\306\202A@Q	\"A\207" [gnus-command-method gnus-agent-history-buffers assoc symbol-name "/" "" "unnamed"] 5])
(defalias 'gnus-agent-open-history #[0 "\212\303@!\304A@\305\232\203\306\202A@Q\307\310\311\303@!\304A@\305\232\203*\306\202-A@Q\"!qB	B\312 \210\313c\210\314\315!\316
!\203H\317
!\210\320\302!\210\211\211\262
)\207" [gnus-command-method gnus-agent-history-buffers gnus-agent-file-name symbol-name "/" "" "unnamed" gnus-get-buffer-create format " *Gnus agent %s history*" erase-buffer "\n" gnus-agent-lib-file "history" file-exists-p nnheader-insert-file-contents make-local-variable] 8])
(defalias 'gnus-agent-close-history #[0 "\211\205\303\304!\211\262!\205\211\262
\2057\305!\210\306\307\310	@!\311	A@\312\232\203-\313\2020	A@Q\n\"\n\"\211\207" [gnus-agent-current-history gnus-command-method gnus-agent-history-buffers buffer-live-p get-buffer kill-buffer delq assoc symbol-name "/" "" "unnamed"] 6])
#@77 Fetch ARTICLES from GROUP and put them into the Agent.

(fn GROUP ARTICLES)
(defalias 'gnus-agent-fetch-articles #[514 "\211\205&\306\307!!\205&\310!\210
G\311W?\205	\312C\313\312\211\211A\262\242\211\262\203\265
@@\2066TV\203AA\262\202,
@@=\203P@A\204
@\211\203]\211\313H\202_T\262
\211\262V\203oA\262\202P@B\240\210\nU\203\233@\314H\211\313X\203\225\315@\316H_\317]\202\226\211\262
\202\234\313\\\211\262W\203\211@\237\240\210\312B\262\313\262\202A\204\277@\205$\312C\211\320\n!\321\312!\322\312\211\f	\211@\237\240\210	\237\262\n\323!\210\324\316\325#\210\326\327$\216	\211A\262\242\211\262\203\330\3311-
\211;\203
\332
!@\202
\211\333
!\204
\334
!\210\335\336\337\340#!!\262
0\266\202\2020
\266\312\203>
\341
\"\262\202\223
\342\343\322\"r\211q\210\326\344\"\216\312\211A\262\242\211\262\203\205
\324\345\346$\210\347:#\204s
\350
\"\203L
db\210\211`BB\262\351:!\210\202L
\352:ed#\210\237\262\210*\210r:q\210
\203
@AA@A\206\247
d}\210eb\210m\204\353\354\312\322#\203\361
\355\356\312\322#\203\361
\313\225b\210\357\312w\210\360\312w\210\312\262
\361\362!\203\351
\363\364!\365\363\311!!B
B\262
\313\225b\210\202\317
\366
@@#\210eb\210;<\367ed\370@@!P\312\371%\210)@@C\241\262~\210
A\262\202\230
)\202\360)A*\266\206\266\206\207" [gnus-agent-article-alist gnus-newsgroup-headers gnus-agent-max-fetch-size case-fold-search nnmail-pathname-coding-system file-name-coding-system gnus-online gnus-group-method gnus-agent-load-alist 2 nil 0 6 65 7 1000 gnus-agent-group-pathname time-to-days t gnus-make-directory gnus-message "Fetching articles for %s..." make-closure #[0 "\303\300\301A\302#\210\304\300\301A\"\210\305\306\307\"\207" [V0 V1 V2 gnus-agent-save-alist gnus-agent-update-files-total-fetched-for gnus-message 7 ""] 4] retrieve-articles (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" gnus-retrieve-articles generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] 10 "Fetching article %s for %s..." gnus-backlog-request-article gnus-request-article insert-buffer-substring copy-to-buffer search-forward "\n\n" search-backward "\nXrefs: " "^ " " " looking-at "\\([^: \n]+\\):\\([0-9]+\\) *" match-string 1 string-to-number gnus-agent-crosspost write-region number-to-string silent nntp-server-buffer gnus-agent-file-coding-system coding-system-for-write] 23 (#$ . 54129)])
#@83 Delete ARTICLES that were fetched from GROUP into the agent.

(fn GROUP ARTICLES)
(defalias 'gnus-agent-unfetch-articles #[514 "\211\205\240\306\307!\210\310	B\311\312\"

\211A\262\242
A\203\201\211\203\201
A@@

W\2036\211A\262\242\266\202\202

U\203yA@A\211\203n\313!\314!P\315\n\203\\\316!\317
8\262
\206]\320!\321!\210\322\n[\"\210)\266\210\211AA\241\266\202A\262\210\202A\323!\266\204)
\203\240\204\240rq\210\310\324\306\"\210)\207" [gnus-agent-inhibit-update-total-fetched-for gnus-agent-article-alist gnus-agent-total-fetched-hashtb nnmail-pathname-coding-system file-name-coding-system gnus-agent-need-update-total-fetched-for t gnus-agent-load-alist nil sort < gnus-agent-group-pathname number-to-string float file-attributes 7 0 delete-file gnus-agent-update-files-total-fetched-for gnus-agent-save-alist gnus-group-update-group gnus-group-buffer] 13 (#$ . 56626)])
#@39 

(fn CROSSES ARTICLE &optional DATE)
(defalias 'gnus-agent-crosspost #[770 "\211\206\306\262
\307\211\211\211\211r	q\210\310!\203%\311v\210`\262\311y\210`\262
)\205\243@@\262\312\n\"\211\262\204I\313	@@!D\211\262\nB@ABAB\241\210r\314\315\316\"!q\210deU\203\200pBB\3171\f\320\321\322\"!)0\210\202\200\210\310\323	@A!!\210\323@A!c\210\324	#\210\325 \210)A\262\202&)\207" [gnus-agent-article-alist gnus-agent-overview-buffer gnus-agent-group-alist gnus-agent-buffer-alist nnmail-pathname-coding-system file-name-coding-system t nil nnheader-find-nov-line 1 assoc gnus-agent-load-alist gnus-get-buffer-create format " *Gnus agent overview %s*" (error) nnheader-insert-file-contents gnus-agent-article-name ".overview" string-to-number insert-buffer-substring gnus-agent-check-overview-buffer] 12 (#$ . 57553)])
(defalias 'gnus-agent-backup-overview-buffer #[0 "\2030\303\304\"\305\306	\307\310\311T\211\262!\310R\211\262!\204\f\312ed\306\313%\210\314\315\316#\210)\266\317\207" [gnus-newsgroup-name nnmail-pathname-coding-system file-name-coding-system gnus-agent-article-name ".overview" 0 nil file-exists-p "~" int-to-string write-region no-msg gnus-message 1 "Created backup copy of overview in %s." t] 9])
#@164 Check the overview file given for sanity.
In particular, checks that the file is sorted by article number
and that there are no duplicates.

(fn &optional BUFFER)
(defalias 'gnus-agent-check-overview-buffer #[256 "\300\301\212\203\nq\210\214~\210eb\210`dW\205\216`\3021\"\303p!0\202$\210\301\211\250\2030\301f\304=\204D\2048\305 \262\306\307\310\311 {#\210\202\207\211U\203b\204R\305 \262\306\307\312#\210
\307y\210`|\210\202\207\211W\203\204\204p\305 \262\306\307\313\"\210\314\307ed#\210eb\210\300\262\202\207\211\262\307y\266\202*\207" [-1 nil (error) read 9 gnus-agent-backup-overview-buffer gnus-message 1 "Overview buffer contains garbage `%s'." point-at-eol "Duplicate overview line for %d" "Overview buffer not sorted!" sort-numeric-fields] 10 (#$ . 58827)])
#@211 Flush all agent index files for every subscribed group within
the given SERVER-OR-METHOD.  When called with nil, the current
value of gnus-command-method identifies the server.

(fn &optional SERVER-OR-METHOD)
(defalias 'gnus-agent-flush-server #[256 "\211\2032
\211\211\203\211<\203\211\206-
\306
\"A\206-
\211\307\232\203$	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203Q
\310\311@@@@@A@#\232\204Q\211A\262
\2025\211@@\262
\206

\211\203t
\310\311@@@A@#\232\204t\211A\262
\202Z\211@\262
\206
A\312\211\203
\211A\262\242\313
8\262
\262
;\204\200\312\314C\3152
\211
\242\206\247	\240\210\204\265\316\317\320\"\"\210\nD\211\203\315\211@\316\317\321\"\"\210
A\266\202\202\270\210\211\242A@\322\235\203\340\310\323\242@\"\202\352\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203\200
\262
\312\262\202\200\266\202\211\203*
\306\"\204*


BB\211\262
\262
\2024
\211\205U
\211
A\262\242\324\3138\"\203Q
\325
@!\210\210\2028
)\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" gnus-methods-equal-p gnus-agent-flush-group gnus-newsrc-alist gnus-command-method] 16 (#$ . 59632)])
#@350 Flush the agent's index files such that the GROUP no longer
appears to have any local content.  The actual content, the
article files, may then be deleted using gnus-agent-expire-group.
If flushing was a mistake, the gnus-agent-regenerate-group method
provides an undo mechanism by reconstructing the index files from
the article files.

(fn GROUP)
(defalias 'gnus-agent-flush-group #[257 "\206\303
!\304\305\"\304\306\"	\307!\203\310!\210\307
!\203&\310
!\210\311\312#\210\311\313#\210\314\312\312#*\207" [gnus-command-method nnmail-pathname-coding-system file-name-coding-system gnus-find-method-for-group gnus-agent-article-name ".overview" ".agentview" file-exists-p delete-file gnus-agent-update-view-total-fetched-for nil t gnus-agent-save-group-info] 7 (#$ . 61262) (byte-code "\300 C\207" [gnus-agent-read-group] 1)])
#@307 Flush the agent's index files such that the group no longer
appears to have any local content.  The actual content, the
article files, is then deleted using gnus-agent-expire-group.
The gnus-agent-regenerate-group method provides an undo mechanism
by reconstructing the index files from the article files.
(defalias 'gnus-agent-flush-cache #[0 "\212\n\203#\n@Aq\210\306ed\307\310\n@@\"\311\312%\210)\nA\211\204
\205c\307\313
@@\"\314\315\316\"\317\320\"\216r\211q\210\321
@A!\210\322c\210\321\323p\"\210\322c\210)r\211q\210\306\311\211\311\324%\210*\266
A\211\204'\311*\207" [nnmail-pathname-coding-system file-name-coding-system gnus-agent-buffer-alist gnus-agent-file-coding-system coding-system-for-write gnus-agent-group-alist write-region gnus-agent-article-name ".overview" nil silent ".agentview" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] princ "\n" 1 0] 9 (#$ . 62112) nil])
#@195 Search for GROUPs SYMBOL in the group's parameters, the group's
topic parameters, the group's category, or the customizable
variables.  Returns the first non-nil value found.

(fn GROUP SYMBOL)
(defalias 'gnus-agent-find-parameter #[514 "\300\301#\206\302\303!A\301#\206\211\304\236AJ\207" [gnus-group-find-parameter t gnus-group-parameter-value gnus-group-category ((agent-short-article . gnus-agent-short-article) (agent-long-article . gnus-agent-long-article) (agent-low-score . gnus-agent-low-score) (agent-high-score . gnus-agent-high-score) (agent-days-until-old . gnus-agent-expire-days) (agent-enable-expiration . gnus-agent-enable-expiration) (agent-predicate . gnus-agent-predicate))] 6 (#$ . 63091)])
#@181 Fetch interesting headers into the agent.  The group's overview
file will be updated to include the headers while a list of available
article numbers will be returned.

(fn GROUP)
(defalias 'gnus-agent-fetch-headers #[257 "\205\306\307\310\"!?\211\2032	\203)\311\n\"\312
@A	ZT]AB!\262
\2025\312\311\n\"!\2025\313!\314\211\315\316\"
1\204w\311
2\"A@\262
\317
8\262
\211\203n\211@\211@\320>\204g\321A\"\262
A\266\202\202S\210\322\323!\324\"\262
3\204\2024\204\254\325!\203\254\203\226\326\"\262
\202\254\3275!@@T\311\n\"A\330BC\"\266\203\211\203\271\331\332\333\334\335\"#\210r6q\210\211\203\f
\331\336\337#\210\340\341\342!\335\"!\210\343
\"\344=\204\337\345 \210\346 \210\3477ed#\210\350
\"\21089\346 \210\351ed\352\353%\210)\354\335\"\210\355\352#\210\202
\3561
\357 \210\360!0\210\202
\210)\210
+\207" [gnus-agent-consider-all-articles gnus-newsgroup-maximum-articles gnus-active-hashtb gnus-decode-encoded-word-function gnus-decode-encoded-address-function nnmail-pathname-coding-system gnus-predicate-implies-unread gnus-agent-find-parameter agent-predicate gethash gnus-uncompress-range gnus-list-of-unread-articles identity gnus-agent-article-name ".overview" 3 (seen recent killed cache) gnus-range-add sort gnus-uncompress-sequence < gnus-agent-load-alist gnus-agent-uncached-articles last gnus-list-range-intersection gnus-message 10 "gnus-agent-fetch-headers: undownloaded articles are `%s'" gnus-compress-sequence t 8 "Fetching headers for %s..." gnus-make-directory nnheader-translate-file-chars file-name-directory gnus-retrieve-headers nov nnvirtual-convert-headers gnus-agent-check-overview-buffer copy-to-buffer gnus-agent-braid-nov write-region nil silent gnus-agent-update-view-total-fetched-for gnus-agent-save-alist (error) erase-buffer nnheader-insert-file-contents file-name-coding-system gnus-newsrc-hashtb gnus-agent-cache gnus-plugged gnus-agent-article-alist nntp-server-buffer gnus-agent-overview-buffer gnus-agent-file-coding-system coding-system-for-write] 12 (#$ . 63818)])
#@91 Read the article number at point.
Return nil when a valid article number can not be read.
(defalias 'gnus-agent-read-article-number #[0 "\300\301!\205	\302p!\207" [looking-at "[0-9]+	" read] 2 (#$ . 65896)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-agent-read-article-number speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@94 Copy the indicated ARTICLE from the overview buffer to the nntp server buffer.

(fn ARTICLE)
(defalias 'gnus-agent-copy-nov-line #[257 "\302\211\211q\210m\204%\303\304!\205\305p!\211\262\203W\203%\306y\210\202\307 \210m\2042=\2045	q\207`\262\306y\210`\262
	q\210\310#\207" [gnus-agent-overview-buffer nntp-server-buffer nil looking-at "[0-9]+	" read 1 beginning-of-line insert-buffer-substring] 8 (#$ . 66267)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-agent-copy-nov-line speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@327 Merge agent overview data with given file.
Takes unvalidated headers for ARTICLES from
`gnus-agent-overview-buffer' and validated headers from the given
FILE and places the combined valid headers into
`nntp-server-buffer'.  This function can be used, when file
doesn't exist, to valid the overview buffer.

(fn ARTICLES FILE)
(defalias 'gnus-agent-braid-nov #[514 "\302\211q\210eb\210	q\210\303 \210\304!\203\305!\210db\210\306y\210edU\204\"
\307p!\211\262@W\204\"
\310@!\203>`\311y\210`|\210\211A\262\242\302\211\211q\210m\204i\312\313!\205W\307p!\211\262\203cW\203i\311y\210\202J\314 \210m\204v=\204}	q\266\202\220`\262\311y\210`\262
	q\210\315#\266\3161!
\205
\307p!\211@W\203\251\311y\210\317\202\302\211@U\203\276\314 \210`\311y\210`|\210\302\202\302\314 \210\302\262
\204\230\211A\262\242\302\211\211q\210m\204\362\312\313!\205\340\307p!\211\262\203\354W\203\362\311y\210\202\323\314 \210m\204\377=\204
	q\266\202\224`\262\311y\210`\262
	q\210\315#\266\202\2240\210\202\"
\210db\210\205\267
\211\2036
q\210`\262	q\210`\315\"\210\211b\266\211\206E
\320\262
\3212\261
\302\211m\204\230
\312\313!\205Z
\307p!\262
\211\204m
\314 \210`\311y\210`|\210\202M
\211W\203|
\317\262\311y\210\202M
\211U\203\217
\314 \210`\311y\210`|\210\202M
\211\262\311y\210\202M

\203\255
\322\311ed#\210eb\210\320\262\323\321\317\"\210\266\3020\205\267
\202G
\207" [gnus-agent-overview-buffer nntp-server-buffer nil erase-buffer file-exists-p nnheader-insert-file-contents -1 read nnheader-find-nov-line 1 looking-at "[0-9]+	" beginning-of-line insert-buffer-substring (error) t -134217728 problems sort-numeric-fields throw] 12 (#$ . 66856)])
#@53 Load the article-state alist for GROUP.

(fn GROUP)
(defalias 'gnus-agent-load-alist #[257 "\211	\304\305\"\306
!\205\307
\310\300#\211*\207" [gnus-agent-read-agentview nnmail-pathname-coding-system file-name-coding-system gnus-agent-article-alist gnus-agent-article-name ".agentview" file-exists-p gnus-cache-file-contents gnus-agent-file-loading-cache] 6 (#$ . 68562)])
#@45 Load FILE and do a `read' there.

(fn FILE)
(defalias 'gnus-agent-read-agentview #[257 "\306\307\310\"r\211q\210\311\312\"\216\3131I
\314!\210eb\210\315p!\3161&\315p!0\202(\210\317\320
\317U\203x\310\320
\321 \210\322 q\210eb\210m\204l\323\324!\203f\325\326!	\230\203f\327\330\325\331!!\"\211\262\203f\211\330\325\332!!\241\210\332y\210\202=\333 \210\310\262)\266\2027

\332U\203\207\n\332U?\262
\2027

\326U\2037
\320\211\211\203)
@@\262@A\320\211\211\204\251\266\320\202
A<\204\320@\262A\262X\203\311
B\262
T\262\202\267\211\237\266\204\202
\203\f
@:\204\351@\247\203
@
B\262
\202
@@\262@A\262X\203

B\262
T\262\202\363A\262\202\320\211\237\266\204\262A\262
\203\220
\211A\262\242B
B\262
\202
\334
\335\"\262\266\n\326U?\262
\211\203B
\336	!\210)\266\2030\202\215
\210\3371\213
\320\f\340\341\342	\"\320\343\310$\211\203\203
\211
A\262\242\211A\211@\262
\204
\330
@!\344A\345
8\262
!BB\262\210\202Z

)\266\2020\202\215
\210\320*\207" [inhibit-quit gnus-agent-read-agentview gnus-agent-article-alist-save-format gnus-agent-article-alist nnmail-pathname-coding-system file-name-coding-system generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] (end-of-file file-error) nnheader-insert-file-contents read (end-of-file) 0 nil gnus-agent-open-history gnus-agent-history-buffer looking-at "[^	\n]+	\\([0-9]+\\)	\\([^ \n]+\\) \\([0-9]+\\)" match-string 2 assoc string-to-number 3 1 gnus-agent-close-history sort car-less-than-car gnus-agent-save-alist (file-error) directory-files-and-attributes gnus-agent-article-name "" "\\`[0-9]+\\'" time-to-days 4] 14 (#$ . 68946)])
#@78 Save the article-state alist for GROUP.

(fn GROUP &optional ARTICLES STATE)
(defalias 'gnus-agent-save-alist #[769 "\306\nB\211\306\211\306\211A\262\242\211\262\203fA\203,A@@
W\203,A\262\202A\204;
BC\241\210\202_A@@
V\203P
BAB\241\210\202_A@@
U\203_A@\241\210A\262\202
A\307\n@@\310\n!@@#\210\311\312\313\"!\210\312\314\"\315\316\317\"\320\321\"\216r\211q\210
\322\267\202\362\323\np\"\210\202\362\n\306\211\211\211\203\322@@\262@A\262
\236\262A\262
\203\310
AB\241\210\202\243D
B\262
\202\243\211\262\203\354\211A\262\242\262
\324A\237!\241\210\202\325\323
p\"\266\325c\210\323
p\"\210\325c\210)r\211q\210\326\306\211\306\327%\210*\266\330\306\"+\207" [nnmail-pathname-coding-system file-name-coding-system gnus-agent-article-alist print-level print-length gnus-agent-article-alist-save-format nil gnus-agent-set-local last gnus-make-directory gnus-agent-article-name "" ".agentview" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 150 2 158)) princ gnus-compress-sequence "\n" write-region 0 gnus-agent-update-view-total-fetched-for] 17 (#$ . 70657)])
#@46 Hashtable holding information about a group.
(defvar gnus-agent-article-local nil (#$ . 71950))
(defvar gnus-agent-article-local-times nil)
(defvar gnus-agent-file-loading-local nil)
#@145 Load the METHOD'S local file.
The local file contains min/max article counts for each of the
method's subscribed groups.

(fn &optional METHOD)
(defalias 'gnus-agent-load-local #[256 "\211\206	\203	\303U\204\304\305\306\n\"\"\204)\307\310\311!\312\313#	\203)	T\n)\207" [gnus-command-method gnus-agent-article-local-times gnus-agent-article-local 0 gnus-methods-equal-p gethash "+method" gnus-cache-file-contents gnus-agent-lib-file "local" gnus-agent-file-loading-local gnus-agent-read-and-cache-local] 6 (#$ . 72140)])
#@198 Load and read FILE then bind its contents to `gnus-agent-article-local'.
If that variable had `dirty' (also known as modified) original
contents, they are first saved to their own file.

(fn FILE)
(defalias 'gnus-agent-read-and-cache-local #[257 "\203\301\302\"\203\303 \210\304
!\207" [gnus-agent-article-local gethash "+dirty" gnus-agent-save-local gnus-agent-read-local] 4 (#$ . 72680)])
#@45 Load FILE and do a `read' there.

(fn FILE)
(defalias 'gnus-agent-read-local #[257 "\303ed\"\304\305\206\306\307\310$\262
\311\312\313\314\"r\211q\210\315\316\"\216\3171-\320!)0\210\202.\210eb\210g\321U\203A\311y\210
T\262\2021m\204\221\3221y\323\211\211p\324
!\262\324
!\262\324
!\262;\204f\325!\262\326\311_\311_B	#\266\2040\210\202\207\327\330\331\332!%\266\311y\210
T\262\202A*\210\326\333\323#\210\326\334\n#\210
\207" [gnus-agent-file-coding-system nnheader-file-coding-system gnus-command-method count-lines make-hash-table :size 300 :test equal 1 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] (file-error) nnheader-insert-file-contents 59 (error) nil read symbol-name puthash gnus-message 3 "Warning - invalid agent local: %s on line %d: %s" error-message-string "+dirty" "+method"] 13 (#$ . 73083)])
#@94 Save `gnus-agent-article-local' under it method's agent.lib directory.

(fn &optional FORCE)
(defalias 'gnus-agent-save-local #[256 "\211\205T
\204\306\307\"\205T\306\310\"\311\312!\313\311\314!!\210\n\315\316\317\"\320\321\"\216r\211q\210\306\310\"\322\211p\323\324\"-r
q\210\325\322\211\322\326%\210*\262
+\262
\207" [gnus-agent-article-local gnus-command-method gnus-agent-file-coding-system nnmail-pathname-coding-system file-name-coding-system coding-system-for-write gethash "+dirty" "+method" gnus-agent-lib-file "local" gnus-make-directory "" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil maphash #[514 "\211\204\300\207
\301\235\203\300\207\211\205+\302!\210\303\304!\210\303
@!\210\303\304!\210\303
A!\210\303\305!\207" [nil ("+dirty" "+method") prin1 princ " " "\n"] 4 "\n\n(fn GROUP ACTIVE)"] write-region 0 standard-output print-length print-level] 11 (#$ . 74001)])
#@37 

(fn GROUP &optional GMANE METHOD)
(defalias 'gnus-agent-get-local #[769 "
\206\303\304\"\203\305\225\306O\202
\206\307!\310 \311\"\211\204N	\n\312!\211\203L\211@@\313!@@B\262\314@A&\210*\210)\207" [gnus-command-method gnus-agent-article-alist gnus-agent-file-loading-cache string-match "^[^:]+:" 0 nil gnus-find-method-for-group gnus-agent-load-local gethash gnus-agent-load-alist last gnus-agent-set-local] 14 (#$ . 74990)])
#@51 

(fn GROUP MIN MAX &optional GMANE METHOD LOCAL)
(defalias 'gnus-agent-set-local #[1539 "\206\301\302\"\203\303\225\304O\202\206\305!
\206$\306 \307\"\211\203Y
@=\203<
A=\204Y\203Y\203Y\307\"\240\210\307\"\241\210\202\211\203a\304\202\204\203x\203x\310		B#\210\202\311\"\205\204\310\312\313#)\207" [gnus-command-method string-match "^[^:]+:" 0 nil gnus-find-method-for-group gnus-agent-load-local gethash puthash remhash "+dirty" t] 13 (#$ . 75457)])
#@22 

(fn ARTICLE GROUP)
(defalias 'gnus-agent-article-name #[514 "\300\301\302!!\"\207" [expand-file-name file-name-as-directory gnus-agent-group-pathname] 7 (#$ . 75976)])
#@44 Show error message and return t.

(fn MSG)
(defalias 'gnus-agent-batch-confirmation #[257 "\300\301\302#\210\303\207" [gnus-message 1 "%s" t] 5 (#$ . 76154)])
#@31 Start Gnus and fetch session.
(defalias 'gnus-agent-batch-fetch #[0 "\301 \210\302\303 \210)\304 \207" [gnus-agent-confirmation-function gnus gnus-agent-batch-confirmation gnus-agent-fetch-session gnus-group-exit] 1 (#$ . 76320) nil])
#@64 Fetch all articles and headers that are eligible for fetching.
(defalias 'gnus-agent-fetch-session #[0 "\204\306\307!\210	\204\306\310!\210\300 \311\211\211\212\203\254@\312\n!\204*\313\n!\203\245\314\n!\203\245\315@!\262\316\216\317\320 \210
\211A\262\242\211\262\203\244\321
!\fX\203=
\204Z\"\203b\322
\n\"\210\202=\3231\212\3241t\322
\n\"00\210\202=0#\325\326\327!\"!?\205\205\306\330!\266\202=\331!\210#\325\332\327!\"!?\205\237\333\334\330\"\266\202=*A\262\202\335\336!\210\337\340\341\"*\207" [gnus-agent-covered-methods gnus-plugged gnus-command-method gnus-agent-fetching gnus-agent-handle-level debug-on-error error "No servers are covered by the Gnus agent" "Can't fetch articles while Gnus is unplugged" nil gnus-server-opened gnus-open-server gnus-online gnus-groups-from-server #[0 "\300 \207" [gnus-agent-stop-fetch] 1] t gnus-agent-start-fetch gnus-group-level gnus-agent-fetch-group-1 (quit) (error) format "Error %s while fetching session.  Should gnus continue? " error-message-string "Cannot fetch articles into the Gnus agent" gnus-agent-regenerate-group "%s while fetching session.  Should gnus continue? " signal quit gnus-run-hooks gnus-agent-fetched-hook gnus-message 6 "Finished fetching articles into the Gnus agent" debug-on-quit gnus-agent-confirmation-function] 9 (#$ . 76562) nil])
#@53 Articles that have fewer lines than this are short.
(defvar gnus-agent-short-article 500 (#$ . 77922))
#@51 Articles that have more lines than this are long.
(defvar gnus-agent-long-article 1000 (#$ . 78031))
#@62 Articles that have a score lower than this have a low score.
(defvar gnus-agent-low-score 0 (#$ . 78138))
#@64 Articles that have a score higher than this have a high score.
(defvar gnus-agent-high-score 0 (#$ . 78250))
#@33 Fetch GROUP.

(fn GROUP METHOD)
(defalias 'gnus-agent-fetch-group-1 #[514 "\211	\n\f
=\306\211\211\211\211\211>?=	\n\f
@A\307!\204A\310\311\"\210B\204V\312C\"\204V\313!\205\252DB\204\217E\211\203\216\211@\211\312
F\"A@\262
\211\262\314
8\262
\236A\211\203\206\315
!\244\262\210
A\266\202\202_\210\316
\317\"\262
\320!\262\316\321\"\317\"\262\205\250\206\273G\322\323\206\266\324\325\326$\262
	\206\307\327\306\211$\330 \210\331\332\333\"!\262\334>\204
\332\335\"\211\203\375\211\336=\203\362\337!\262
\202\375\211@;\204\375\211CC\262
\211\203
\340
!\210\210\341=\205
\211??\205\250\306C\211\342!		\211A\242\211?\203\245
?\343H\203>
\211@@V\203>
A\262\202+
\211@@=\203L
@A\204\241

\203^
\211@V\203^

A\262\202L
\211@=\204\233
\211\n\236A\206n
G\332\344\"\332\345\"\332\346\"\332\347\"\332\350\"HIJKL> .\203\241

C\241\262\210\202
)\266\306\351MA\205\267
\352A\"\211\262\"M\351A\"B\203!\211\203\332
\211@\353
\354\"\210
A\266\202\202\310
\210
\211\203\211@N\203\364
\355
D\"D\356
O\"\210\357
\306\354#\203\360
!\210
A\266\202\202\334
\210\211\211\205\211@\356
P\"\210
A\266\202\202	\262
\202\242E\211\203d\211@\211\361=\203]\211\312
F\"A@\262
\211\262\n\314
8\262
\236\211A\203\\\355
\3148\"\262\314	\233\211	\240\266\210
A\266\202\202#\210\206w\312
F\"A@\262
\211\262\362
8\262
AA\211\363\"\240\266\364\354\"\210\365\343!\210\366\367\370!\371Q\372\373!\374Q\"\262
\262
\262
\262
.\207" [gnus-newsgroup-dependencies gnus-newsgroup-headers gnus-newsgroup-scored gnus-use-cache gnus-summary-expunge-below gnus-summary-mark-below nil gnus-check-group error "Can't open server for %s" gethash gnus-activate-group 3 gnus-uncompress-range sort < gnus-agent-fetch-headers append make-hash-table :size 300 :test equal gnus-get-newsgroup-headers-xover gnus-agent-create-buffer gnus-get-predicate gnus-agent-find-parameter agent-predicate (gnus-agent-true gnus-agent-false) agent-score-file file gnus-all-score-files gnus-score-headers gnus-agent-false gnus-agent-load-alist 0 agent-long-article agent-short-article agent-low-score agent-high-score agent-days-until-old gnus-sorted-ndifference gnus-agent-fetch-articles gnus-summary-set-agent-mark t delq gnus-summary-mark-article gnus-summary-goto-subject gnus-summary-update-download-mark download 2 gnus-add-to-range gnus-group-update-group sit-for gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" "^(gnus-group-set-info '(\"" regexp-quote "\"" gnus-orphan-score gnus-score gnus-headers gnus-newsgroup-name gnus-command-method gnus-newsgroup-active gnus-active-hashtb gnus-newsgroup-downloadable gnus-agent-download-marks gnus-newsrc-hashtb gnus-summary-default-score gnus-agent-expire-days gnus-agent-high-score gnus-agent-low-score gnus-agent-short-article gnus-agent-long-article gnus-newsgroup-undownloaded gnus-agent-mark-unread-after-downloaded gnus-unread-mark gnus-canceled-mark] 31 (#$ . 78365)])
#@216 Format of category lines.

Valid specifiers include:
%c  Topic name (string)
%g  The number of groups in the topic (integer)

General format specifiers can also be used.  See Info node
`(gnus)Formatting Variables'.
(defvar gnus-category-line-format "     %(%20c%): %g\n" (#$ . 81432))
#@54 The format specification for the category mode line.
(defvar gnus-category-mode-line-format "Gnus: %%b" (#$ . 81723))
#@65 The selection predicate used when no other source is available.
(defvar gnus-agent-predicate 'false (#$ . 81847))
(defvar gnus-category-buffer "*Agent Category*")
(defvar gnus-category-line-format-alist '((99 gnus-tmp-name 115) (103 gnus-tmp-groups 100)))
(defvar gnus-category-mode-line-format-alist '((117 user-defined 115)))
(defvar gnus-category-line-format-spec nil)
(defvar gnus-category-mode-line-format-spec nil)
(defvar gnus-category-mode-map nil)
(byte-code "\204\301 \302!\210\303\304\"\210\305\306\307\310\311DD\312\313\314\315\316&\207" [gnus-category-mode-map make-sparse-keymap suppress-keymap gnus-define-keys-1 ("q" gnus-category-exit "k" gnus-category-kill "c" gnus-category-copy "a" gnus-category-add "e" gnus-agent-customize-category "p" gnus-category-edit-predicate "g" gnus-category-edit-groups "s" gnus-category-edit-score "l" gnus-category-list "	" gnus-info-find-node "" gnus-bug) custom-declare-variable gnus-category-menu-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run after the creation of the menu." :group gnus-agent :type hook] 8)
(defalias 'gnus-category-make-menu-bar #[0 "\301\302!\210\303\304!?\205\305\306!\210\307\304\310\311$\210\312\313!\207" [gnus-category-mode-map gnus-turn-off-edit-menu category boundp gnus-category-menu (lambda (#1=#:def-tmp-var) (defvar gnus-category-menu #1# #2="")) nil easy-menu-do-define #2# ("Categories" ["Add" gnus-category-add t] ["Kill" gnus-category-kill t] ["Copy" gnus-category-copy t] ["Edit category" gnus-agent-customize-category t] ["Edit predicate" gnus-category-edit-predicate t] ["Edit score" gnus-category-edit-score t] ["Edit groups" gnus-category-edit-groups t] ["Exit" gnus-category-exit t]) gnus-run-hooks gnus-category-menu-hook] 5])
(defvar gnus-category-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [gnus-category-mode-hook variable-documentation put "Hook run after entering Category mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp gnus-category-mode-map definition-name gnus-category-mode] 4)
(defvar gnus-category-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [gnus-category-mode-abbrev-table gnus-category-mode-map variable-documentation put purecopy "Keymap for `gnus-category-mode'." boundp gnus-category-mode-syntax-table definition-name gnus-category-mode (lambda (#1=#:def-tmp-var) (defvar gnus-category-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-category-mode'." (lambda (#1#) (defvar gnus-category-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-category-mode'." derived-mode-parent gnus-mode] 5)
#@457 Major mode for listing and editing agent categories.
All normal editing commands are switched off.
\<gnus-category-mode-map>
For more in-depth information on this mode, read the manual
(`\[gnus-info-find-node]').

The following commands are available:

\{gnus-category-mode-map}

In addition to any hooks its parent mode `gnus-mode' might have run,
this mode runs the hook `gnus-category-mode-hook', as the final or
penultimate step during initialization.
(defalias 'gnus-category-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
#=\204R\326
\325#C#\210\327!\210\330\f!\210
#\331\332\333\"\203g\334 \210\335 \210\336 \210\337$\340 \210\307%)\341\342!\207" [delay-mode-hooks major-mode mode-name gnus-category-mode-map gnus-category-mode-syntax-table gnus-category-mode-abbrev-table make-local-variable t gnus-mode gnus-category-mode "Category" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table gnus-visual-p category-menu menu gnus-category-make-menu-bar gnus-simplify-mode-line gnus-set-default-directory nil buffer-disable-undo run-mode-hooks gnus-category-mode-hook local-abbrev-table mode-line-process truncate-lines] 5 (#$ . 84839) nil])
(defalias 'gnus-category-position-point 'gnus-goto-colon)
#@17 

(fn CATEGORY)
(defalias 'gnus-category-insert-line #[257 "\303\304@\"\305
\236AG\306 \210\307``T\310\n\311\"\210\312D#*\207" [gnus-tmp-name gnus-tmp-groups gnus-category-line-format-spec format "%s" agent-groups beginning-of-line add-text-properties eval t gnus-category] 7 (#$ . 86357)])
#@28 Go to the Category buffer.
(defalias 'gnus-enter-category-buffer #[0 "\300 \210\301\302!\210\303 \207" [gnus-category-setup-buffer gnus-configure-windows category gnus-category-prepare] 2 (#$ . 86658) nil])
(defalias 'gnus-category-setup-buffer #[0 "\301!?\205r\302!q\210\303 )\207" [gnus-category-buffer get-buffer gnus-get-buffer-create gnus-category-mode] 2])
(defalias 'gnus-category-prepare #[0 "\302\303!\210\302\304\305\"\210\306\307 \210\211\203\310
\211A\262\242!\210\202eb\210\311 )\207" [gnus-category-alist buffer-read-only gnus-set-format category-mode category t nil erase-buffer gnus-category-insert-line gnus-category-position-point] 4])
(defalias 'gnus-category-name #[0 "\300\301\302 \303\"!\206
\304\305!\207" [intern get-text-property point-at-bol gnus-category error "No category on the current line"] 4])
#@26 Read the category alist.
(defalias 'gnus-category-read #[0 "\302\303\304\"r\211q\210\305\306\"\216\3071?\310\311\312\"!\210eb\210\313p!\3141)\313p!0\202+\210\315\211\2035\211\266\202\202;\316\317\"\266\2020\202A\210\315*\262
\211\211\203r\211@\320
\236\316\321\322\320\"\"
\203a

\241\266\202k\320
B\211\262B\266\203
A\266\202\202E\210\211\262
\206\207\323\324
\325\206\202\326BD\266\202C\211\207" [gnus-agent-directory gnus-category-alist generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] (error) nnheader-insert-file-contents nnheader-concat "lib/categories" read (error) nil mapcar #[257 "\211\300\301\211C\211A\302
\2031\211\2031@@
\205\211B\266\202C\241\210A\262
A\262\211A\262
\202	A\266\204\"\241\210\207" [delq nil (agent-predicate agent-score-file agent-groups)] 13 "\n\n(fn C)"] agent-groups #[257 "\301
\302\303\304#)\266\203\203\305
\306\"\207\207" [inhibit-changing-match-data "[^[:ascii:]]" nil t string-match decode-coding-string utf-8-emacs] 8 "\n\n(fn G)"] alist-get default short agent-predicate false] 9 (#$ . 87503)])
#@27 Write the category alist.
(defalias 'gnus-category-write #[0 "\304\211\305\306\307\n!\"\310\311\312\"!\210\311\313\"\314\315\316\"\317\320\"\216r\211q\210\321\305\322\n\"p\"\210\323 \210\321\np\")r
q\210\324\304\211\304\325%\210*\266\202)\207" [gnus-category-predicate-cache gnus-category-group-cache gnus-category-alist gnus-agent-directory nil mapcar #[257 "\300
\236\301\302\303\300\"\"
\203

\241\266\207\300
B\211\262B\207" [agent-groups mapcar #[257 "\300
!\203\301
\302\"\207\207" [multibyte-string-p encode-coding-string utf-8-emacs] 4 "\n\n(fn G)"] alist-get] 7 "\n\n(fn CAT)"] copy-tree gnus-make-directory nnheader-concat "lib" "lib/categories" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] prin1 #[257 "\211@\300\236A\301\236A\302\236AF\207" [agent-predicate agent-score-file agent-groups] 6 "\n\n(fn C)"] newline write-region 0] 10 (#$ . 88650)])
#@49 Edit the predicate for CATEGORY.

(fn CATEGORY)
(defalias 'gnus-category-edit-predicate #[257 "\211\236\301\302\236A\303\304\"\305\306\"#\207" [gnus-category-alist gnus-edit-form agent-predicate format "Editing the select predicate for category %s" make-closure #[257 "\302\300	\236\303#\210\304 \210\305 \207" [V0 gnus-category-alist gnus-agent-cat-set-property agent-predicate gnus-category-write gnus-category-list] 5 "\n\n(fn PREDICATE)"]] 8 (#$ . 89605) (byte-code "\300 C\207" [gnus-category-name] 1)])
#@56 Edit the score expression for CATEGORY.

(fn CATEGORY)
(defalias 'gnus-category-edit-score #[257 "\211\236\301\302\236A\303\304\"\305\306\"#\207" [gnus-category-alist gnus-edit-form agent-score format "Editing the score expression for category %s" make-closure #[257 "\302\300	\236\303#\210\304 \210\305 \207" [V0 gnus-category-alist gnus-agent-cat-set-property agent-score-file gnus-category-write gnus-category-list] 5 "\n\n(fn SCORE-FILE)"]] 8 (#$ . 90126) (byte-code "\300 C\207" [gnus-category-name] 1)])
#@50 Edit the group list for CATEGORY.

(fn CATEGORY)
(defalias 'gnus-category-edit-groups #[257 "\211\236\301\302\236A\303\304\"\305\306\"#\207" [gnus-category-alist gnus-edit-form agent-groups format "Editing the group list for category %s" make-closure #[257 "\302\300	\236\"\210\303 \210\304 \207" [V0 gnus-category-alist gnus-agent-set-cat-groups gnus-category-write gnus-category-list] 4 "\n\n(fn GROUPS)"]] 8 (#$ . 90648) (byte-code "\300 C\207" [gnus-category-name] 1)])
#@43 Kill the current category.

(fn CATEGORY)
(defalias 'gnus-category-kill #[257 "\211\236\302\303 \304y\210`|\210\305
\"\306 )\207" [gnus-category-alist buffer-read-only nil point-at-bol 1 delq gnus-category-write] 5 (#$ . 91134) (byte-code "\300 C\207" [gnus-category-name] 1)])
#@46 Copy the current category.

(fn CATEGORY TO)
(defalias 'gnus-category-copy #[514 "
\236\301
!\211\240\210\302
\303\"\210\211\262
B\304 \210\305 \207" [gnus-category-alist copy-tree gnus-agent-set-cat-groups nil gnus-category-write gnus-category-list] 7 (#$ . 91422) (byte-code "\300 \301\302\303!!D\207" [gnus-category-name intern read-string "New name: "] 4)])
#@39 Create a new category.

(fn CATEGORY)
(defalias 'gnus-category-add #[257 "\211\236\203\301\302\"\210\211\303
\304\206\305BD\266\202B\306 \210\307 \207" [gnus-category-alist error "Category %s already exists" nil agent-predicate false gnus-category-write gnus-category-list] 6 (#$ . 91794) "SCategory name: "])
#@22 List all categories.
(defalias 'gnus-category-list #[0 "\300 \207" [gnus-category-prepare] 1 (#$ . 92119) nil])
#@29 Return to the group buffer.
(defalias 'gnus-category-exit #[0 "\300p!\210\301\302\303\"\207" [kill-buffer gnus-configure-windows group t] 3 (#$ . 92237) nil])
(defvar gnus-category-not (byte-code "\300\301\302\303\304\305\"!E\207" [! not intern format "%c" 172] 6))
#@68 Mapping from short score predicate symbols to predicate functions.
(defvar gnus-category-predicate-alist '((spam . gnus-agent-spam-p) (short . gnus-agent-short-p) (long . gnus-agent-long-p) (low . gnus-agent-low-scored-p) (high . gnus-agent-high-scored-p) (read . gnus-agent-read-p) (true . gnus-agent-true) (false . gnus-agent-false)) (#$ . 92509))
#@40 Say whether an article is spam or not.
(defalias 'gnus-agent-spam-p #[0 "\204\302\303\304\206\f\305\306\307$\262
	\310H\311\232\205+\312	\313H!\314
\"\315\316#\210\262
\207" [gnus-agent-spam-hashtb gnus-headers 1000 make-hash-table :size 300 :test equal 5 "" gnus-simplify-subject 1 gethash puthash t] 6 (#$ . 92865)])
#@41 Say whether an article is short or not.
(defalias 'gnus-agent-short-p #[0 "\302H	W\207" [gnus-headers gnus-agent-short-article 7] 2 (#$ . 93200)])
#@40 Say whether an article is long or not.
(defalias 'gnus-agent-long-p #[0 "\302H	V\207" [gnus-headers gnus-agent-long-article 7] 2 (#$ . 93354)])
#@48 Say whether an article has a low score or not.
(defalias 'gnus-agent-low-scored-p #[0 "	W\207" [gnus-score gnus-agent-low-score] 2 (#$ . 93505)])
#@49 Say whether an article has a high score or not.
(defalias 'gnus-agent-high-scored-p #[0 "	V\207" [gnus-score gnus-agent-high-score] 2 (#$ . 93658)])
#@40 Say whether an article is read or not.
(defalias 'gnus-agent-read-p #[0 "\303\304H	\305
\n\"A@\262
\306
8\262
\"\207" [gnus-headers gnus-newsgroup-name gnus-newsrc-hashtb gnus-member-of-range 0 gethash 2] 6 (#$ . 93814)])
#@49 Make a function from PREDICATE.

(fn PREDICATE)
(defalias 'gnus-category-make-function #[257 "\300
!\211G\301U\203\211@9\203\211@\207\302\303\304E!\207" [gnus-category-make-function-1 1 gnus-byte-compile lambda nil] 6 (#$ . 94043)])
#@11 Return t.
(defalias 'gnus-agent-true #[0 "\300\207" [t] 1 (#$ . 94287)])
#@13 Return nil.
(defalias 'gnus-agent-false #[0 "\300\207" [nil] 1 (#$ . 94366)])
#@49 Make a function from PREDICATE.

(fn PREDICATE)
(defalias 'gnus-category-make-function-1 #[257 "\2119\204\302
!\203\211\236A\206\211C\207\211:\203?\211@\303>\203%\304\2028\211@\305>\2030\306\2028\211@	>\2058\307\310\311A\"B\207\312\313\"\207" [gnus-category-predicate-alist gnus-category-not functionp (& and) and (| or) or not mapcar gnus-category-make-function-1 error "Unknown predicate type: %s"] 5 (#$ . 94450)])
#@61 Return the function implementing PREDICATE.

(fn PREDICATE)
(defalias 'gnus-get-predicate #[257 "\301
\"A\206\302
!

BB\211\262
\207" [gnus-category-predicate-cache assoc gnus-category-make-function] 4 (#$ . 94889)])
#@239 Say whether PREDICATE implies unread articles only.
It is okay to miss some cases, but there must be no false positives.
That is, if this predicate returns true, then indeed the predicate must
return only unread articles.

(fn PREDICATE)
(defalias 'gnus-predicate-implies-unread #[257 "\300\301!!\302=\207" [gnus-function-implies-unread-1 gnus-category-make-function-1 t] 4 (#$ . 95118)])
#@302 Recursively evaluate a predicate function to determine whether it can select
any read articles.  Returns t if the function is known to never
return read articles, nil when it is known to always return read
articles, and t_nil when the function may return both read and unread
articles.

(fn FUNCTION)
(defalias 'gnus-function-implies-unread-1 #[257 "\211@\301\302A\"
\303\267\202C\304
>\203\304\207\305
>\205o\305\207\306
>\203%\306\207\305
>\203-\305\207\304\207\211@\305=\2039\211@\207\211@?\207\306\207\304\207\306\207\3072f\211\205c
@A=\203\\\310\307\304\"\210\202H\211A\262
\202H\262
0\203k\305\207\311\312\"\207" [gnus-category-predicate-alist mapcar gnus-function-implies-unread-1 #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (and 13 or 29 not 47 gnus-agent-read-p 61 gnus-agent-false 63 gnus-agent-true 65)) t t_nil nil found-match throw error "Unknown predicate function: %s"] 7 (#$ . 95515)])
#@51 Return the category GROUP belongs to.

(fn GROUP)
(defalias 'gnus-group-category #[257 "\204?\302\303\304\206\f\305\306\307$\262
	\310
\211\203=\211@\311
\236A\262\211\2035\211@\312
#\210
A\266\202\202\"\210
A\266\202\202\266\313
\314	\236#\207" [gnus-category-group-cache gnus-category-alist 1000 make-hash-table :size 300 :test equal nil agent-groups puthash gethash default] 11 (#$ . 96481)])
#@463 Expire all old articles in GROUP.
If you want to force expiring of certain articles, this function can
take ARTICLES, and FORCE parameters as well.

The articles on which the expiration process runs are selected as follows:
  if ARTICLES is null, all read and unmarked articles.
  if ARTICLES is t, all articles.
  if ARTICLES is a list, just those articles.
FORCE is equivalent to setting the expiration predicates to true.

(fn GROUP &optional ARTICLES FORCE)
(defalias 'gnus-agent-expire-group #[769 "\204\n\302#\207\303\211\304E
\305=\203\306\307\310Q!\203u\311!\312\313!\314\315\316\"\216\317\320!\321
!\203q\322\323\305\"r\211q\210\315\324\"\216\325!\210\326	\327ed\"\330\331\206S\332\333\334$\262
\211\262\"\210*\210\212\335\336\n\"		%\210)\210*\266\337\340\341\342 #)\207" [gnus-agent-expire-stats gnus-command-method gnus-agent-expire 0 0.0 t yes-or-no-p "Are you sure that you want to expire all articles in " "? " gnus-find-method-for-group gnus-get-buffer-create " *expire overview*" nil make-closure #[0 "\301\300!\207" [V0 kill-buffer] 2] gnus-agent-lib-file "active" file-exists-p generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nnheader-insert-file-contents gnus-active-to-gnus-format count-lines make-hash-table :size 300 :test equal gnus-agent-expire-group-1 gethash gnus-message 4 "%s" gnus-agent-expire-done-message] 16 (#$ . 96900) (byte-code "\300 C\207" [gnus-agent-read-group] 1)])
#@45 

(fn GROUP OVERVIEW ACTIVE ARTICLES FORCE)
(defalias 'gnus-agent-expire-group-1 #[1285 "\306!\307\310\303!\203\211B
\204(\311\312\"\313=\203(\314\315\316#\202\314\315\317#\210\320!\210\321\322\321\211	\323
\f\"A@\262

\324\325!\311
\326\"Z
\205\\?\205\\\327!@@C@\203e\325\202\224\n\330\267\202\201\325\202\224\3311|\332!0\202\224\210\325\202\224\333\334@@\327!@@B!\335
\336\"\"@\203\235\325\202\304\307=\203\250\325\202\304\203\261\325\202\304\334\337\3408\236A!\334\341\3408\236A!\244\n\342P\321\343\325\344\345\n\"\344\346\"\244\344\347\"\244\344\350	\"\244q\210\351 \210\352 \210\353!\2034
\314\354\355\"\210\356!\210eb\210\325`\211\262dW\203.
\3571
\360p!\361_\325\211FB\211\2620\210\202(
\210\314\361\362`	$\210\361y\210\202\377\210\314\354\363\"\210\364\325!\210\314\354\365\"\210\335
\366\"\262
\314\354\367\"\210\314\354\370\"\210\211\211A\203\244
\211@@
A@@=\203\235
\211@A
A@A
\211@\206m

@\240\210
A\262\211A\262

\211@\206

@\240\210
A\262\211A\262

\211@\206\221

@\240\210\211AA\241\266\202N
\211A\262
\202N
\210\3712\325
\211\343\325\205\322
\340\211A\262\2428\211\262\203\254
\211W\203\314
\372\371\373\"\210\202\254
\211\262\202\254
\266\2030\203\342
\314\354\374\"\210\375\376\"\210\314\354\377\"\210\201J
G!\325C\211\321\203\371\201K\201L	T\211\262\245_!\325A\211V\203\211\262\314\354\201M\n#\210)\210@\211@
A@\201N8\3408
\203\232\201OBX\203U\201P\201Q\203P\201R\202S\201S%\210\203\216\353\201T!P!\204\203A\211\325\240\266\340BX\203\203\201P\201U\f@@#\210\211\204\216\314\361\201V\"\210BC\241\262\202\336\250\204\243\360\202\323\353\201T!P!\204\276A\211\325\240\266\201W\202\323W\203\313\201X\202\323\205\323\201Y\211\262\f\203\300\325\201Z>\2033\201[1'\201\\\201T!\"\201J\201]!\354
8\262
!
\\\262
\\\262T\262\201^!\266\201_C\211\2620\210\202,\210\202,\210A\211\325\240\266
\203q\201`
B\262
\201a!\203J
\202N
Zb\210T\262\201b \361y\210`\211Z
\\\262	
\\\262\n|\266C\203\212@Y\203\212BC\241\262\202\227\201c\201d
\"
B\262
\211\203\274\201eBX\203\274\201P\201f \201g\201h\201i#$\210\210\202\336\201OBX\203\325\201P\201j#\210BC\241\262\211\203\357\201a
!\203\357\211\325\211\223\210	A\262\n\266\202\361
A\262\307D
\232\204\201k!\210\201l \203;EF\201m!\210\201ned\325\201o%\210\364\325!\210\201p\307\"\210)\307=\203G\201q \210)\266\310\201G!\203tG\211AA\211
@\\\240\266\211A\211
@\\\240\266\211
@\\\240\266\201r[\"\266\217)H\203\232\n\204\232rIq\210\325H\201s\307\"\210))\207" [nnmail-pathname-coding-system file-name-coding-system gnus-agent-inhibit-update-total-fetched-for gnus-agent-expire-current-dirs gnus-newsrc-hashtb gnus-agent-article-alist gnus-agent-group-pathname t boundp gnus-agent-find-parameter agent-enable-expiration DISABLE gnus-message 5 "Expiry skipping over %s" "Expiring articles in %s" gnus-agent-load-alist 0 0.0 gethash time-to-days nil agent-days-until-old last #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 108 nil 112)) (error) gnus-agent-unread-articles gnus-sorted-difference gnus-uncompress-range sort < tick 3 dormant ".overview" -1 mapcar #[257 "\211@
A\300\211F\207" [nil] 5 "\n\n(fn E)"] #[257 "\211\300\301\300F\207" [nil unread] 5 "\n\n(fn E)"] #[257 "\211\300\301\300F\207" [nil marked] 5 "\n\n(fn E)"] #[257 "\211\300\301\300F\207" [nil special] 5 "\n\n(fn E)"] erase-buffer buffer-disable-undo file-exists-p 7 "gnus-agent-expire: Loading overview..." nnheader-insert-file-contents (error) read 1 "gnus-agent-expire: read error occurred when reading expression at %s in %s.  Skipping to next line." "gnus-agent-expire: Loading overview... Done" set-buffer-modified-p "gnus-agent-expire: Sorting entries... " #[514 "
@
@W\203\n\300\207
@
@V\203\301\207\302\3038
\236A\206\304\3038\236A\206)\304

X\207" [t nil ((special . 0) (marked . 1) (unread . 2)) 2 3] 7 "\n\n(fn A B)"] "gnus-agent-expire: Sorting entries... Done" "gnus-agent-expire: Merging entries... " sort-results throw unsorted "gnus-agent-expire: Unsorted overview; inserting markers to compensate." mapc #[257 "\300
8\211\205\300\233\211\301 \302\223\240\262
\207" [3 make-marker nil] 7 "\n\n(fn ENTRY)"] "gnus-agent-expire: Merging entries... Done" gnus-agent-expire-all message-log-max gnus-verbose gnus-agent-consider-all-articles inhibit-quit gnus-agent-file-coding-system coding-system-for-write gnus-agent-expire-stats gnus-agent-need-update-total-fetched-for gnus-group-buffer float truncate 100.0 "%3d%% completed..." 2 10 message "gnus-agent-expire: %s:%d: Kept %s article%s." " and file" "" number-to-string "gnus-agent-expire cleared download flag on %s:%d as the cached article file is missing." "gnus-agent-expire detected a missing NOV entry.  Run gnus-agent-regenerate-group to restore it." externally-expired expired forced (forced expired) (error) nnheader-concat file-attributes delete-file "expired cached article" "NOV entry removed" markerp point-at-bol format "Removed %s article number from article alist" 8 "gnus-agent-expire: %s:%d: %s" mapconcat identity ", " "gnus-agent-expire: %s:%d: Article kept as expiration tests failed." gnus-agent-save-alist buffer-modified-p gnus-make-directory write-region silent gnus-agent-update-view-total-fetched-for gnus-summary-update-info gnus-agent-update-files-total-fetched-for gnus-group-update-group] 39 (#$ . 98390)])
#@511 Expire all old articles.
If you want to force expiring of certain articles, this function can
take ARTICLES, GROUP and FORCE parameters as well.

The articles on which the expiration process runs are selected as follows:
  if ARTICLES is null, all read and unmarked articles.
  if ARTICLES is t, all articles.
  if ARTICLES is a list, just those articles.
Setting GROUP will limit expiration to that group.
FORCE is equivalent to setting the expiration predicates to true.

(fn &optional ARTICLES GROUP FORCE)
(defalias 'gnus-agent-expire #[768 "
\203\n\303#\207\304=\203\305\306!\205\251\307 \310\311\211\312E\310\211C\310
\313\314!\240\210\315\316\"\216\211A\262\242\211\203\234\317\320!\321
!\203\230\322\323\304\"r\211q\210\315\324\"\216\325!\210\326\327ed\"\330\331\206d\332\333\334$\262
\211\262\"\210*\210\335!\211\203\227\211@\336
\"\211\203\217\212\337\242%\210)\210
A\266\202\202s\210\210\2022)\340 \210\341\342\343\344 #+\266\206\207" [gnus-command-method gnus-agent-expire-stats gnus-agent-expire-current-dirs gnus-agent-expire-group t yes-or-no-p "Are you sure that you want to expire all articles in every agentized group? " gnus-agent-covered-methods nil 0 0.0 gnus-get-buffer-create " *expire overview*" make-closure #[0 "\301\300\242!\207" [V0 kill-buffer] 2] gnus-agent-lib-file "active" file-exists-p generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nnheader-insert-file-contents gnus-active-to-gnus-format count-lines make-hash-table :size 300 :test equal gnus-groups-from-server gethash gnus-agent-expire-group-1 gnus-agent-expire-unagentized-dirs gnus-message 4 "%s" gnus-agent-expire-done-message] 19 (#$ . 103987) nil])
(defalias 'gnus-agent-expire-done-message #[0 "\302V\2034\303\301!\2034	\304
8\305
\306V\203(\211A\203(
\306\245\262\211A\262
\202\307\310@A@@%\207\311\207" [gnus-verbose gnus-agent-expire-stats 4 boundp 2 (B KB MB GB) 1024.0 format "Expiry recovered %d NOV entries, deleted %d files, and freed %.f %s." "Expiry...done"] 9])
(defalias 'gnus-agent-expire-unagentized-dirs #[0 "\205\234\306\304!\205\234	\307\310\311\206\312\313\314$\262
\315C\316\317#\210\f\211\203S\211@\211;\203L\320
!\203L\321
\"\204L\316
\317#\210\322\323!!\262
\2024
A\266\202\202#\210\315C\211\324\325$\240\210\211\242\326!!\266\211\242\205\231
\204v\327\330!\205\231\211\242\211\205\227\211@
\204\213\327\331\332\"!\203\220\333
\317\"\210
A\266\202\202x\262
)\266\203\207" [gnus-agent-expire-unagentized-dirs nnmail-pathname-coding-system file-name-coding-system gnus-agent-directory gnus-agent-expire-current-dirs gnus-expert-user boundp 20 make-hash-table :size 300 :test equal nil puthash t file-directory-p gethash file-name-directory directory-file-name make-closure #[257 "\303
!\304
\211A\262\242\211\262\205h\211\305\232\204\211\306\232\204\211\307\232\203T\310!\304\311\312!\211\262\300\"\204=
\262
\313!\262\202&\211\203O\211\301\242\235\204O\301
\301\242B\240\210\266\202\314\315\"\211\262!\203\302\242
!\210\202\207" [V0 V1 V2 directory-files nil "." ".." ".overview" file-name-as-directory gethash file-name-directory directory-file-name file-directory-p nnheader-concat] 8 "\n\n(fn D)"] expand-file-name gnus-y-or-n-p "gnus-agent-expire has identified local directories that are\nnot currently required by any agentized group.  Do you wish to consider\ndeleting them?" format "Delete %s? " delete-directory] 10])
#@43 Start Gnus, send queue and fetch session.
(defalias 'gnus-agent-batch #[0 "\303\304\305 \210*\306\307 \210\310 )\207" [gnus-always-read-dribble-file init-file-user gnus-agent-confirmation-function "" t gnus gnus-agent-batch-confirmation gnus-group-send-queue gnus-agent-fetch-session] 2 (#$ . 107497) nil])
#@14 

(fn GROUP)
(defalias 'gnus-agent-unread-articles #[257 "\211\301
\"A@\262
\302
8\262
\303!\304C\211\203c\203c\211A\262\242@@\211\247\203.\211\2020\211@
\247\2039
\202;
A
\203EW\203NC\241\266\205\202
V\205ZA\262\305\266\203\204#\210\202\203v\211\211A\262\242@C\241\262
\202c
A\207" [gnus-newsrc-hashtb gethash 2 gnus-agent-load-alist nil t] 11 (#$ . 107813)])
#@287 Restrict ARTICLES to numbers already fetched.
Returns a sublist of ARTICLES that excludes those article ids in GROUP
that have already been fetched.
If CACHED-HEADER is nil, articles are only excluded if the article itself
has been fetched.

(fn ARTICLES GROUP &optional CACHED-HEADER)
(defalias 'gnus-agent-uncached-articles #[770 "\204	\204w\303!\203w\n\304C\211\203b\203b@@@

W\2035C\241\262A\262\266\202

U\203Y\204L@A\204LC\241\262A\262A\262\266\202A\262\266\202\203t\211\211A\262\242C\241\262
\202b
A\207\207" [gnus-agent-cache gnus-plugged gnus-agent-article-alist gnus-agent-load-alist nil] 11 (#$ . 108215)])
#@43 

(fn ARTICLES GROUP &optional FETCH-OLD)
(defalias 'gnus-agent-retrieve-headers #[770 "\212\306 \210\307\211\310\311\"\312\313\314\315!\316\"!\210\2039\317\247\203/\320@Z]\2020\320\321	!@B!\262\322!\203Qr\fq\210\323 \210
)\324@\"\210*\325\316#\211\262\203
*q\210\323 \210\312+\326
\")\327=\204y\330 \210\202\327,@\331=\203\327*q\210\312C\211@\321\n!@eb\210d\312`W\203\266\332\333!\205\244\334p!\211\262\203\260
C\241\262\320y\210\202\225\266\335AB\"\262@\203\320\335\211@@B\"\262\336\"\266\205\fq\210\323 \210*q\210\337\fed#\210\211\203\360\340
\"\210*q\210
-\341 \210\342ed\312\343%\210)\344\316\"\210\345!\210\346\312#\210\202#
*q\210\323 \210\347\f!\210+\266\211\203/
\211\247\2038
\350@\321!@\"\210)\327\207" [nnmail-pathname-coding-system file-name-coding-system gnus-decode-encoded-address-function gnus-decode-encoded-word-function gnus-agent-overview-buffer gnus-agent-file-coding-system gnus-agent-create-buffer identity gnus-agent-article-name ".overview" nil gnus-make-directory nnheader-translate-file-chars file-name-directory t gnus-uncompress-range 1 last file-exists-p erase-buffer nnheader-insert-nov-file gnus-agent-uncached-articles gnus-retrieve-headers nov nnvirtual-convert-headers nntp looking-at "[0-9]+	" read gnus-list-range-intersection gnus-sorted-nunion copy-to-buffer gnus-agent-braid-nov gnus-agent-check-overview-buffer write-region silent gnus-agent-update-view-total-fetched-for gnus-agent-load-alist gnus-agent-save-alist insert-buffer-substring nnheader-nov-delete-outside-range nnheader-file-coding-system nntp-server-buffer gnus-agent gnus-current-select-method coding-system-for-write] 15 (#$ . 108888)])
#@69 Retrieve ARTICLE in GROUP from the agent cache.

(fn ARTICLE GROUP)
(defalias 'gnus-agent-request-article #[514 "\205G	\204
\n?\205G
\247\205G\306
!\307\310!\"\311
\312
!\205D\313
!\314
8\262
\315V\205D\316 \210\317 \210\320
!\210)\321+\262
\207" [gnus-agent gnus-agent-cache gnus-plugged gnus-command-method buffer-read-only nnmail-pathname-coding-system gnus-find-method-for-group gnus-agent-article-name number-to-string nil file-exists-p file-attributes 7 0 erase-buffer gnus-kill-all-overlays insert-file-contents t file-name-coding-system gnus-cache-coding-system coding-system-for-read] 6 (#$ . 110620)])
#@22 

(fn ARTICLE GROUP)
(defalias 'gnus-agent-store-article #[514 "\305
!\306\307!\"	\310
!?\205/\311\312!!\210\313ed\314\315%\210\316!\210\317C\320\314!#+\207" [gnus-command-method nnmail-pathname-coding-system file-name-coding-system gnus-cache-coding-system coding-system-for-write gnus-find-method-for-group gnus-agent-article-name number-to-string file-exists-p gnus-make-directory file-name-directory write-region nil silent gnus-agent-load-alist gnus-agent-save-alist time-to-days] 9 (#$ . 111255)])
#@349 Regenerate GROUP.
If REREAD is t, all articles in the .overview are marked as unread.
If REREAD is a list, the specified articles will be marked as unread.
In addition, their NOV entries in .overview will be refreshed using
the articles' current headers.
If REREAD is not nil, downloaded articles are marked as unread.

(fn GROUP &optional REREAD)
(defalias 'gnus-agent-regenerate-group #[513 "
\205\306\307\310#\210\206\311!\312\313\"\314
!	\315
!\2038\316\317\320\321\322\323\"\324\320\325\326$\"\"\327\"\202=\330
!\210\320\320\211\211\211\331\332\326\"r\211q\210\322\333\"\216\334 \210\315!\203`\335!\210)\336\320!\210\326\211\203
\320\262
eb\210`dW\203\377\337\340!\203\357\341\225\341\224Z\342X\203\357\343p!B\262\344y\210@A@<\203\272
\f>\203\272\345 \344y\210`|\210A\262\306\346\347#\266\202o\211\203\352

W\203\316\306\350\351\"\266\326\202o

U\203\352\352y\210\306\346\353#\210\345 \344y\210`|\210A\262\266\202o\306\344\354\"\210\345 \344y\210`|\210\202o\211\203e\306\307\355\"\210\356\344ed#\210\320\262\202e\210\357 \210\204 
\203\320
\203\227
\2030
@@V\203\227
\306\350\360\f	@$\210\361@!P\331\332\326\"r\211q\210\322\362\"\216\334 \210\335!\210\363 \210\364\326!\262*\210\341@I\210\203\206
\365\366@!\367Q\370
\320\326#\204
\371
!\210\344y\266\202\211
eb\210\372!\266@B\262\202
@@=\203\302
@\373\374	\361\n@!P!\307
8\262
!BB\262A\262A\262\202
@CB\262A\262\202

\2034\320B\211\375\f!\211\203+A@@
@@
\204\371

CC\241\262A\266\203\202\334
\211W\203
CAB\241\210A\266\203\202\334
\211U\203\"A\262A\262\266\202\334
A\262\266\202\334

A\262\266\202e\376!\376\375\f!!\211\203c
\204S\211@@CB\262\266\202e
@@
@@W\203c

@C\241\210\266\326@\377 \211\262\203\201A\201Ded\n\320\201E%\210)
\206\224\203\217B\206\224B\232?\262B
\203\324\201F\n!\210\201G\201H\"\203\271	\341\225\320O\202\273	\201IC\"\206\314\201J!\201K\"\266+\210\203B\203\201L		<\203\360	\202\376\317\320\321\322\201M\"B\"\"\201N\201OEC#\210\211\203\201P	\320\"\210\306\307\201Q\"\210*\266\206\207" [gnus-command-method nnmail-pathname-coding-system file-name-coding-system gnus-agent-file-coding-system nnheader-file-coding-system gnus-agent-consider-all-articles gnus-message 5 "Regenerating in %s" gnus-find-method-for-group gnus-agent-article-name ".overview" file-name-directory file-exists-p sort delq nil mapcar make-closure #[257 "\301\302\300\"!?\205
\303
!\207" [V0 file-directory-p nnheader-concat string-to-number] 5 "\n\n(fn NAME)"] directory-files "\\`[0-9]+\\'" t > gnus-make-directory generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte nnheader-insert-file-contents set-buffer-modified-p looking-at "[0-9]+	" 0 9 read 1 point-at-bol 4 "gnus-agent-regenerate-group: NOV entry of article %s deleted." 3 "gnus-agent-regenerate-group: NOV entries are NOT in ascending order." -1 "gnus-agent-regenerate-group: NOV entries contained duplicate of article %s.	 Duplicate deleted." "gnus-agent-regenerate-group: NOV entries contained line that did not begin with an article number.  Deleted line." "gnus-agent-regenerate-group: Sorting NOV entries into ascending order." sort-numeric-fields gnus-agent-check-overview-buffer "Regenerating NOV %s %d..." number-to-string #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nnheader-remove-body nnheader-parse-head "^" int-to-string "	" re-search-backward re-search-forward nnheader-insert-nov time-to-days file-attributes gnus-agent-load-alist last buffer-modified-p inhibit-quit coding-system-for-write gnus-agent-article-alist gnus-active-hashtb write-region silent gnus-agent-save-alist string-match "^[^:]+:" gethash gnus-activate-group gnus-agent-possibly-alter-active gnus-agent-synchronize-group-flags #[257 "\300\301=\203	\211@\207\211A\205\211@\207" [V0 t] 3 "\n\n(fn C)"] del (read) gnus-agent-update-files-total-fetched-for ""] 18 (#$ . 111778) (byte-code "\302 \3032f\304\305\306\307\310!\210\311 \262
\211\312=\204%\211\313=\204%\211\314=\203-\315\303\304\"\210\202R\211\316=\2049\211\317=\203A\315\303\305\"\210\202R\211\320=\204M\211\321=\203R\315\303\322\"\210\323\324\325\"\210\326\327!\210*\305\262
\205e\2020D\207" [echo-keystrokes cursor-in-echo-area gnus-agent-read-group mark nil t 0 message "Mark as unread: (n)one / (a)ll / all (d)ownloaded articles? (n) " read-char-exclusive 13 110 78 throw 97 65 100 68 some gnus-message 3 "Ignoring unexpected input" sit-for 1] 5)])
#@97 Regenerate all agent covered files.
CLEAN is obsolete and ignored.

(fn &optional CLEAN REREAD)
(defalias 'gnus-agent-regenerate #[512 "\301\302\303\304\"\210\305 \211\2033\211@\306!\211\203*\211@\307
\"\206!\262
A\266\202\202\210\211A\262
)\202\210\302\303\310\"\210\207" [gnus-command-method nil gnus-message 4 "Regenerating Gnus agent files..." gnus-agent-covered-methods gnus-groups-from-server gnus-agent-regenerate-group "Regenerating Gnus agent files...done"] 9 (#$ . 116411) nil])
#@58 Switch servers into online status.

(fn &optional FORCE)
(defalias 'gnus-agent-go-online #[256 "\211\2054\211@\211A@\301=\203-\302=\203$\303\304\305@@@A@#!\202%\203-\211A\306\240\210
A\266\202\202
\207" [gnus-opened-servers offline ask gnus-y-or-n-p format "Switch %s:%s into online status? " close] 8 (#$ . 116919) (list t)])
#@67 Toggle the status of the server of the current group.

(fn GROUP)
(defalias 'gnus-agent-toggle-group-plugged #[257 "\301
!\302
\"A@\211\303=\203\304\305\"\210\202 \306!\210\304\303\"\210\307\310@A@\303=\2031\303\2022\311\303=\203<\311\202=\303%\207" [gnus-opened-servers gnus-find-method-for-group assoc offline gnus-server-set-status closed gnus-close-server message "Turn %s:%s from %s to %s." online] 10 (#$ . 117263) (byte-code "\300 C\207" [gnus-group-group-name] 1)])
#@14 

(fn GROUP)
(defalias 'gnus-agent-group-covered-p #[257 "\300\301!!\207" [gnus-agent-method-p gnus-group-method] 4 (#$ . 117758)])
#@127 Update, or set, the total disk space used by the articles that the
agent has fetched.

(fn GROUP DELTA &optional METHOD PATH)
(defalias 'gnus-agent-update-files-total-fetched-for #[1026 "\205\302\306
\211\206\307!\310
\"\206\311
\312\313\314\"#\315!\205\251<\203\233\203k\316\317\211A\262\242\211\262\203c
\320\321\322\247\203P\323!\202Q\"!\324
8\262
\206\\\314!\\\262\2021
\262\266\202\233\325
8[\326\317\327\306$\317
\211A\262\242\211\262\203\226\320A\324
8\262
\206\217\314!\\\262\202v\262\266\306\211AA\211
@\\\240\262
*\266\202)
\203\302	\204\302rq\210\317\330\306\"\210)\207" [gnus-agent-total-fetched-hashtb gnus-agent-inhibit-update-total-fetched-for gnus-command-method nnmail-pathname-coding-system file-name-coding-system gnus-agent-need-update-total-fetched-for t gnus-agent-group-pathname gethash puthash make-list 3 0 file-exists-p 0.0 nil float file-attributes nnheader-concat number-to-string 7 2 directory-files-and-attributes "\\`-?[0-9]+\\'" gnus-group-update-group gnus-group-buffer] 15 (#$ . 117898)])
#@191 Update, or set, the total disk space used by the .agentview and
.overview files.  These files are calculated separately as they can be
modified.

(fn GROUP AGENT-OVER &optional METHOD PATH)
(defalias 'gnus-agent-update-view-total-fetched-for #[1026 "\205c\306
\211\206\307!\310
\"\206\311
\312\313\314\"#\315\316\203,\317\202-\320\"!\321
8\262
\2068\314\306\203B\322\202C\314\233\211\240\262
*\266\203)
\203c	\204crq\210\323\324\306\"\210)\207" [gnus-agent-total-fetched-hashtb gnus-agent-inhibit-update-total-fetched-for gnus-command-method nnmail-pathname-coding-system file-name-coding-system gnus-agent-need-update-total-fetched-for t gnus-agent-group-pathname gethash puthash make-list 3 0 file-attributes nnheader-concat ".overview" ".agentview" 7 1 nil gnus-group-update-group gnus-group-buffer] 10 (#$ . 118987)])
#@95 Get the total disk space used by the specified GROUP.

(fn GROUP &optional METHOD NO-INHIBIT)
(defalias 'gnus-agent-total-fetched-for #[769 "\303\232?\205O\204\304\305\306\206\307\310\311$\262

\312!\313
\"\211\203-\314\315\"\202L?\316\317$\316\320$\\\321\317$\\))\266\202\207" [gnus-agent-total-fetched-hashtb gnus-command-method gnus-agent-inhibit-update-total-fetched-for "dummy.group" 1000 make-hash-table :size 300 :test equal gnus-agent-group-pathname gethash apply + gnus-agent-update-view-total-fetched-for nil t gnus-agent-update-files-total-fetched-for] 11 (#$ . 119846)])
(provide 'gnus-agent)