%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-agent.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\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\323\324\325\326&\210\317\327\330\331\323\324\325\332&\210\317\333\330\334\323\324\325\332&\210\317\335\330\336\337\340\323\324\325\332&	\210\317\341\342\343\323\324\325\344&\210\317\345\346\347\323\324\325\350&\210\317\351\330\352\323\324\325\353&\210\317\354\330\355\323\324\325\332&\210\317\356\330\357\323\324\325\332&\210\317\360\330\357\323\324\325\332&\210\317\361\362\363\337\364\323\324\325\365&	\210\317\366\330\367\337\364\325\370\323\324&	\210\317\371\372\373\337\374\325\375\323\324&	\210\317\376\377\201@\337\364\325\353\323\324&	\210\317\201A\201B\201C\337\364\325\201D\323\324&	\210\317\201E\330\201F\337\340\325\353\323\324&	\210\317\201G\201H\201I\337\340\323\324\325\344&	\210\317\201J\201K\201L\337\340\323\324\325\201M&	\210\317\201N\377\201O\337\340\325\353\323\324&	\210\317\201P\330\201Q\337\340\325\201R\323\324&	\210\317\201S\377\201T\337\340\323\324\325\201U&	\210\317\201V\330\201W\337\340\323\324\325\353&	\210\317\201X\201Y\201Z\337\340\323\324\325\201[&	\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 (nnheader-concat gnus-directory "agent/") "Where the Gnus agent will store its files." :group gnus-agent :type directory gnus-agent-plugged-hook nil "Hook run when plugging into the network." hook gnus-agent-unplugged-hook "Hook run when unplugging from the network." gnus-agent-fetched-hook "Hook run when finished fetching articles." :version "22.1" gnus-agent-handle-level gnus-level-subscribed "Groups on levels higher than this variable will be ignored by the Agent." integer gnus-agent-expire-days 7 "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 "If non-nil, also expire unread, ticked and dormant articles.\nIf nil, only read articles will be expired." boolean gnus-agent-group-mode-hook "Hook run in Agent group minor modes." gnus-agent-summary-mode-hook "Hook run in Agent summary minor modes." gnus-agent-server-mode-hook gnus-agent-confirmation-function 'y-or-n-p "Function to confirm when error happens." "21.1" function gnus-agent-synchronize-flags "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 'ask "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 t "Indicate whether to mark articles unread after downloaded." gnus-agent-download-marks '(download) "Marks for downloading." (repeat (symbol :tag "Mark")) gnus-agent-consider-all-articles "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 10000000 "Chunk size for `gnus-agent-fetch-session'.\nThe function will split its article fetches into chunks smaller than\nthis limit." gnus-agent-enable-expiration 'ENABLE "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 "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 "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 "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 "If non-nil, `gnus-group-send-queue' will prompt if called when unplugged." gnus-agent-article-alist-save-format 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 (#$ . 6036))
(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 (#$ . 6972))
(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 #[nil "\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 #[nil "\211\205\302\303	!\211!\205	)\203\304\207\305\306!rq\210\307 \210)\310\207" [gnus-agent-overview-buffer 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 #[nil "\306\211\306\211\211\205\307\310
!\211!\205
)\205#\311\f!\210\312 )\207" [gnus-category-predicate-cache gnus-category-group-cache gnus-agent-spam-hashtb gnus-agent-overview-buffer buf buffer nil buffer-live-p get-buffer kill-buffer gnus-prune-buffers] 4])
#@127 Performs the body then updates the group's line in the group
buffer.  Automatically blocks multiple updates due to recursion.
(defalias 'gnus-agent-with-refreshed-group '(macro . #[(group &rest body) "\302\303\304BB\305\306\307\310\311\312	\313BBFEE\207" [body group 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)] 10 (#$ . 8325)]))
#@34 Load FILE and do a `read' there.
(defalias 'gnus-agent-read-file #[(file) "\302\303!rq\210\304\216\3051\306	!\210eb\210\307p!0\202\210\310+\207" [#1=#:temp-buffer file generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] (error) nnheader-insert-file-contents read nil] 2 (#$ . 8898)])
(defalias 'gnus-agent-method #[nil "\301@!\302A@\303\232\203\304\202A@Q\207" [gnus-command-method symbol-name "/" "" "unnamed"] 4])
(put 'gnus-agent-method 'byte-optimizer 'byte-compile-inline-expand)
#@39 The name of the Gnus agent directory.
(defalias 'gnus-agent-directory #[nil "\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 (#$ . 9444)])
(put 'gnus-agent-directory 'byte-optimizer 'byte-compile-inline-expand)
#@47 The full name of the Gnus agent library FILE.
(defalias 'gnus-agent-lib-file #[(file) "\303\304\303\305\306	\307\310\n@!\311\nA@\312\232\203\313\202\nA@Q!\311#\"!\"\207" [file gnus-agent-directory gnus-command-method expand-file-name file-name-as-directory "agent.lib" nnheader-concat nnheader-translate-file-chars symbol-name "/" "" "unnamed"] 12 (#$ . 9796)])
(defalias 'gnus-agent-cat-set-property #[(category property value) "\203	\n\236\206	\304B\n\nAB\241\210)\241\210\2029\n	\nA@@=\2031\n\211AA\241\210\2028\nA\211\204)\n\207" [value property category cell nil] 3])
(defalias 'gnus-agent-cat-name '(macro . #[(category) "\301D\207" [category car] 2]))
(defalias 'gnus-agent-cat-days-until-old '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-days-until-old] 4]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-days-until-old gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-days-until-old #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-days-until-old] 4]] 5]] 4)
(defalias 'gnus-agent-cat-enable-expiration '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-enable-expiration] 4]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-enable-expiration gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-enable-expiration #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-enable-expiration] 4]] 5]] 4)
(defalias 'gnus-agent-cat-groups '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-groups] 4]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-groups gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-groups #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-groups] 4]] 5]] 4)
(defalias 'gnus-agent-cat-high-score '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-high-score] 4]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-high-score gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-high-score #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-high-score] 4]] 5]] 4)
(defalias 'gnus-agent-cat-length-when-long '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-long-article] 4]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-length-when-long gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-length-when-long #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-long-article] 4]] 5]] 4)
(defalias 'gnus-agent-cat-length-when-short '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-short-article] 4]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-length-when-short gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-length-when-short #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-short-article] 4]] 5]] 4)
(defalias 'gnus-agent-cat-low-score '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-low-score] 4]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-low-score gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-low-score #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-low-score] 4]] 5]] 4)
(defalias 'gnus-agent-cat-predicate '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-predicate] 4]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-predicate gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-predicate #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-predicate] 4]] 5]] 4)
(defalias 'gnus-agent-cat-score-file '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-score] 4]))
(byte-code "\300\301\302\303#\300\207" [function-put gnus-agent-cat-score-file gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-score-file #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-score] 4]] 5]] 4)
(defalias 'gnus-agent-cat-enable-undownloaded-faces '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-enable-undownloaded-faces] 4]))
(byte-code "\300\301\302\303#\300\304\302\305#\300\207" [function-put gnus-agent-cat-enable-undownloaded-faces gv-expander #[#1=(do &rest args) "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-enable-undownloaded-faces #[(value category) "\302\303	F\207" [category value gnus-agent-cat-set-property 'agent-enable-undownloaded-faces] 4]] 5] gnus-agent-cat-groups #[#1# "\302\303\304	$\207" [do args gv--defsetter gnus-agent-cat-groups #[(val &rest args) "\302\303	C\"B\207" [args val gnus-agent-set-cat-groups append] 4]] 5]] 5)
(defalias 'gnus-agent-set-cat-groups #[(category groups) "\306=?\205\307	\236A\211\n=\203\310\202~\nA=\2037\307	\236\2062\307\310B	\f	AB\241\210\f)\241\202~\203e\211A\242\311
!\f	\f=\204a\f
\312
\313
\307\f\236A\"\"\210)*\2029\310)\307	\236\206|\307\310B	\f	AB\241\210\f)\241*\207" [groups category old-g new-g cell group ignore agent-groups nil gnus-group-category gnus-agent-set-cat-groups delete old-category #1=#:v gnus-category-group-cache] 7])
(defalias 'gnus-agent-cat-make #[(name &optional default-agent-predicate) "\302	\206\303BD\207" [name default-agent-predicate agent-predicate false] 3])
(put 'gnus-agent-cat-make 'byte-optimizer 'byte-compile-inline-expand)
#@55 Read a group name in the minibuffer, with completion.
(defalias 'gnus-agent-read-group #[nil "\302 \206\303\304\211\305\304\211	&)\207" [gnus-newsgroup-name def gnus-group-group-name gnus-group-completing-read nil t] 7 (#$ . 15700)])
#@52 Initialize data structures for efficient fetching.
(defalias 'gnus-agent-start-fetch #[nil "\300 \207" [gnus-agent-create-buffer] 1 (#$ . 15945)])
#@40 Save all data structures and clean up.
(defalias 'gnus-agent-stop-fetch #[nil "\302r	q\210~)\207" [gnus-agent-spam-hashtb nntp-server-buffer nil] 1 (#$ . 16098)])
#@18 Do FORMS safely.
(defalias 'gnus-agent-with-fetch '(macro . #[(&rest forms) "\301\302\303\304BBB\305BB\207" [forms unwind-protect let ((gnus-agent-fetching t)) (gnus-agent-start-fetch) ((gnus-agent-stop-fetch))] 5 (#$ . 16268)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-agent-with-fetch lisp-indent-function 0 edebug-form-spec (body)] 4)
(defalias 'gnus-agent-append-to-list '(macro . #[(tail value) "\302\303\304	\305BBEE\207" [tail value setq setcdr cons (nil)] 7]))
(defalias 'gnus-agent-message '(macro . #[(level &rest args) "\302\303\304BB\305	BE\207" [level args if <= (gnus-verbose) message] 4]))
#@38 Hook run when installing agent mode.
(defvar gnus-agent-mode-hook nil (#$ . 16909))
(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 #[nil "\306\307\310!\"\210\311\312\310!\"\313\314\315	\"!\316\303!\210\317\n\320L\210\316\n!\317L\210\321\322\323\"\2034\313\314\324	\"! \210\n\f\236\204A\n
AB\fB\n\236\204V\n\313\314\325	\"!JBB\326\327!\203l\320 \330\331 !\210*\332\333\313\314\334	\"!\"*\207" [major-mode buffer mode gnus-agent-mode minor-mode-alist gnus-agent-mode-status 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" minor-mode-map-alist gnus-plugged gnus-agent-go-online init-plugged] 6 (#$ . 17090)])
(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 #[nil "\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 #[nil "\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 #[nil "\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])
(defalias 'gnus-agent-make-mode-line-string #[(string mouse-button mouse-func) "\303\304\305	\n\"\306\307%\207" [string mouse-button mouse-func propertize local-map make-mode-line-mouse-map mouse-face mode-line-highlight] 6])
#@42 Toggle whether Gnus is unplugged or not.
(defalias 'gnus-agent-toggle-plugged #[(set-to) "	=\2042\203 \304\305!\210\nA\306\307\310\311#\240\210\303!\210\2022\312 \210\304\313!\210\nA\306\314\310\311#\240\210\315\316!\207" [set-to 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] 5 (#$ . 20851) (list (not gnus-plugged))])
(defalias 'gnus-agent-while-plugged '(macro . #[(&rest body) "\301\302\303\304\305BB\306BBE\207" [body let ((original-gnus-plugged gnus-plugged)) unwind-protect progn (gnus-agent-toggle-plugged t) ((gnus-agent-toggle-plugged original-gnus-plugged))] 6]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-agent-while-plugged lisp-indent-function 0 edebug-form-spec (body)] 4)
#@46 Close all methods covered by the Gnus agent.
(defalias 'gnus-agent-close-connections #[nil "\301 \205\302\211A\242!\210\202)\207" [methods gnus-agent-covered-methods gnus-close-server] 3 (#$ . 21800)])
#@23 Start Gnus unplugged.
(defalias 'gnus-unplugged #[nil "\301\302 \207" [gnus-plugged nil gnus] 1 (#$ . 22016) nil])
#@21 Start Gnus plugged.
(defalias 'gnus-plugged #[nil "\301\302 \207" [gnus-plugged t gnus] 1 (#$ . 22138) nil])
#@33 Read news as a slave unplugged.
(defalias 'gnus-slave-unplugged #[(&optional arg) "\302\303	\302\304#\207" [gnus-plugged arg nil gnus slave] 4 (#$ . 22254) "P"])
#@354 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 #[nil "\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 #[(server-or-method) "\211\203\211<\203\211\206@\306	\"A\206@\211\307\232\203 \n\206,\306\"A\206,\306\f\"A\206,
\211\203N\310\311@@@@@A@#\232\204N\211A\266\202\2021\211@@\262\206,\211\203s\310\311@@@A@#\232\204s\211A\266\202\202X\211@\262\206,A\312\211\203*\211A\262\242\3138\262\262;\204\312\314C\3152\211\242\206\246\n\240\210\204\275\316\317\320\321\322\323!\324\"\313\325%	\"\210\fD\211\203\336\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\300\210\211\242A@\330\235\203\361\310\331\242@\"\202\373\310\311\242@\242A@#\211\242B\211	\235\204\204\306@	\"\204\211	B\266\2020\262\266\203\232\203\262\312\262\202\266\202\211\203=\306	\"\204=B	B\211\262\262\211@>\205\333\312\211C\3152\320\211\242\206]\n\240\210\204t\316\317\320\321\322\323!\332\"\313\325%	\"\210\fD\211\203\225\211@\316\317\320\326\322\323!\333\"\313\325%\"\210A\266\202\202w\210\211\242A@\330\235\203\250\310\331\242@\"\202\262\310\311\242@\242A@#\211\242B\211	\235\204\314\204\314\306@	\"\204\314\211	B\266\2020\266\204 B \312\211!)\207" [server-or-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] gnus-secondary-select-methods gnus-newsrc-alist method gnus-agent-auto-agentize-methods gnus-agent-covered-methods gnus-agent-method-p-cache] 19] gnus-agent-write-servers] 4 (#$ . 22424) nil])
#@97 Make sure the queue group exists.
Optional arg GROUP-NAME allows another group to be specified.
(defalias 'gnus-agent-queue-setup #[(&optional group-name) "\303\304\305\206\306\"	\"?\2054\307\206\306\310\"\210\311\312\304\305\206\"\306\"\313\314#\210)\315\304\305\2060\306\"\316\317#\207" [group-name 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))] 4 (#$ . 25081)])
(defalias 'gnus-agent-send-mail #[nil "\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])
#@164 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.
(defalias 'gnus-agent-insert-meta-information #[(type &optional method) "\212\303!\210eb\210\304\305	!\306\307\310\n\"\311\261\210\312u\210\313\311\314\315#\205*\316\317\315\211#\210\202)\207" [gnus-agent-meta-information-header type method message-remove-header ": " symbol-name " " format "%S" "\n" -1 search-backward nil t replace-match "\\n"] 7 (#$ . 26082)])
#@38 Restore GCC field from saved header.
(defalias 'gnus-agent-restore-gcc #[nil "\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 (#$ . 26621)])
(defalias 'gnus-agent-any-covered-gcc #[nil "\214\303 \210\304\305\306\307#\211\205\310\311\312\313\314\"!\"\306\n\204-	\203-\315	@!	A\202\n,\207" [gcc methods covered 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 #[nil "?\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 (#$ . 27240)])
#@28 Do GCC if Gnus is plugged.
(defalias 'gnus-agent-possibly-do-gcc #[nil "\204\n\301 ?\205\f\302 \207" [gnus-plugged gnus-agent-any-covered-gcc gnus-inews-do-gcc] 1 (#$ . 27574)])
#@60 Put all new articles in the current groups into the Agent.
(defalias 'gnus-agent-fetch-groups #[(n) "\204\302\303!\210\304	\305\"\207" [gnus-plugged n error "Groups can't be fetched when Gnus is unplugged" gnus-group-iterate gnus-agent-fetch-group] 3 (#$ . 27761) "P"])
#@47 Put all new articles in GROUP into the Agent.
(defalias 'gnus-agent-fetch-group #[(&optional group) "\206	\211\204\306\307!\210\310!\204\311\312\"\207\n\313\216\314\315!\210\316!\317\216\315\320 \210\321\f\"\210\322\323\324#-\207" [group gnus-newsgroup-name gnus-plugged original-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" #[nil "\301!\207" [original-gnus-plugged gnus-agent-toggle-plugged] 2] gnus-agent-toggle-plugged t gnus-find-method-for-group #[nil "\300 \207" [gnus-agent-stop-fetch] 1] gnus-agent-start-fetch gnus-agent-fetch-group-1 gnus-message 5 "Fetching %s...done"] 5 (#$ . 28040) (list (gnus-group-group-name))])
#@45 Add the current group to an agent category.
(defalias 'gnus-agent-add-group #[(category arg) "	\236\306\211\307
\310\"\210\f\f\311\f\312\f\236A\n\244\"\210)\313 +\207" [category gnus-category-alist groups c cat arg nil gnus-group-iterate #[(group) "\304\305!\211\236A\203	\306\n\307\304	\236A\"\"\210)B\211\207" [group c #1=#:v groups agent-groups gnus-group-category gnus-agent-set-cat-groups delete] 6] gnus-agent-set-cat-groups agent-groups gnus-category-write #2=#:v] 4 (#$ . 28804) (list (intern (gnus-completing-read "Add to category" (mapcar #'(lambda (cat) (symbol-name (car cat))) gnus-category-alist) t)) current-prefix-arg)])
#@59 Remove the current group from its agent category, if any.
(defalias 'gnus-agent-remove-group #[(arg) "\302\303	\304\"\210\305 )\207" [c arg nil gnus-group-iterate #[(group) "\303\304!\211\236A\205	\305\n\306\303	\236A\"\")\207" [group c #1=#:v agent-groups gnus-group-category gnus-agent-set-cat-groups delete] 6] gnus-category-write] 3 (#$ . 29462) "P"])
#@43 Synchronize unplugged flags with servers.
(defalias 'gnus-agent-synchronize-flags #[nil "\212\302 \303\211\205!	@\304\305\306!!\203\307!\210	A\211\204\n\303+\207" [gnus-command-method --dolist-tail-- gnus-agent-covered-methods nil file-exists-p gnus-agent-lib-file "flags" gnus-agent-synchronize-flags-server] 4 (#$ . 29831) nil])
#@64 Synchronize flags according to `gnus-agent-synchronize-flags'.
(defalias 'gnus-agent-possibly-synchronize-flags #[nil "\212\302 \303\211\205!	@\304!\305=\203\306!\210	A\211\204\n\303+\207" [gnus-command-method --dolist-tail-- gnus-agent-covered-methods nil gnus-server-status ok gnus-agent-possibly-synchronize-flags-server] 3 (#$ . 30177) nil])
#@50 Synchronize flags set when unplugged for server.
(defalias 'gnus-agent-synchronize-flags-server #[(method) "\306\307\310\311!!\205z\312\313!q\210\314 \210\315\310\311!!\210\204)\316\317\320\nA@#\210\202w\321\n!\204:\316\317\322\nA@#\210\202w\3231]\3241R`\325\326p!!\210\f`|\210)\202B0\327\310\311!!)\202v\310\311!\330ed\310\311!\306\331%\210\332\333\334
!#*\210\335\306!*\207" [method gnus-agent gnus-command-method gnus-plugged bgn err nil file-exists-p gnus-agent-lib-file "flags" 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 delete-file write-region silent error "Couldn't set flags from file %s due to %s" error-message-string kill-buffer file] 6 (#$ . 30539)])
#@75 Synchronize flags for server according to `gnus-agent-synchronize-flags'.
(defalias 'gnus-agent-possibly-synchronize-flags-server #[(method) "\302\303\304!!\205&\203\305=\203#\305=\205&\306\307\310	A@\"!\205&\311	!\207" [gnus-agent-synchronize-flags method 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] 4 (#$ . 31429)])
#@243 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.
(defalias 'gnus-agent-rename-group #[(old-group new-group) "\306!\307	\310!)!\306\f!\307
\310\f!)!\311\312#\210\313\314\"\203:\315\316\225\"\202<)\f\313\314\"\203S\315\316\225\"\202U)\317	\"\320	\321#\210\320
#\210\322	#\323\321\211	%\210\323\f@A
%.	\207" [old-group old-command-method gnus-command-method old-path new-group new-command-method gnus-find-method-for-group directory-file-name gnus-agent-group-pathname gnus-rename-file t string-match "^[^:]+:" substring 0 gnus-agent-get-group-info gnus-agent-save-group-info nil gnus-agent-get-local gnus-agent-set-local new-path nnmail-pathname-coding-system file-name-coding-system gname old-real-group new-real-group old-active old-local] 6 (#$ . 31868)])
#@226 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.
(defalias 'gnus-agent-delete-group #[(group) "\306!\307	\310!)!\f\311!\210\312\313\"\203'\314\315\225\"\202))\316	\317#\210\320	#\210\321\317\211	%,\207" [group command-method gnus-command-method path 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 "^[^:]+:" substring 0 gnus-agent-save-group-info nil gnus-agent-get-local gnus-agent-set-local gname real-group] 6 (#$ . 32890)])
#@37 Enroll SERVER in the agent program.
(defalias 'gnus-agent-add-server #[nil "\306 \307 \205\303\310\211;\203W\211\211\203\211<\203\211\206R\311\n\"A\206R\211\312\232\2031\206>\311\f\"A\206>\311
\"A\206>-\211\203`\313\314@@@@@A@#\232\204`\211A\266\202\202C\211@@\262\206>.\211\203\205\313\314@@@A@#\232\204\205\211A\266\202\202j\211@\262\206>/A\310\211\203<\211A\262\242\3158\262\262;\204\221\310\316C\3172+\211\242\206\270\240\210\204\317\320\321\322\323\324\325!\326\"\315\327%\n\"\210\f
D\211\203\360\211@\320\321\322\330\324\325!\331\"\315\327%\"\210A\266\202\202\322\210\211\242A@\332\235\203\313\333\242@\"\202
\313\314\242@\242A@#\211\242B\211\n\235\204'\204'\311@\n\"\204'\211\nB\266\2020\262\266\203\232\203\221\262\310\262\202\221\266\202\211\203O\311\n\"\204OB\nB\211\262\266\203\202\303\211\232\203c\266\202\202\303\211@;\203v\203v\334\"\266\202\202\303\211\203\213\204\213\211A@\335\232\203\213\262\202\303\211\336@!\337\3110\">\203\276\340\341P!\236\204\276\342@0\236>\203\276\343\340\341P!A@DC\"\202\277\262\266\2031\204\315\344\345!\210\3461!\203\330\344\347!\210	2B2\3103\350!\210\351 \210\352\353\354#+\207" [server named-server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-server-server-name gnus-server-named-server nil assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-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-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-valid-select-methods method gnus-agent-covered-methods gnus-agent-method-p-cache] 20 (#$ . 33642) nil])
#@39 Remove SERVER from the agent program.
(defalias 'gnus-agent-remove-server #[nil "\304 \305 \204\306\307!\210	\n\235\204\306\310!\210\311	\n\"\312\313!\210\314 \210\315\316\317#*\207" [server named-server 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"] 4 (#$ . 35849) nil])
#@36 Read the alist of covered servers.
(defalias 'gnus-agent-read-servers #[nil "\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 (#$ . 36371)])
(defalias 'gnus-agent-read-servers-validate #[nil "\301\302\303\"\207" [gnus-agent-covered-methods mapcar #[(server-or-method) ";\203	\202\216\306\211C\3072\214\211\242\206	\240\210\2040\310\311\312\313\314\315!\316\"\317\320%\n\"\210\fD\211\203Q\211@\310\311\312\321\314\315!\322\"\317\320%\"\210A\266\202\2023\210\211\242A@\323\235\203d\324\325\242@\"\202n\324\326\242@\242A@#\211\242B\211\n\235\204\210\204\210\327@\n\"\204\210\211\nB\266\2020\266\204\211\211\203\235\211<\203\235\211\206\320\327\n\"A\206\320\211\330\232\203\257	\206\274\327\"A\206\274\327\f\"A\206\274\211\203\336\324\326@@@@@A@#\232\204\336\211A\266\202\202\301\211@@\262\206\274 \211\203\324\326@@@A@#\232\204\211A\266\202\202\350\211@\262\206\274!A\306\211\203\272\211A\262\242\3178\262\262;\204\306\331C\3072\251\211\242\2066	\240\210\204M\310\311\312\313\314\315!\332\"\317\320%\n\"\210\fD\211\203n\211@\310\311\312\321\314\315!\333\"\317\320%\"\210A\266\202\202P\210\211\242A@\323\235\203\201\324\325\242@\"\202\213\324\326\242@\242A@#\211\242B\211\n\235\204\245\204\245\327@\n\"\204\245\211\nB\266\2020\262\266\203\232\203\262\306\262\202\266\202\211\203\315\327\n\"\204\315B\nB\211\262\262\211\"\203\355
#\235?\205\362
#B#\306\211$\202\362\334\335\336
#*\207" [server-or-method gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist server nil server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] 4 "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") format "%s" "%s:%s" assoc "native" t [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] gnus-message 8 "Ignoring disappeared server `%s'" gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist method gnus-agent-covered-methods gnus-agent-method-p-cache] 19] nil] 4])
(defalias 'gnus-agent-read-servers-validate-native #[(native-method) "\301\302\"\211\207" [gnus-agent-covered-methods mapcar #[(method) "\203\n	\232\203\f\302\207\207" [method native-method "native"] 2]] 3])
#@37 Write the alist of covered servers.
(defalias 'gnus-agent-write-servers #[nil "\306\307\310\"!\210	\n\307\311\"\312\313!\314\216r
q\210\315p\")r
q\210\316\317\211\317\320%\210.\207" [gnus-agent-directory nnheader-file-coding-system nnmail-pathname-coding-system file-name-coding-system coding-system-for-write #1=#:temp-buffer gnus-make-directory nnheader-concat "lib" "lib/servers" generate-new-buffer " *temp file*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] prin1 write-region nil 0 #2=#:temp-file gnus-agent-covered-methods] 7 (#$ . 38996)])
#@212 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.
(defalias 'gnus-agent-mark-article #[(n &optional unmark) "\303W\304!\303V\203A\305\306`\307\"\211\203\310!\210\210\306`\311\"\206%\312 \n\"\210\313	\2031\314\2022\315\316\317#\303U\203AS\211\202	\303U\204L\320\321\322\"\210\323 \210\324 \210*\207" [n backward unmark 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] 5 (#$ . 39582) "p"])
#@181 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.
(defalias 'gnus-agent-unmark-article #[(n) "\301\302\"\207" [n gnus-agent-mark-article t] 3 (#$ . 40362) "p"])
#@180 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.
(defalias 'gnus-agent-toggle-mark #[(n) "\301\302\"\207" [n gnus-agent-mark-article toggle] 3 (#$ . 40661) "p"])
#@165 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.
(defalias 'gnus-summary-set-agent-mark #[(article &optional unmark) "\306\267\202\307\202\310\202	\n>\311	\307\310#\205\211\312\203\201\313	\n\"	>\203.\f\202\207	\n>\2038
\202\207	>\203D\202\207	>\203P\202\207	>\203\\\202\207	>\203h\202\207	>\203t\202\207	\236A\206\207\202\207\314\n	\"
\315\")\207" [unmark article gnus-newsgroup-downloadable gnus-newsgroup-unsendable gnus-unsendable-mark gnus-downloadable-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-unreads gnus-unread-mark 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] 4 (#$ . 40961)])
#@59 Construct list of articles that have not been downloaded.
(defalias 'gnus-agent-get-undownloaded-list #[nil "\306!\307\302!\210\310	!\211\205\341\311!\312\313\314\f\"\315\"\205#\316C\211\316C\211\203\263
\203\263@@
@\211W\203QA\202\257V\203q\316B\241\316B\241
A\202\257@A\203\200A
A\202\257A
A\203\235@W\203\235A\211\204\213@\232\204\257\316B\241*\2023
\203\324
\211A\242\316B\241\316B\241)\202\263AA\211.)\207" [gnus-newsgroup-name gnus-command-method gnus-newsgroup-agentized alist gnus-newsgroup-headers headers gnus-find-method-for-group make-local-variable gnus-agent-method-p gnus-agent-load-alist sort mapcar #[(h) "\301H\207" [h 0] 2] < nil gnus-use-cache gnus-newsgroup-cached cached undownloaded tail-undownloaded unfetched tail-unfetched h a num gnus-newsgroup-undownloaded gnus-newsgroup-unfetched] 5 (#$ . 42055)])
#@121 Mark as read all unhandled articles.
An article is unhandled if it is neither cached, nor downloaded, nor
downloadable.
(defalias 'gnus-agent-catchup #[nil "\212\n\204\203\305\211\306	!\n\"\"	\203%\307	\211A\242\f\"\210\202)\310 )\207" [gnus-newsgroup-undownloaded articles gnus-newsgroup-downloadable gnus-newsgroup-cached gnus-catchup-mark gnus-sorted-ndifference copy-tree gnus-summary-mark-article gnus-summary-position-point] 4 (#$ . 43006) nil])
#@51 Fetch the process-marked articles into the Agent.
(defalias 'gnus-agent-summary-fetch-series #[nil "\205$	\305\306!\307\"\211\310 \210\311\312\313\f\"\"\210\313\n\313\f\"\"+\211\207" [gnus-newsgroup-processable gnus-newsgroup-downloadable dl processable gnus-newsgroup-undownloaded sort copy-tree < gnus-agent-summary-fetch-group mapc gnus-summary-remove-process-mark gnus-sorted-ndifference] 6 (#$ . 43477) nil])
#@106 Fetch the downloadable articles in the group.
Optional arg ALL, if non-nil, means to fetch all articles.
(defalias 'gnus-agent-summary-fetch-group #[(&optional all) "\203	\202	\n\306!\307\310\216\311\312!\210\204$\313\314!\210\315\216\312\316 \210\317\320\"\211\"*\212\307\211\203\230@\211\n>\203u\321\n\"\235\204\200 \235\204\200\322!\"\210\202\200\203\200\323\312\"\210\324\307\312#\203\216\325!\210)A\211\204F-\f+\207" [all gnus-newsgroup-articles gnus-newsgroup-downloadable gnus-newsgroup-name fetched-articles gnus-command-method gnus-find-method-for-group nil #[nil "\301!\207" [original-gnus-plugged gnus-agent-toggle-plugged] 2] gnus-agent-toggle-plugged t error "No articles to download" #[nil "\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 articles gnus-plugged original-gnus-plugged gnus-agent-fetching gnus-newsgroup-undownloaded article --dolist-tail-- was-marked-downloadable gnus-agent-mark-unread-after-downloaded gnus-newsgroup-dormant gnus-newsgroup-marked gnus-unread-mark] 6 (#$ . 43907) "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 #[nil "\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 (#$ . 45187)])
#@61 Update a plugged group by performing the indicated actions.
(defalias 'gnus-agent-synchronize-group-flags #[(group actions server) "\211\203\211<\203\211\206@\306	\"A\206@\211\307\232\203 \n\206,\306\"A\206,\306\f\"A\206,
\211\203N\310\311@@@@@A@#\232\204N\211A\266\202\2021\211@@\262\206,(\211\203s\310\311@@@A@#\232\204s\211A\266\202\202X\211@\262\206,)A\312\211\203*\211A\262\242\3138\262\262;\204\312\314C\3152\211\242\206\246\n\240\210\204\275\316\317\320\321\322\323!\324\"\313\325%	\"\210\fD\211\203\336\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\300\210\211\242A@\330\235\203\361\310\331\242@\"\202\373\310\311\242@\242A@#\211\242B\211	\235\204\204\306@	\"\204\211	B\266\2020\262\266\203\232\203\262\312\262\202\266\202\211\203=\306	\"\204=B	B\211\262\262*+\332,\"A@\262\206d\333+*\"\211+\332,\"A@\262-\334+.\"\210-\203L.\312/\2110\203+0@\211/@/A@\335/81231\3124\2110\203!0@\2114\336=\203\324-AA\21152\337=\203\272\340\202\273\341\335-83\"\240\210)\342-\332-@6\"\"\210\2024\343=\203\3064\344-8\"\2117\2044C\21178\344-\233\211989@B\240\210*72\337=\203\340\202\3417A3\"\241\210)0A\2110\204\235-0A\2110\204}*:\211;\205B\345\346;!\211;!\205B;)\203L\347+\314\"\210*\312\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" 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-secondary-select-methods gnus-newsrc-alist gnus-command-method group gnus-newsrc-hashtb info actions action --dolist-tail-- marks what range mark #1=#:c gnus-active-hashtb info-marks #2=#:v #3=#:c gnus-group-buffer buffer] 19 (#$ . 45662)])
#@248 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.
(defalias 'gnus-agent-save-active #[(method &optional groups-p) "\306!\205>\307ed\"\310\311\n\206\312\313\314$)\315\316!
\203)\317\320\"\210\202.\321\320\"\210\322\f\"\210\323 \210\324\f!,\207" [method gnus-command-method size new file groups-p 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 gnus-agent-file-coding-system nnheader-file-coding-system] 5 (#$ . 47920)])
(defalias 'gnus-agent-write-active #[(file new) "\304\305!!\210	\306\307#)\207" [file gnus-agent-file-coding-system nnmail-active-file-coding-system new gnus-make-directory file-name-directory gnus-write-active-file nil] 4])
#@87 Possibly expand a group's active range to include articles
downloaded into the agent.
(defalias 'gnus-agent-possibly-alter-active #[(group active &optional info) "\206\306	!\307!\205y\310	!@\206\311A\206\311\n@\206&\f\nA\206.
\fW\203<\240\210
V\203H\241\210\205x\f\312ZW\205x\3138AA\211\314T\fSBC\"\240\210*\315	\fS#-)\207" [gnus-command-method group local active active-min active-max gnus-find-method-for-group gnus-agent-method-p gnus-agent-get-local 0 100 2 gnus-range-add gnus-agent-set-local agent-min agent-max info read #1=#:c] 6 (#$ . 48965)])
#@87 Update a single group's active range in the agent's copy of the server's active file.
(defalias 'gnus-agent-save-group-info #[(method group active) "\306!\205\252\206	\n\f\307\310! \311\211!\"\312\313 !!\210 \314\315!#$\316\216r#q\210\317 !\203c\320 !\210eb\210\321\322\323%!\324Q\311\325#\203c\212\326p!\"\326p!!)\327 \330y\210`|\210&\205\231\331\332%\"\206t&A&A]!\206\200&@&@^$c\210db\210\333\334\311\325#\205\231\335\330!\210\202\212)r#q\210\336\311\211$\311\337%\210.\n\207" [method 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*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] file-exists-p nnheader-insert-file-contents re-search-forward "^" regexp-quote " " t read point-at-bol 1 format "%s %d %d y\n" search-backward "\\." delete-char write-region 0 file oactive-min oactive-max #1# #2=#:temp-file group active] 8 (#$ . 49577)])
#@84 Get a single group's active range in the agent's copy of the server's active file.
(defalias 'gnus-agent-get-group-info #[(method group) "\306!\205]\206	\n\f\307\310!\311\211\312\313!!\210\314\315!rq\210\316\216\317!\205[\320!\210eb\210\321\322\323!\324Q\311\325#\205[\212\326p!\326p!\211)B.	\207" [method 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*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] file-exists-p nnheader-insert-file-contents re-search-forward "^" regexp-quote " " t read file oactive-min oactive-max #1# group] 5 (#$ . 50694)])
#@35 Translate GROUP into a file name.
(defalias 'gnus-agent-group-path #[(group) "\306\307\310\311	\"\203\312	\313\225\"\202	)\314\315\316\n\f#+\317\315#!
\204P\320\321\322\306\323@!\324A@\325\232\203C\326\202GA@Q!\324#\"!\203R\207\317\314\316\n\f#+\207" [group gname to from string nnmail-use-long-file-names nnheader-translate-file-chars nnheader-replace-duplicate-chars-in-string string-match "^[^:]+:" substring 0 47 95 subst-char-in-string 46 file-directory-p expand-file-name nnheader-concat symbol-name "/" "" "unnamed" gnus-agent-directory gnus-command-method] 10 (#$ . 51513)])
#@35 Translate GROUP into a file name.
(defalias 'gnus-agent-group-pathname #[(group) "\304\305\306	\"\203\307	\310\225\"\202	)\n\2036\311\312\313\n@!\314\nA@\315\232\203,\316\202/\nA@Q!\314#\202V\317!\311\312\313\n@!\314\nA@\315\232\203N\316\202Q\nA@Q!\314#)\"\207" [group gname gnus-command-method gnus-agent-directory nnmail-group-pathname string-match "^[^:]+:" substring 0 nnheader-concat nnheader-translate-file-chars symbol-name "/" "" "unnamed" gnus-find-method-for-group] 9 (#$ . 52132)])
(defalias 'gnus-agent-get-function #[(method) "\301!\203	@\207\302\303!\210\303\207" [method gnus-online require nnagent] 2])
#@61 Return the subset of methods that are covered by the agent.
(defalias 'gnus-agent-covered-methods #[nil "\301\302\303\304\"\"\207" [gnus-agent-covered-methods delq nil mapcar gnus-server-to-method] 5 (#$ . 52776)])
(defalias 'gnus-agent-history-buffer #[nil "\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 #[nil "\212\304@!\305A@\306\232\203\307\202A@Q\310\311\312\304@!\305A@\306\232\203*\307\202-A@Q\"!qB	B\313 \210\314c\210\315\316!\317\n!\203I\320\n!\210\321\303!\210\n\211*\207" [gnus-command-method gnus-agent-history-buffers file 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 #[nil "\211\205\304\305	!\211!\205	)\2056\306!\210\307\310\311\n@!\312\nA@\313\232\203,\314\202/\nA@Q\"\"\211\207" [gnus-agent-current-history buffer gnus-command-method gnus-agent-history-buffers buffer-live-p get-buffer kill-buffer delq assoc symbol-name "/" "" "unnamed"] 7])
#@56 Fetch ARTICLES from GROUP and put them into the Agent.
(defalias 'gnus-agent-fetch-articles #[(group articles) "\205K\306\307	!!\205K\310	!\210\nG\311W?\205\f\312C9\313:\312\211;<\211A\242\211;\203\311;@@\206?;TV\203IA\2024;@@=\203X@A\204);
@\211=\203i=\313H\202l;T)\211<V\203z
A\202X9;9@B\240\210>:<;U\203\255
@\314H\211?\313X\203\247\315
@\316H_\317]\202\251?)\202\256\313\\\211:W\203)9\211@\237\240\210\3129B9\313:\202)9A\204\3259@\205I\312C\211@A\320	!B\321\312!C\322D\312\211EFGH9\211@\237\240\2109\2379\323B!\210\324\316\325	#\210\326\2169\211A9\242\211\203C\327	\3301G\211;\203*\331!@\202+\211\332!\2045\333!\210\334\335\336\337#!!\2620\266\202\202K\210\312\266\202\203W\340	\"E\202\254\341\342!IrIq\210\343\216\312;\211A\242\211;\203\237\324\344\345;	$\210\346	;J#\204\213\347;	\"\203fdb\210;`BEBE\350J!\210\202f\351Jed#\210E\237E,rJq\210E\203?E@AEA@A\206\303d}\210eb\210m\2044\352\353\312\322#\203\354\355\312\322#\203\313\225b\210\356\312w\210\357\312w\210\312F\360\361!\203\362\363!\364\362\311!!BFBF\313\225b\210\202\353\365FE@@C#\210eb\210KL\366edB\367E@@!P\312\370%\210)AE@@\312B\241A~\210EA\211E\204\266)\202\f)@A..\207" [articles group gnus-agent-article-alist alist gnus-newsgroup-headers headers 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..." #[nil "\303	A\n#\210\304	A\"\210\305\306\307\"\207" [group fetched-articles date 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*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer 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 selected-sets current-set-size article header-number header gnus-agent-max-fetch-size char-size fetched-articles tail-fetched-articles dir date case-fold-search pos crosses nnmail-pathname-coding-system file-name-coding-system #1# nntp-server-buffer gnus-agent-file-coding-system coding-system-for-write] 10 (#$ . 54021)])
#@62 Delete ARTICLES that were fetched from GROUP into the agent.
(defalias 'gnus-agent-unfetch-articles #[(group articles) "\205\260\306\307\n!\210\310B\311\312\"\f\211A\242
A\203\222\203\222
A@@W\203>\211A\242\202\216U\203\213
A@A\211\203\201\313\n!\314!P\315\203l\316!\3178\262\206m\320!\321!\210\322\n[\"\210+)
\211AA\241\210\202\216
A)\202\fA\323\n!-\203\260	\204\260rq\210\310\324\n\306\"\210)\207" [articles gnus-agent-inhibit-update-total-fetched-for group gnus-agent-article-alist alist next-possibility 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 delete-this have-this timestamp file-name gnus-agent-total-fetched-hashtb size-file nnmail-pathname-coding-system file-name-coding-system gnus-agent-need-update-total-fetched-for gnus-group-buffer] 5 (#$ . 56606)])
(defalias 'gnus-agent-crosspost #[(crosses article &optional date) "\206\306\307\211\211\211\211rq\210\310!\203&\311v\210`\311y\210`)\205\253@@\312\f\"\211\204J\f\313@@!D\211B@ABAB\241\210r\314\315\316\f\"!q\210deU\203\205\fpBB\3171\200\320\321\322\f\"!)0\202\204\210\202\205\210\310\323@A!!\210\323@A!c\210\324\n	#\210\325 \210)A\211\204,\307-\207" [date end beg alist group gnus-agent-article-alist 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 gnus-agent-overview-buffer article crosses gnus-agent-group-alist gnus-agent-buffer-alist nnmail-pathname-coding-system file-name-coding-system] 6])
(defalias 'gnus-agent-backup-overview-buffer #[nil "\203/\306\307\"\310\311	\312
\313\314\fT\211!\313R\211!\204\315ed\311\316%\210\317\320\321#\210,\322\207" [gnus-newsgroup-name nnmail-pathname-coding-system file-name-coding-system name cnt root 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] 6])
#@141 Check the overview file given for sanity.
In particular, checks that the file is sorted by article number
and that there are no duplicates.
(defalias 'gnus-agent-check-overview-buffer #[(&optional buffer) "\305\306\212\n\203\f\nq\210\214~\210eb\210`dW\205\215`\3071$\310p!0\202&\210\306\250\2034\306f\311=\204G\204;\312 \313\314\315\f\316 {#\210\202\206	U\203d\204T\312 \313\314\317#\210\f\314y\210`|\210\202\206	W\203\204\204q\312 \313\314\320\"\210\321\314ed#\210eb\210\305\202\206\314y\210*\202,\207" [backed-up prev-num buffer cur p -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] 5 (#$ . 58904)])
#@182 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.
(defalias 'gnus-agent-flush-server #[(&optional server-or-method) "\203I\211\203\211<\203\211\206D\306	\"A\206D\211\307\232\203$\n\2060\306\"A\2060\306\f\"A\2060
\211\203R\310\311@@@@@A@#\232\204R\211A\266\202\2025\211@@\262\2060\211\203w\310\311@@@A@#\232\204w\211A\266\202\202\\\211@\262\2060A\312\211\203.\211A\262\242\3138\262\262;\204\203\312\314C\3152\211\242\206\252\n\240\210\204\301\316\317\320\321\322\323!\324\"\313\325%	\"\210\fD\211\203\342\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\304\210\211\242A@\330\235\203\365\310\331\242@\"\202\377\310\311\242@\242A@#\211\242B\211	\235\204\204\306@	\"\204\211	B\266\2020\262\266\203\232\203\203\262\312\262\202\203\266\202\211\203A\306	\"\204AB	B\211\262\262\202K\205t\211A\242 \332\313 8\"\203p\333 @!\210)\202Q*\207" [server-or-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-methods-equal-p gnus-agent-flush-group gnus-secondary-select-methods gnus-newsrc-alist gnus-command-method alist entry] 18 (#$ . 59707)])
#@338 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.
(defalias 'gnus-agent-flush-group #[(group) "\206\306	!\307\310	\"\307\311	\"\f\312\n!\203\313\n!\210\312!\203(\313!\210\314	\315#\210\314	\316#\210\317\315	\315#,\207" [gnus-command-method group overview agentview 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] 4 (#$ . 61399) (list (gnus-agent-read-group))])
#@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 #[nil "\212\n\203#\n@Aq\210\306ed\307\310\n@@\"\311\312%\210)\nA\211\204
\205d\307\313
@@\"\314\315!\316\216rq\210\317
@A!\210\320c\210\317\321p\"\210\320c\210)rq\210\306\311\211\311\322%\210,
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*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] princ "\n" 1 0 #1# #2=#:temp-file] 7 (#$ . 62251) nil])
#@176 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.
(defalias 'gnus-agent-find-parameter #[(group symbol) "\302	\303#\206\304\305!A	\303#\206	\306\236AJ\207" [group symbol 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))] 4 (#$ . 63230)])
#@169 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.
(defalias 'gnus-agent-fetch-headers #[(group) "\205\306\307	\310\"!?\211\2034\203+\311	\f\"\312
@\313
A\314#]
AB!)\2027\312\311	\f\"!\2027\315	!3\316\21145\317\320	\"678\n\204\217	\3119\"A@\262:\321:8)\322;\211<\203\205<@\211;@\323>\204|\3243;A\"3<A\211<\204g*\325\3263!\327\"333=\204\235>\204\316\330	!\203\316\n\203\261\3313	\"3\202\316\332?!@@T\311	\f\"A@A\3333A@BC\"3*3\203\335\334\335\336\3373\340\"#\210rBq\2103\2038\334\341\342	#\210\343\344\3456!\340\"!\210\3463	\"\347=\204\350 \210\351 \210\352Ced#\210\35336\"\210DE\351 \210\354ed6\322\355%\210)\356	\340\"\210\357	3\322#\2103\210\202L\3601G\361 \210\3626!0\202K\210\202L\210*3.\207" [gnus-agent-consider-all-articles group fetch-all gnus-newsgroup-maximum-articles gnus-active-hashtb active gnus-predicate-implies-unread gnus-agent-find-parameter agent-predicate gethash gnus-uncompress-range - -1 gnus-list-of-unread-articles identity gnus-agent-article-name ".overview" 3 nil (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 silent gnus-agent-update-view-total-fetched-for gnus-agent-save-alist (error) erase-buffer nnheader-insert-file-contents articles gnus-decode-encoded-word-function gnus-decode-encoded-address-function file nnmail-pathname-coding-system file-name-coding-system gnus-newsrc-hashtb cl-x arts --dolist-tail-- gnus-agent-cache gnus-plugged gnus-agent-article-alist high low nntp-server-buffer gnus-agent-overview-buffer gnus-agent-file-coding-system coding-system-for-write] 7 (#$ . 63959)])
#@94 Reads the article number at point.  Returns nil when a valid article number can not be read.
(defalias 'gnus-agent-read-article-number #[nil "\300\301!\205	\302p!\207" [looking-at "[0-9]+	" read] 2 (#$ . 66134)])
(put 'gnus-agent-read-article-number 'byte-optimizer 'byte-compile-inline-expand)
#@80 Copy the indicated ARTICLE from the overview buffer to the nntp server buffer.
(defalias 'gnus-agent-copy-nov-line #[(article) "\306\211\211q\210m\204'\307\310!\205\311p!\211\203!\n\fW\203'\312y\210\202	\313 \210m\2044\f\n=\2049
q\202H`\312y\210`
q\210\314	#+\207" [e b art gnus-agent-overview-buffer article nntp-server-buffer nil looking-at "[0-9]+	" read 1 beginning-of-line insert-buffer-substring] 4 (#$ . 66436)])
(put 'gnus-agent-copy-nov-line 'byte-optimizer 'byte-compile-inline-expand)
#@307 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.
(defalias 'gnus-agent-braid-nov #[(articles file) "\306\211\nq\210eb\210q\210\307 \210\310\f!\203\311\f!\210db\210\312y\210edU\204>\313p!\211
@W\204>\314
@!\203?`\315y\210`|\210
\211A\242\306\211\211\nq\210m\204s\316\317!\205_\313p!\211\203mW\203s\315y\210\202R\320 \210m\204\202=\204\207q\202\232`\315y\210`q\210\321\n#,\210\32219
\2055\313p!\211
@W\203\267\315y\210\323\202\321
@U\203\315\320 \210`\315y\210`|\210\306\202\321\320 \210\306)\204\244
\211A\242\306\211\211\nq\210m\204	\316\317!\205\365\313p!\211\203W\203	\315y\210\202\350\320 \210m\204=\204q\2020`\315y\210`q\210\321\n#,\210\202\2400\202=\210\202>\210db\210
\205\331\203Q\nq\210`q\210`\321\n	\"\210b\210)\206c\324\3252\323\306\211m\204\273\316\317!\205{\313p!\211\204\216\320 \210`\315y\210`|\210\202nW\203\236\323\315y\210\202nU\203\262\320 \210`\315y\210`|\210\202n\315y\210\202n\203\320\326\315ed#\210eb\210\324\327\325\323\"\210*\3060\205\331\202d*\207" [last start gnus-agent-overview-buffer nntp-server-buffer file articles 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 article e b art p sort] 5 (#$ . 66957)])
#@41 Load the article-state alist for GROUP.
(defalias 'gnus-agent-load-alist #[(group) "\n\306\307\"\310\f!\205\311\f\312\301#\211+\207" [group gnus-agent-read-agentview nnmail-pathname-coding-system file-name-coding-system agentview gnus-agent-article-alist gnus-agent-article-name ".agentview" file-exists-p gnus-cache-file-contents gnus-agent-file-loading-cache] 4 (#$ . 68665)])
#@34 Load FILE and do a `read' there.
(defalias 'gnus-agent-read-agentview #[(file) "\306\307!rq\210\310\216\3111m\312	!\210eb\210\313p!\3141#\313p!0\202%\210\315\316\315U\203u\317\316%\320 \210\321 q\210eb\210m\204l\322\323!\203f\324\325!&\230\203f\326\327\324\330!!\f\"\211\203f
\327\324\331!!\241\210\331y\210\202>\332 \210\317*\202Z\331U\203\204'\331U?\202Z\325U\203Z\316\211\211()*\f\203M\f@@*\f@A+\316\211\211,-.+\204\263\316\2020+A<\204\342+@.+A-.-X\203\334.,B,.T\211.\202\306,\237\2020+\203-+@:\204+@\247\203$+@,B,\202$+@@.+@A-.-X\203$.,B,.T\211.\202+A\211+\204\347,\237,)\fA)\203\223)\211A)\242*B(B(\2026\333(\334\"+'\325U?\n\203g\f/\335&!\210)\f+0\202\272\210\3361\270\31601\337\340\341&\"\316\342\317$22\203\2622\211A2\242\2113A\211@\262\204\256\3273@!\3433A\3448\262!B\fB)\202\204\f+0\202\272\210\316+\207" [#1=#:temp-buffer file changed-version version alist entry generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] (end-of-file file-error) nnheader-insert-file-contents read (end-of-file) 0 nil t 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 inhibit-quit gnus-agent-read-agentview gnus-agent-article-alist-save-format uncomp sequence state ranges result last first gnus-agent-article-alist nnmail-pathname-coding-system file-name-coding-system file-attributes fa] 6 (#$ . 69058)])
#@41 Save the article-state alist for GROUP.
(defalias 'gnus-agent-save-alist #[(group &optional articles state) "\306\nB\211\306\211\306\211A\242\211\203sA\2033A@@W\2033A\211\202A\204DBC\241\210\202mA@@V\203\\BAB\241\210\202mA@@U\203mA@\241\210A\202\fA\307\n@@\310\n!@@#\210\311\312\313\"!\210\312\314\"\315\316!\317\216rq\210\320\267\202\321\np\"\210\202\n\306\211\211\211 !\"##\203\367#@@\"#@A\211!\236 #A# \203\352 \" AB\241\210\202\274!\"DB\202\274##\203#\211A#\242\211 \322 A\237!\241\210\202\373\321p\"\210-\323c\210\321p\"\210\323c\210)rq\210\324\306\211\306\325%\210,\326\306\".\207" [nnmail-pathname-coding-system file-name-coding-system gnus-agent-article-alist prev all print-level nil gnus-agent-set-local last gnus-make-directory gnus-agent-article-name "" ".agentview" generate-new-buffer " *temp file*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 165 2 173)) princ gnus-compress-sequence "\n" write-region 0 gnus-agent-update-view-total-fetched-for print-length article articles state group #1# #2=#:temp-file gnus-agent-article-alist-save-format compressed comp-list day-of-download article-id alist] 7 (#$ . 70800)])
#@46 Hashtable holding information about a group.
(defvar gnus-agent-article-local nil (#$ . 72184))
(defvar gnus-agent-article-local-times nil)
(defvar gnus-agent-file-loading-local nil)
#@123 Load the METHOD'S local file.  The local file contains min/max
article counts for each of the method's subscribed groups.
(defalias 'gnus-agent-load-local #[(&optional method) "\206	\n\203\n\304U\204\305	\306\307\"\"\204)\310\311\312!\313\314#\n\203)\nT)\207" [method 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] 5 (#$ . 72374)])
#@186 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.
(defalias 'gnus-agent-read-and-cache-local #[(file) "\203\302\303\"\203\304 \210\305	!\207" [gnus-agent-article-local file gethash "+dirty" gnus-agent-save-local gnus-agent-read-local] 3 (#$ . 72913)])
#@34 Load FILE and do a `read' there.
(defalias 'gnus-agent-read-local #[(file) "\306ed\"\307\310\206\f\311\312\313$)\314\315\316!rq\210\317\216\3201,\f\321!)0\2020\210\2021\210eb\210g\322U\203C\314y\210	T\2024m\204\240\3231\210\324\211\211p !\"#\325 !#\325 !\"\325 !!#;\204u\326#!#\327#\"\330\\!\330\\B\n#,0\202\226$\331\332\333	\334$!%)\210\314y\210	T\202C+\327\335\324\n#\210\327\336%\n#\210\n*\207" [size line hashtb #1=#:temp-buffer gnus-agent-file-coding-system nnheader-file-coding-system count-lines make-hash-table :size 300 :test equal 1 generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] (file-error) nnheader-insert-file-contents 59 (error) nil read symbol-name puthash 0 gnus-message 3 "Warning - invalid agent local: %s on line %d: %s" error-message-string "+dirty" "+method" file cur max min group err gnus-command-method] 7 (#$ . 73312)])
#@70 Save gnus-agent-article-local under it method's agent.lib directory.
(defalias 'gnus-agent-save-local #[(&optional force) "\211\205Y\n\204\306\307	\"\205Y\306\310	\"\311\312!\313\311\314!!\210
\f\315\316!\317\216rq\210\306\310	\"\320\211p\321\322	\"-rq\210\323\320\211\320\324%\210.)\207" [gnus-agent-article-local hashtb force gnus-command-method dest gnus-agent-file-coding-system gethash "+dirty" "+method" gnus-agent-lib-file "local" gnus-make-directory "" generate-new-buffer " *temp file*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] nil maphash #[(group active) "\204\302\207	\303\235\203\302\207\205+\304	!\210\305\306!\210\305@!\210\305\306!\210\305A!\210\305\307!\207" [active group nil ("+dirty" "+method") prin1 princ " " "\n"] 2] write-region 0 nnmail-pathname-coding-system file-name-coding-system coding-system-for-write #1# #2=#:temp-file standard-output print-length print-level] 8 (#$ . 74254)])
(defalias 'gnus-agent-get-local #[(group &optional gmane method) "\206	\306\307\n\"\203\310\n\311\225\"\202\n)\206\312	!\313 \314
\"\211\204Z\315	!\211\203Y@@\316!@@B\317	@A\f
&\210+,\207" [gmane group gname method gnus-command-method local string-match "^[^:]+:" substring 0 gnus-find-method-for-group gnus-agent-load-local gethash gnus-agent-load-alist last gnus-agent-set-local minmax gnus-agent-article-alist gnus-agent-file-loading-cache alist] 8])
(defalias 'gnus-agent-set-local #[(group min max &optional gmane method local) "\206	\306\307\n\"\203\310\n\311\225\"\202\n)\206\312	!
\206&\313 \314
\"\211\203`@=\203CA=\204`\203`\203`\314
\"\240\210\314
\"\241\210\202\207\203i\315\202\214\203\200\203\200\316B
#\210\202\207\317
\"\205\214\316\320\321
#,\207" [gmane group gname method gnus-command-method local string-match "^[^:]+:" substring 0 gnus-find-method-for-group gnus-agent-load-local gethash nil puthash remhash "+dirty" t minmax min max] 5])
(defalias 'gnus-agent-article-name #[(article group) "\302\303\304	!!\"\207" [article group expand-file-name file-name-as-directory gnus-agent-group-pathname] 5])
#@34 Show error message and return t.
(defalias 'gnus-agent-batch-confirmation #[(msg) "\301\302\303#\210\304\207" [msg gnus-message 1 "%s" t] 4 (#$ . 76475)])
#@31 Start Gnus and fetch session.
(defalias 'gnus-agent-batch-fetch #[nil "\301 \210\302\303 \210)\304 \207" [gnus-agent-confirmation-function gnus gnus-agent-batch-confirmation gnus-agent-fetch-session gnus-group-exit] 1 (#$ . 76637) nil])
#@64 Fetch all articles and headers that are eligible for fetching.
(defalias 'gnus-agent-fetch-session #[nil "\204\306\307!\210	\204\306\310!\210\300 \311\211\211\212
\203\263
@\312\n!\204-\313\n!\203\254\314\n!\203\254\315
@!\316\216\317\"\320 \210\f\211A\242\211\203\253\321!#X\203@$\204]%\203e\322\n\"\210\202@\3231\216\3241v\322\n\"00\202\2470&'\325\326\327&!\"!?\205\212\306\330!)\202\247&\331!\210'\325\332\327&!\"!?\205\246\333\334\330\")\210\202@*
A\211\204\335\336!\210\337\340\341\"-\207" [gnus-agent-covered-methods gnus-plugged gnus-command-method group groups methods 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 #[nil "\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" gnus-agent-fetching gnus-agent-handle-level debug-on-error debug-on-quit err gnus-agent-confirmation-function] 6 (#$ . 76881) nil])
#@53 Articles that have fewer lines than this are short.
(defvar gnus-agent-short-article 500 (#$ . 78268))
#@51 Articles that have more lines than this are long.
(defvar gnus-agent-long-article 1000 (#$ . 78377))
#@62 Articles that have a score lower than this have a low score.
(defvar gnus-agent-low-score 0 (#$ . 78484))
#@64 Articles that have a score higher than this have a high score.
(defvar gnus-agent-high-score 0 (#$ . 78596))
#@14 Fetch GROUP.
(defalias 'gnus-agent-fetch-group-1 #[(group method) "	\n\f
=>?\306\211\211\211\211\211@ABCDE?>=FG\307	!\2047\310\311	\"\210H\204J\312	I\"\204J\313	!\205JKH\204\224L\306M\211N\203\223N@\211M	\312O\"A@\262\211AP\314P8)\236A\211Q\203\211\315Q!K\244K)NA\211N\204^*\316K\317\"K\320	!C\316\321KC\"\317\"\211C\205
\n\206\304CGR\322\323R\206\300\324\325\326$)\206\320\327C\306\211	$\330 \210\331\332	\333\"!\211B\334>\204\332	\335\"\211S\203S\336=\203\373\337	!S\202S@;\204SCCSS\203\340S!\210)B\341=\205K??\205
\306C\211Q\342	!KKTU\211A\242\211E\203\314E\343HVT\203\\VT@@V\203\\TA\211T\204IVT@@=\203mT@A\204\310K\203\204VK@V\203\204KA\211K\204rVK@=\204\277V\f\236A\206\227W\332	\344\"\332	\345\"\332	\346\"\332	\347\"\332	\350\"XYZ[\\DB .\203\310UV\306B\241U)\2023,\306]\351^QA\205\337\352	QA\"\211]\"^\351QA]\"_H\203tK\306`\211N\203N@`\353`\354\"\210NA\211N\204\376*]\306`\211N\203NN@`a\2037\355`J\"J\356`b\"\210\357`\306\354#\203E\360`!\210NA\211N\204*_\306`\211N\205pN@`\356`c\"\210NA\211N\204Z\306*\202\fL\306M\211N\203\310N@\211M\361=\203\277M	\312O\"A@\262\211AP\314P8)\236\211dA\203\276\355d\314A8\"@\314A\233\211e@\240\210))NA\211N\204*A\206\333	\312O\"A@\262\211AP\362P8)fAAA\211g\363f_\"\240\210*\364	\354\"\210\365\343!\210\366\367\370A!\371Q\372\373	!\374Q\"+).\207" [method group gnus-newsgroup-dependencies gnus-newsgroup-headers gnus-newsgroup-scored gnus-use-cache 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-summary-expunge-below gnus-summary-mark-below gnus-orphan-score marks info predicate articles gnus-score gnus-headers gnus-newsgroup-name gnus-command-method gnus-newsgroup-active gnus-active-hashtb gnus-newsgroup-downloadable marked-articles gnus-agent-download-marks mark --dolist-tail-- gnus-newsrc-hashtb cl-x arts size score-param alist arts-tail num gnus-summary-default-score gnus-agent-expire-days gnus-agent-high-score gnus-agent-low-score gnus-agent-short-article gnus-agent-long-article fetched-articles gnus-newsgroup-undownloaded unfetched-articles article gnus-agent-mark-unread-after-downloaded gnus-unread-mark gnus-canceled-mark marked-arts #1=#:c read #2=#:c] 16 (#$ . 78711)])
#@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" (#$ . 81929))
#@54 The format specification for the category mode line.
(defvar gnus-category-mode-line-format "Gnus: %%b" (#$ . 82220))
#@65 The selection predicate used when no other source is available.
(defvar gnus-agent-predicate 'false (#$ . 82344))
(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\300\304\"\210\305\306\307\310\311\312\313\314&\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 nil "Hook run after the creation of the menu." :group gnus-agent :type hook] 8)
(defalias 'gnus-category-make-menu-bar #[nil "\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 #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324#\325\"\204V#$=\204V\326#\325$C#\210\327!\210\330\f!\210#$\331\332\333\"\203l\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 parent 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 gnus-category-mode-abbrev-table local-abbrev-table mode-line-process truncate-lines] 6 (#$ . 85291) nil])
(defalias 'gnus-category-position-point 'gnus-goto-colon)
(defalias 'gnus-category-insert-line #[(category) "\304\305@\"\306\236AG\307 \210\310``T\311!\210\312	D#*\207" [category gnus-tmp-name gnus-tmp-groups gnus-category-line-format-spec format "%s" agent-groups beginning-of-line add-text-properties eval gnus-category] 5])
#@28 Go to the Category buffer.
(defalias 'gnus-enter-category-buffer #[nil "\300 \210\301\302!\210\303 \207" [gnus-category-setup-buffer gnus-configure-windows category gnus-category-prepare] 2 (#$ . 87091) nil])
(defalias 'gnus-category-setup-buffer #[nil "\301!?\205r\302!q\210\303 )\207" [gnus-category-buffer get-buffer gnus-get-buffer-create gnus-category-mode] 2])
(defalias 'gnus-category-prepare #[nil "\303\304!\210\303\305\306\"\210\307\310 \210\n\203\311\n\211A\242!\210\202eb\210\312 *\207" [gnus-category-alist buffer-read-only alist gnus-set-format category-mode category t nil erase-buffer gnus-category-insert-line gnus-category-position-point] 3])
(defalias 'gnus-category-name #[nil "\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 #[nil "\306\307!rq\210\310\216\3111;\312\313	\314\"!\210eb\210\315p!\3161'\315p!0\202)\210\317\211\2032\2026\320\321\n\"*0\202=\210\317+\211\317\211\203@\322
\236\320\323\324\322
\"\"\203h\241\210\202r\322B\211
B\210*A\211\204H*\f)\206\227\325\326\211\327\206\223\330*BDC\211\207" [#1=#:temp-buffer gnus-agent-directory old-list new-list list cat generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] (error) nnheader-insert-file-contents nnheader-concat "lib/categories" read (error) nil mapcar #[(c) "\306\307\211\211B\211A\310\2037\f\2037\n@\f@\211	\205&
	B*\307B\241\210\nAA\fA\202	A,\"\241\210\207" [c #2=#:result #3=#:result-tail #4=#:head1 #5=#:head2 symb delq nil (agent-predicate agent-score-file agent-groups) valu] 7] agent-groups #[(g) "\302\303\304\305#)\266\203\203\306\307\"\207\207" [g inhibit-changing-match-data "[^[:ascii:]]" nil t string-match decode-coding-string utf-8-emacs] 7] alist-get default short agent-predicate false --dolist-tail-- #6=#:p #7=#:v default-agent-predicate name gnus-category-alist] 6 (#$ . 87946)])
#@27 Write the category alist.
(defalias 'gnus-category-write #[nil "\306\211\307\310\311\n!\"\312\313\314\"!\210\313\315\"\316\317!\320\216r\fq\210\321\307\322\n\"p\"\210\323 \210\321\np\")r\fq\210\324\306\211
\306\325%\210-\207" [gnus-category-predicate-cache gnus-category-group-cache gnus-category-alist gnus-agent-directory #1=#:temp-buffer #2=#:temp-file nil mapcar #[(cat) "\303\236\304\305\306\303\"\"	\203	\n\241\210\202\303\nB\211B\n\210*\207" [cat #3=#:p #4=#:v agent-groups mapcar #[(g) "\301!\203\302\303\"\207\207" [g multibyte-string-p encode-coding-string utf-8-emacs] 3] alist-get] 5] copy-tree gnus-make-directory nnheader-concat "lib" "lib/categories" generate-new-buffer " *temp file*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] prin1 #[(c) "@\301\302\"A\301\303\"A\301\304\"AF\207" [c assoc agent-predicate agent-score-file agent-groups] 6] newline write-region 0] 8 (#$ . 89175)])
#@34 Edit the predicate for CATEGORY.
(defalias 'gnus-category-edit-predicate #[(category) "	\236\303\304\n\236A\305\306\"\307\310\311\312\313D\314BB\315BB\316BBB#)\207" [category gnus-category-alist info gnus-edit-form agent-predicate format "Editing the select predicate for category %s" lambda (predicate) gnus-agent-cat-set-property assq quote (gnus-category-alist) ('agent-predicate predicate) ((gnus-category-write) (gnus-category-list))] 9 (#$ . 90128) (list (gnus-category-name))])
#@41 Edit the score expression for CATEGORY.
(defalias 'gnus-category-edit-score #[(category) "	\236\303\304\n\236A\305\306\"\307\310\311\312\313D\314BB\315BB\316BBB#)\207" [category gnus-category-alist info gnus-edit-form agent-score format "Editing the score expression for category %s" lambda (score-file) gnus-agent-cat-set-property assq quote (gnus-category-alist) ('agent-score-file score-file) ((gnus-category-write) (gnus-category-list))] 9 (#$ . 90623) (list (gnus-category-name))])
#@35 Edit the group list for CATEGORY.
(defalias 'gnus-category-edit-groups #[(category) "	\236\303\304\n\236A\305\306\"\307\310\311\312\313D\314BB\315BB\316BBB#)\207" [category gnus-category-alist info gnus-edit-form agent-groups format "Editing the group list for category %s" lambda (groups) gnus-agent-set-cat-groups assq quote (gnus-category-alist) (groups) ((gnus-category-write) (gnus-category-list))] 9 (#$ . 91120) (list (gnus-category-name))])
#@28 Kill the current category.
(defalias 'gnus-category-kill #[(category) "	\236\304\305 \306y\210`|\210\307	\"\310 *\207" [category gnus-category-alist buffer-read-only info nil point-at-bol 1 delq gnus-category-write] 3 (#$ . 91579) (list (gnus-category-name))])
#@28 Copy the current category.
(defalias 'gnus-category-copy #[(category to) "	\236\306\n!\211\211
\240\210)\307\310\"\210))	B\311 \210\312 )\207" [category gnus-category-alist info newcat #1=#:v to copy-tree gnus-agent-set-cat-groups nil gnus-category-write gnus-category-list #2=#:v] 4 (#$ . 91851) (list (gnus-category-name) (intern (read-string "New name: ")))])
#@24 Create a new category.
(defalias 'gnus-category-add #[(category) "	\236\203\304\305\"\210\306\211\307\n\206\310*BD	B\311 \210\312 \207" [category gnus-category-alist default-agent-predicate name error "Category %s already exists" nil agent-predicate false gnus-category-write gnus-category-list] 4 (#$ . 92231) "SCategory name: "])
#@22 List all categories.
(defalias 'gnus-category-list #[nil "\300 \207" [gnus-category-prepare] 1 (#$ . 92579) nil])
#@29 Return to the group buffer.
(defalias 'gnus-category-exit #[nil "\300p!\210\301\302\303\"\207" [kill-buffer gnus-configure-windows group t] 3 (#$ . 92699) 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)) (#$ . 92973))
#@40 Say whether an article is spam or not.
(defalias 'gnus-agent-spam-p #[nil "\204\304\305\306	\206
\307\310\311$)\n\312H\313\232\205+\314\n\315H!\316\"\317\320#\210)\207" [gnus-agent-spam-hashtb size gnus-headers string 1000 make-hash-table :size 300 :test equal 5 "" gnus-simplify-subject 1 gethash puthash t] 5 (#$ . 93329)])
#@41 Say whether an article is short or not.
(defalias 'gnus-agent-short-p #[nil "\302H	W\207" [gnus-headers gnus-agent-short-article 7] 2 (#$ . 93673)])
#@40 Say whether an article is long or not.
(defalias 'gnus-agent-long-p #[nil "\302H	V\207" [gnus-headers gnus-agent-long-article 7] 2 (#$ . 93829)])
#@48 Say whether an article has a low score or not.
(defalias 'gnus-agent-low-scored-p #[nil "	W\207" [gnus-score gnus-agent-low-score] 2 (#$ . 93982)])
#@49 Say whether an article has a high score or not.
(defalias 'gnus-agent-high-scored-p #[nil "	V\207" [gnus-score gnus-agent-high-score] 2 (#$ . 94137)])
#@40 Say whether an article is read or not.
(defalias 'gnus-agent-read-p #[nil "\304\305H	\306\n\"A@\262\3078)\"\207" [gnus-headers gnus-newsgroup-name gnus-newsrc-hashtb cl-x gnus-member-of-range 0 gethash 2] 6 (#$ . 94295)])
#@33 Make a function from PREDICATE.
(defalias 'gnus-category-make-function #[(predicate) "\302!\211G\303U\203	@9\203	@\202\304\305\306	E!)\207" [predicate func gnus-category-make-function-1 1 gnus-byte-compile lambda nil] 5 (#$ . 94528)])
#@11 Return t.
(defalias 'gnus-agent-true #[nil "\300\207" [t] 1 (#$ . 94777)])
#@13 Return nil.
(defalias 'gnus-agent-false #[nil "\300\207" [nil] 1 (#$ . 94858)])
#@33 Make a function from PREDICATE.
(defalias 'gnus-category-make-function-1 #[(predicate) "9\204\303!\203	\236A\206C\207:\203?@\304>\203%\305\2028@\306>\2030\307\2028@\n>\2058\310\311\312A\"B\207\313\314\"\207" [predicate gnus-category-predicate-alist gnus-category-not functionp (& and) and (| or) or not mapcar gnus-category-make-function-1 error "Unknown predicate type: %s"] 4 (#$ . 94944)])
#@45 Return the function implementing PREDICATE.
(defalias 'gnus-get-predicate #[(predicate) "\303	\"A\206\304!\nB	B\n)\207" [predicate gnus-category-predicate-cache func assoc gnus-category-make-function] 3 (#$ . 95365)])
#@223 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.
(defalias 'gnus-predicate-implies-unread #[(predicate) "\301\302!!\303=\207" [predicate gnus-function-implies-unread-1 gnus-category-make-function-1 t] 3 (#$ . 95597)])
#@287 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.
(defalias 'gnus-function-implies-unread-1 #[(function) "@\305\306A\"\211\307\267\202Y\310	>\203\310\202\210\311	>\205\210\311\202\210\312	>\203-\312\202\210\311	>\2037\311\202\210\310\202\210	@\311=\203G	@\202\210	@?\202\210\312\202\210\310\202\210\312\202\210\3132}\f\205{\n\f@A=\203s\314\313\310\"\210\202_\fA\211\204c\312)0\203\204\311\202\210\315\316\"*\207" [function args func gnus-category-predicate-alist 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 15 or 35 not 59 gnus-agent-read-p 77 gnus-agent-false 81 gnus-agent-true 85)) t t_nil nil found-match throw error "Unknown predicate function: %s"] 5 (#$ . 95996)])
#@39 Return the category GROUP belongs to.
(defalias 'gnus-group-category #[(group) "\204R\306\307\310	\206
\311\312\313$)\n\314\211\314\211\203Q@\315
\236A\211\314\211\203G@\316
#\210A\211\2042*A\211\204,\317\320\n\236#\207" [gnus-category-group-cache size gnus-category-alist groups cs cat 1000 make-hash-table :size 300 :test equal nil agent-groups puthash gethash default --dolist-tail-- g group] 6 (#$ . 97032)])
#@426 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.
(defalias 'gnus-agent-expire-group #[(group &optional articles force) "\204\n\306	\n#\207\307\211\310E	\311=\203\312\313\314Q!\203p\315!\316\317!\320&\321\216\322\323!'\324'!\203o\325\326!(r(q\210\327\216\330'!\210\331&\332ed\")\333\334)\206Y\335\336\337$)\211\"\210+\212\340
\341\f\"	\n%\210)-\342\343\344\345 #)\207" [group articles force gnus-agent-expire-stats orig overview 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 #[nil "\301!\207" [overview kill-buffer] 2] gnus-agent-lib-file "active" file-exists-p generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer 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 gnus-command-method active-file #1# size] 7 (#$ . 97493) (list (gnus-agent-read-group))])
(defalias 'gnus-agent-expire-group-1 #[(group overview active articles force) "\306!	\307\310\305!\203
B@\204(\311\312\"\313=\203(\314\315\316#\202\314\315\317#\210\320!\210\321A\322B\321\211CD\323E\"A@\262FGH\324\325!\311\326\"ZIH\205j@?\205j\327H!@@CJK\203u\325\202\251L\307=\203\200\325\202\251L\204\225\3301\220\331!0\202\251\210\325\202\251\332\333H@@\327H!@@B!\334L\335\"\"MK\203\264\325\202\333L\307=\203\277\325\202\333L\203\310\325\202\333\333\336\337F8\236A!\333\340\337F8\236A!\244N\341PO\321P\342Q\325R\343\344H\"\343\345M\"\244\343\346N\"\244\343\347J\"\244STq\210\350 \210\351 \210\352O!\203[\314\353\354\"\210\355O!\210eb\210\325U`\211UdW\203U\3561F\357p!\321\\\325\211UFSB\211S0\202N\210\314\360\361`O$\210\360y\210\202%)\314\353\362\"\210\363\325!\210\314\353\364\"\210\334S\365\"S\314\353\366\"\210\314\353\367\"\210SSSA\203\344S@@SA@@=\203\333S@ASA@AV\211W\211@\206\242V@\240\210WAWVAVW\211@\206\270V@\240\210WAWVAVW\211@\206\316V@\240\210S\211AA\241\210*\202ySA\211S\202{)\3702 S\342\325XYSS\205\337S\211AS\2428\211X\203\363XYW\203\371\370\372\"\210\202\363XY\202\363+0\203.\314\353\373\"\210\374\375S\"\210\314\353\376\"\210\377SG!Z\325C\211H[\321\\S\203\214\201z\201{PT\211PZ\245_!\325]\211^QV\203s^Q\314\353\201|Q#\210*S@\211_@`_A@a\201}_8b\337_8cb\203\201~dX\203\272\201\201\200`ba\203\265\201\201\202\270\201\202%\210a\203\366\352\201\203`!P!\204\352_A\211e\325\240\210)\337dX\203\352\201\201\204S@@#\210c\204\366\314\360\201\205\"\210[`aB\325B\241[\202oa\250\204\357\202B\352\201\203`!P!\204,_A\211f\325\240\210)\201\206\202BaIW\203:\201\207\202B@\205B\201\210\211R\203O\325gR\201\211>\203\255\201\2121\236\201\213\201\203`!\"h\377\201\214h!\3538\262!iAi\\ABi\\BCTC\201\215h!\210*\201\216gB\211g0\202\242\210\202\243\210_A\211j\325\240\210)c\203\373\201\217gBg\201\220c!\203\310c\202\315c\\Zb\210DTD\201\221 k\360y\210`\211lkZmAm\\A\\m\\\\kl|\210+n\203`o@Y\203[`aB\325B\241[\202&\201\222\201\223R\"gBgg\203K\201\224dX\203K\201\201\225`\201\226\201\227g\201\230#$\210)\202o\201~dX\203c\201\201\231`#\210[`aB\325B\241[c\203\203\201\220c!\203\203c\325\211\223\210SAS-\202DHAH\307pHG\232\204\246HG\201\232!\210\201\233 \203\320qr\201\234!\210\201\235edO\325\201\236%\210\363\325!\210\201\237\307\"\210)L\307=\203\334\201\240 \210-\310\201s!\203s\211tAA\211u\211@A\\\240\210)tA\211v\211@C\\\240\210)t\211w\211@D\\\240\210*\201\241B[\".)x\2036\f\2046ryq\210\325x\201\242\307\"\210)*\207" [group nnmail-pathname-coding-system file-name-coding-system dir gnus-agent-inhibit-update-total-fetched-for gnus-agent-expire-current-dirs 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 (error) gnus-agent-unread-articles gnus-sorted-difference gnus-uncompress-range sort < tick 3 dormant ".overview" -1 mapcar #[(e) "@A\301\211F\207" [e nil] 4] #[(e) "\301\302\301F\207" [e nil unread] 4] #[(e) "\301\302\301F\207" [e nil marked] 4] #[(e) "\301\302\301F\207" [e nil special] 4] 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... " #[(a b) "@	@W\203\n\303\207@	@V\203\304\207\305\3068\n\236A\206 \307\306	8\n\236A\206+\307	X+\207" [a b kf-score t nil ((special . 0) (marked . 1) (unread . 2)) 2 3] 2] "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 #[(entry) "\3038\211\205\303\233\211\304 	\305\223\240))\207" [entry pos #1=#:c 3 make-marker nil] 5] "gnus-agent-expire: Merging entries... Done" float force bytes-freed size-files-deleted files-deleted nov-entries-deleted gnus-newsrc-hashtb info gnus-agent-article-alist alist day specials gnus-agent-expire-all articles unreads marked nov-file cnt completed type dlist overview p secnd first pos prev-pos len tail-alist position-offset message-log-max new-completed entry article-number fetch-date keep marker gnus-verbose #2=#:c #3=#:c actions file-name size #4=#:c from to freed gnus-agent-consider-all-articles active inhibit-quit gnus-agent-file-coding-system coding-system-for-write gnus-agent-expire-stats stats #5=#:c #6=#:c #7=#:c gnus-agent-need-update-total-fetched-for gnus-group-buffer 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] 9])
#@474 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.
(defalias 'gnus-agent-expire #[(&optional articles group force) "\203\n\306	\n#\207	\307=\203\310\311!\205\264\312 \313\314\211\315E\313\211\211'()\316\317!\320\216)\211A)\242\211\203\250\321\322!*\323*!\203\244\324\325!+r+q\210\326\216\327*!\210\330
\331ed\",\332\333,\206h\334\335\336$)\211\"\210+\337
!\313-\211.\203\243.@-\340-\"\211/\203\231\212\341-\f/	\n%\210)).A\211.\204}*)\202/)\342 \210\343\344\345\346 #.\207" [group articles force orig overview gnus-command-method 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*" #[nil "\301!\207" [overview kill-buffer] 2] gnus-agent-lib-file "active" file-exists-p generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer 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 gnus-agent-expire-stats gnus-agent-expire-current-dirs methods active-file #1# size expiring-group --dolist-tail-- active] 8 (#$ . 104869) nil])
(defalias 'gnus-agent-expire-done-message #[nil "\305V\2036\306\301!\2036	\307\n8\310\311V\203)\fA\203)\312\245\fA\202\313\314\n@\nA@\f@%+\207\315\207" [gnus-verbose gnus-agent-expire-stats stats size units 4 boundp 2 (B KB MB GB) 1024.0 1024.0 format "Expiry recovered %d NOV entries, deleted %d files, and freed %.f %s." "Expiry...done"] 6])
(defalias 'gnus-agent-expire-unagentized-dirs #[nil "\205\261\306\307!\205\261	\310\311\312\n\206\313\314\315$)\316\317\320\f#\210\316\211\203b@\211;\203Y\321!\203Y\322\f\"\204Y\317\320\f#\210\323\324!!\202?A\211\204.*\316\325\211\326!!\210)\205\260 \204\200\327\330!\205\260\205\260\211A\242 \204\232\327\331\332\"!\203\254\316\211!\"\316#\333\211!!\210,)\202\200+\207" [gnus-agent-expire-unagentized-dirs nnmail-pathname-coding-system size to-remove keep file-name-coding-system boundp gnus-agent-expire-current-dirs 20 make-hash-table :size 300 :test equal nil puthash t file-directory-p gethash file-name-directory directory-file-name #[(d) "\306!\307\n\211A\242\211\205[	\310\267\202H\202\202\311!\307\312\313!\211\f\"\2046\314!\202\"\203D
\235\204D
B*\202\315\316	\"\211!\203	!\210\202*\207" [d file files r keep to-remove directory-files nil #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("." 22 ".." 25 ".overview" 28)) file-name-as-directory gethash file-name-directory directory-file-name file-directory-p nnheader-concat #1=#:--cl-checker--] 4] expand-file-name gnus-y-or-n-p "gnus-agent-expire has identified local directories that are not currently required by any agentized group.  Do you wish to consider deleting them?" format "Delete %s? " #[(f-or-d) "\3041?\305!\203:\3061\307!0\202=\210\310!	\2034	\211A\242\211\311\235\204\312\n\"!\210\202\307!\202=\313!0\207\210\314\207" [f-or-d files f delete-recursive (error) file-directory-p (file-error) delete-directory directory-files ("." "..") nnheader-concat delete-file nil] 5] gnus-agent-directory dir --dolist-tail-- #1# gnus-expert-user delete-recursive files f] 7])
#@43 Start Gnus, send queue and fetch session.
(defalias 'gnus-agent-batch #[nil "\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 (#$ . 108824) nil])
(defalias 'gnus-agent-unread-articles #[(group) "\306	\"A@\262\307\n8)\310!\311C\211\f\203z\203z\f\211A\242@\f@\211
\247\2037
\202:
@
\247\203G
\202J
A\203Y\fW\203f\f\311B\241\311\202r\fV\205rA\312+\204))\202\f\203\216\f\211A\242@\311B\241\202z
A,\207" [group gnus-newsrc-hashtb cl-x read known unread gethash 2 gnus-agent-load-alist nil t tail-unread candidate range min max] 5])
#@242 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.
(defalias 'gnus-agent-uncached-articles #[(articles group &optional cached-header) "\204	\204\216\306\n!\203\216
\307C\211	\n\f\203s\203s@\f@@\211\fW\203E\n\f\307B\241\nA\202o\fU\203l
\204a\f@A\204a\n\f\307B\241\nA\fA\202o\fA*\202\203\211\n\211A\242\307B\241\n\202s	A,\207
\207" [gnus-agent-cache gnus-plugged group gnus-agent-article-alist ref articles gnus-agent-load-alist nil arts uncached tail-uncached v2 v1 cached-header] 4 (#$ . 109583)])
(defalias 'gnus-agent-retrieve-headers #[(articles group &optional fetch-old) "\212\306 \210\307\211\310\311\"\312	)\313\314\315\f!\316\"!\210*\203<\317*\247\2032\320+@*Z]\2023\320\321+!@B!+\322\f!\203Vr,q\210\323 \210-.\324\f+@\"\210*\325+\316#\211\203-/q\210\323 \210\3120\326\")\327=\204{\330 \210\202\3541@\331=\203\354/q\210\312C\21123+@4\321+!@5eb\210d\31267`7W\203\310\332\333!\205\263\334p!\2116\203\30236\312B\2413\320y\210\202\243*\3352A45B\"23@\203\345\335\211@3@B\"\3362\",,q\210\323 \210/q\210\337,ed#\210\203\340\f\"\210/q\210-8\341 \210\342ed\f\312\343%\210)\344\316\"\210\345!\210\346\312#\210\2029/q\210\323 \210\347,!\210-*\203E*\247\203P\350+@\321+!@\"\210)\327\207" [group nnmail-pathname-coding-system file-name-coding-system uncached-articles file gnus-decode-encoded-address-function 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 gnus-decode-encoded-word-function fetch-old articles gnus-agent-overview-buffer gnus-agent-file-coding-system nnheader-file-coding-system nntp-server-buffer gnus-agent gnus-current-select-method fetched-articles tail-fetched-articles min max art pm coding-system-for-write] 7])
#@49 Retrieve ARTICLE in GROUP from the agent cache.
(defalias 'gnus-agent-request-article #[(article group) "\205L	\204
\n?\205L\247\205L\306\f!\307\310!\f\"\311\312!\205K\313!\3148\262\315V\205K\316 \210\317 \210\320!\210)\321,\207" [gnus-agent gnus-agent-cache gnus-plugged article group gnus-command-method 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 buffer-read-only nnmail-pathname-coding-system file-name-coding-system gnus-cache-coding-system coding-system-for-read] 3 (#$ . 112127)])
(defalias 'gnus-agent-store-article #[(article group) "\306!\307\310\n!\"\f\311!?\2052\312\313!!\210\314ed\315\316%\210\317!\210\320\nC\321\315!#,\207" [group gnus-command-method article file nnmail-pathname-coding-system file-name-coding-system 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 gnus-cache-coding-system coding-system-for-write] 6])
#@320 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.
(defalias 'gnus-agent-regenerate-group #[(group &optional reread) "\205r\306\307\310#\210	\206\311!\312\313\"\314\n!\f\315!\2035\316\317\320\321\322\323\320\324\325$\"\"\326\"\202:\327!\210\320@\320\211AB\320\211CD\330\331!ErEq\210\332\216\333 \210\315\n!\203fFG\334\n!\210)\335\320!\210\325HH\203*\320Heb\210`dW\203\336\337!\203\340\225\340\224Z\341X\203\342p!ABA\343y\210A@AA@IJK<\203\311JK>\203\311\344 \343y\210`|\210AAA\306\345\346J#\210\202I\203JIW\203\341\306\347\350\"\210\325H\202JIU\203\351y\210\306\345\352J#\210\344 \343y\210`|\210AAA*\202x\306\343\353\"\210\344 \343y\210`|\210\202xH\203m\306\307\354\"\210\355\343ed#\210\320A\202m)\356 \210@\2048A\203\376@\203\274A\203L@@A@V\203\274\306\347\357@@$\210\360@@!P\330\331!LrLq\210\361\216\333 \210\334\n!\210\362 \210\363 C+C\211M\340@@I\210)A\203\250\364\365A@!\366QN\367N\320\325#\204\241\370N!\210\343y\210)\202\253eb\210\371C!\210)@@ABA\202.@@A@=\203\354@@\372\373\360@@!P!\3078\262!BBBB@A@AAA\202.A@\320BBBBAAA\202.O\203z\320BB\211PQ\374!RR\203qPA@@R@@S\211T\2048PSCC\241PRAR\202mSTW\203SPSCPAB\241\210RAR\202mSTU\203hRARPAP\202mPAP*\202QAB+\202\264\375B!\375\374!!RPR\203\263P\204\237R@@\320BBBB\202\263P@@R@@W\203\263PR@C\241\210*\325U\376 \211D\203\316FV\377ed\n\320\201[%\210)D\206\343K\203\335W\206\343BW\232?DBWD\203,\201\\!\210X\201]\201^X\"\203\201_X\340\225\"\202X)\201`Y\"\206 \201a!Z\201bZ\"\210*,K\203gW\203g\201cK<\203FK\202P\317\320\321\201dW\"\"\201e\201fEC	#\210D\203g\201g\320\"\210\306\307\201h\"\210D.	\207" [group gnus-command-method file dir nnmail-pathname-coding-system file-name-coding-system 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 #[(name) "\302\303	\"!?\205
\304	!\207" [dir name file-directory-p nnheader-concat string-to-number] 4] directory-files "\\`[0-9]+\\'" t > gnus-make-directory generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer 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 #[nil "\301!\205	\302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] nnheader-remove-body nnheader-parse-naked-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 write-region downloaded nov-arts alist header regenerated #1# gnus-agent-file-coding-system nnheader-file-coding-system load l2 l1 reread #2# #3=#:v key gnus-agent-consider-all-articles n merged o oID nID inhibit-quit coding-system-for-write gnus-agent-article-alist gname gnus-active-hashtb group-active silent gnus-agent-save-alist string-match "^[^:]+:" substring gethash gnus-activate-group gnus-agent-possibly-alter-active gnus-agent-synchronize-group-flags #[(c) "\302=\203		@\207	A\205	@\207" [reread c t] 2] del (read) gnus-agent-update-files-total-fetched-for ""] 11 (#$ . 113296) (list (gnus-agent-read-group) (catch 'mark (while (let (c (cursor-in-echo-area t) (echo-keystrokes 0)) (message "Mark as unread: (n)one / (a)ll / all (d)ownloaded articles? (n) ") (setq c (read-char-exclusive)) (cond ((or (eq c 13) (eq c 110) (eq c 78)) (throw 'mark nil)) ((or (eq c 97) (eq c 65)) (throw 'mark t)) ((or (eq c 100) (eq c 68)) (throw 'mark 'some))) (gnus-message 3 "Ignoring unexpected input") (sit-for 1) t))))])
#@68 Regenerate all agent covered files.
CLEAN is obsolete and ignored.
(defalias 'gnus-agent-regenerate #[(&optional _clean reread) "\305\306\307\310\"\210\311 \305\211\2038\n@\312	!\305\211\2030\n@\313\f\"\206(\nA\211\204*\nA\211\204*\306\307\314\"\210)\207" [regenerated gnus-command-method --dolist-tail-- group reread 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"] 4 (#$ . 117827) nil])
#@36 Switch servers into online status.
(defalias 'gnus-agent-go-online #[(&optional force) "\304\211\2059\n@\211A@\305=\2031\306=\203(\307\310\311	@@	@A@#!\202)\2031	A\312\240\210\nA\211\204\304*\207" [gnus-opened-servers server --dolist-tail-- force nil offline ask gnus-y-or-n-p format "Switch %s:%s into online status? " close] 6 (#$ . 118366) (list t)])
#@55 Toggle the status of the server of the current group.
(defalias 'gnus-agent-toggle-group-plugged #[(group) "\304!\305	\n\"A@\211\306=\203\307	\310\"\210\202\"\311	!\210\307	\306\"\210\312\313	@	A@\306=\2033\306\2024\314\306=\203>\314\202?\306%*\207" [group method gnus-opened-servers status gnus-find-method-for-group assoc offline gnus-server-set-status closed gnus-close-server message "Turn %s:%s from %s to %s." online] 8 (#$ . 118740) (list (gnus-group-group-name))])
(defalias 'gnus-agent-group-covered-p #[(group) "\301\302!!\207" [group gnus-agent-method-p gnus-group-method] 3])
#@87 Update, or set, the total disk space used by the articles that the
agent has fetched.
(defalias 'gnus-agent-update-files-total-fetched-for #[(group delta &optional method path) "\205\333\306\n\f\206\307
!\310\f\"\206\311\f\312\313\314\"#\315\f!\205\303<\203\262\203x\316\317\211A\242\211\203p\320\321\322\f\247\203\\\323!\202^\"!\3248\262\206i\314!\\\202<*\202\262\3258[\326\f\317\327\306$\317\211A\242\211\203\255\320A\3248\262\206\246\314!\\\202\212+\306 AA\211!\211@\\\240)- \203\333	\204\333r\"q\210\317 \330
\306\"\210)\207" [gnus-agent-total-fetched-hashtb gnus-agent-inhibit-update-total-fetched-for method gnus-command-method path group 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 entry nnmail-pathname-coding-system file-name-coding-system delta file sum info gnus-agent-need-update-total-fetched-for #1=#:c gnus-group-buffer] 8 (#$ . 119347)])
#@146 Update, or set, the total disk space used by the .agentview and
.overview files.  These files are calculated separately as they can be
modified.
(defalias 'gnus-agent-update-view-total-fetched-for #[(group agent-over &optional method path) "\205n\306\n\f\206\307
!\310\f\"\206\311\f\312\313\314\"#\315\316\f\2031\317\2022\320\"!\3218\262\206=\314\306\203K\322\202L\314\233\211\240.\203n	\204nrq\210\323\324
\306\"\210)\207" [gnus-agent-total-fetched-hashtb gnus-agent-inhibit-update-total-fetched-for method gnus-command-method path group t gnus-agent-group-pathname gethash puthash make-list 3 0 file-attributes nnheader-concat ".overview" ".agentview" 7 1 nil gnus-group-update-group entry nnmail-pathname-coding-system file-name-coding-system agent-over size gnus-agent-need-update-total-fetched-for #1=#:c gnus-group-buffer] 6 (#$ . 120471)])
#@55 Get the total disk space used by the specified GROUP.
(defalias 'gnus-agent-total-fetched-for #[(group &optional method no-inhibit) "\306\232?\205L	\204\307\310\311\n\206\312\313\314$)\315!\316
	\"\211\2031\317\320\"\202K?\320\321\322
$\321\323
$\324\322
$#)+\207" [group gnus-agent-total-fetched-hashtb size method gnus-command-method path "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 entry no-inhibit gnus-agent-inhibit-update-total-fetched-for] 9 (#$ . 121371)])
(provide 'gnus-agent)
Zerion Mini Shell 1.0