ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-agent.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\311\312\313\"\210\311\314\315\"\210\316\317\320\321\322\323\324\325&\210\316\326\327\330\322\323\324\331&\210\316\332\327\333\322\323\324\331&\210\316\334\327\335\336\337\322\323\324\331& \210\316\340\341\342\322\323\324\343&\210\316\344\345\346\322\323\324\347&\210\316\350\327\351\322\323\324\352&\210\316\353\327\354\322\323\324\331&\210\316\355\327\356\322\323\324\331&\210\316\357\327\356\322\323\324\331&\210\316\360\361\362\336\363\322\323\324\364& \210\316\365\327\366\336\363\324\367\322\323& \210\316\370\371\372\336\373\324\374\322\323& \210\316\375\376\377\336\363\324\352\322\323& \210\316\201@ \201A \201B \336\363\324\201C \322\323& \210\316\201D \327\201E \336\337\324\352\322\323& \210\316\201F \201G \201H \336\337\322\323\324\343& \210\316\201I \201J \201K \336\337\322\323\324\201L & \210\316\201M \376\201N \336\337\324\352\322\323& \210\316\201O \327\201P \336\337\324\201Q \322\323& \210\316\201R \376\201S \336\337\322\323\324\201T & \210\316\201U \327\201V \336\337\322\323\324\352& \210\316\201W \201X \201Y \336\337\322\323\324\201Z & \207" [require gnus gnus-cache nnmail nnvirtual gnus-sum gnus-score gnus-srvr gnus-util 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 nodes `(gnus)Server Buffer', `(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 (#$ . 6006))
(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)
(defvar gnus-agent-spam-hashtb nil)
(defvar gnus-agent-file-name nil)
(defvar gnus-agent-file-coding-system 'raw-text)
(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)
(byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp directory-files-and-attributes defalias #[(directory &optional full match nosort) "\306\307 \n \f$\306 \211 \203% @\211\310
!BB A\211 \204 *\237)\207" [result directory full match nosort file nil directory-files file-attributes --dolist-tail--] 6]] 3)
(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 !!)\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
;\203 \307\202 \310
!)\205* \311\307\f! \" \312\f!)\207" [gnus-category-predicate-cache gnus-category-group-cache gnus-agent-spam-hashtb gnus-agent-overview-buffer buf buffer nil get-buffer buffer-name delete kill-buffer gnus-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 (#$ . 8500)]))
#@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 (#$ . 9073)])
(defalias 'gnus-agent-method #[nil "\301@!\302A@\303\232\203 \304\202 A@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 (#$ . 9619)])
(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 (#$ . 9971)])
(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]))
(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])
(defalias 'gnus-agent-cat-enable-expiration '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-enable-expiration] 4]))
(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])
(defalias 'gnus-agent-cat-groups '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-groups] 4]))
(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])
(defalias 'gnus-agent-cat-high-score '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-high-score] 4]))
(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])
(defalias 'gnus-agent-cat-length-when-long '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-long-article] 4]))
(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])
(defalias 'gnus-agent-cat-length-when-short '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-short-article] 4]))
(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])
(defalias 'gnus-agent-cat-low-score '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-low-score] 4]))
(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])
(defalias 'gnus-agent-cat-predicate '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-predicate] 4]))
(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])
(defalias 'gnus-agent-cat-score-file '(macro . #[(category) "\301\302\303ED\207" [category cdr assq 'agent-score] 4]))
(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])
(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#\210\300\304\302\305#\207" [put gnus-agent-cat-enable-undownloaded-faces gv-expander #[(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 #[(do &rest args) "\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]] 4)
(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 \211\203 \303 !\304\305\211\306\305\211 &)\207" [gnus-newsgroup-name def gnus-group-group-name gnus-group-decoded-name gnus-group-completing-read nil t] 8 (#$ . 15434)])
#@52 Initialize data structures for efficient fetching.
(defalias 'gnus-agent-start-fetch #[nil "\300 \207" [gnus-agent-create-buffer] 1 (#$ . 15720)])
#@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 (#$ . 15873)])
#@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 (#$ . 16043)]))
(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 (#$ . 16684))
(defvar gnus-agent-mode nil)
(defvar gnus-agent-mode-status '(gnus-agent-mode " Plugged"))
#@59 Minor mode for providing a 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 \"!JB B \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 (#$ . 16865)])
(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!\203 \303\305!\203 \304\306\305 \n\"\307\310%\207\207" [string mouse-button mouse-func fboundp propertize make-mode-line-mouse-map local-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 (#$ . 20671) (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 (#$ . 21620)])
#@23 Start Gnus unplugged.
(defalias 'gnus-unplugged #[nil "\301\302 \207" [gnus-plugged nil gnus] 1 (#$ . 21836) nil])
#@21 Start Gnus plugged.
(defalias 'gnus-plugged #[nil "\301\302 \207" [gnus-plugged t gnus] 1 (#$ . 21958) 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 (#$ . 22074) "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 <\203 \206=\306 \n\"A\206= \307\232\203! \206&\306 \f\"A\206&\306
\"A\206& \203W \310\311@@@@@A@#\232\204W \211A\210\2025 @@)\206& \203\203 \310\311@@@A@#\232\204\203 \211A\210\202c @)\206&A\312\211 \203#\313 \211A \2428\211;\204\225 \312\314 \3152\206\277 \204\313 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\344 \310\322@\"\202\356 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\225 \312\211 \204\232 +\211 !\203:\306 \n\"\204: !B\nB!))\211 @\">\205\272\312\211 \3152\260\206\\ \204h\316\323\n\"\210\316\324\f
D\"\210A@\321\235\203\201\310\322@\"\202\213\310\311@A@#\211 B\211 \n\235\204\254 \204\254\306 @\n\"\204\254 \nB *0+#B#\312\211$)\207" [server-or-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[#1=(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#2=(server-alist) "\301\302\"\207" [server-alist mapc #[#3=(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" #[#1# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result gnus-agent-auto-agentize-methods gnus-agent-covered-methods gnus-agent-method-p-cache] 6] gnus-agent-write-servers] 4 (#$ . 22244) 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\" \"J?\2055 \307\206 \306\310\"\210\311\312\304\305\206# \306\"\313\314#\210)\315\304\305\2061 \306\"\316\317#\207" [group-name gnus-newsrc-hashtb gnus-level-default-subscribed intern-soft 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 (#$ . 24938)])
(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 (#$ . 25943)])
#@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 (#$ . 26482)])
(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 (#$ . 27101)])
#@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 (#$ . 27435)])
#@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 (#$ . 27622) "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 (#$ . 27901) (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 (#$ . 28665) (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 (#$ . 29323) "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 (#$ . 29692) 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 (#$ . 30038) 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)\202B 0 \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 (#$ . 30400)])
#@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 gnus-format-message "Synchronize flags on server `%s'? " gnus-agent-synchronize-flags-server] 4 (#$ . 31290)])
#@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\225\316O\202< ) \f \313\314\"\203S \315\225\316O\202U ) \317 \" \320 \316#\210\320
#\210\321 # \322\316\211 %\210\322\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 "^[^:]+:" 0 nil gnus-agent-get-group-info gnus-agent-save-group-info 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 (#$ . 31734)])
#@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\225\315O\202) ) \316 \315#\210\317 #\210\320\315\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 "^[^:]+:" 0 nil gnus-agent-save-group-info gnus-agent-get-local gnus-agent-set-local gname real-group] 6 (#$ . 32744)])
#@37 Enroll SERVER in the agent program.
(defalias 'gnus-agent-add-server #[nil "\306 \307 \205\267\310\n;\203L\n\211\203\" <\203\" \206H\311\f\"A\206H\312\232\2034
\2061\311&\"A\2061\311'\"A\2061( ))\203l \313\314)@@@)@@A@#\232\204l )\211A)\210\202J )@@)\2061* ++\203\230 \313\314+@@+@A@#\232\204\230 +\211A+\210\202x +@)\2061,A\310\211 - ..\203.\315.\211A.\2428\211;\204\251 \n\310\316 / 0\3172 \n\206\317
0\204\332 \320\321\f\"\210\320\322&'D\"\210\nA@\323\235\203\363 \313\324\n@\"\202\373 \313\314\n@\nA@#\211 1\nB\211 2\f\235\204/\204\3112@\f\"\2042\fB1*0+\232\203\251 \n-\310\211.\204\256 -+\211 3\203E\311\f\"\204E3B\fB3))\202\266\n
\232\203V
\202\266\n@;\203g \203g\325 \n\"\202\266\n\203{ \204{\nA@\326\232\203{\n\202\266\n\327\n@! 4\330\31145\">\203\264\3314\332P!\n\236\204\264\333\n@5\236>\203\264\334\n\3314\332P!\nA@DC\"\202\265\n**\204\300\335\336!\210\337\n!\203\312\335\340!\210 6B6\3107\341!\210\342 \210\343\344\345#+\207" [server named-server method group gnus-server-method-cache gnus-select-method gnus-server-server-name gnus-server-named-server nil assoc "native" format "%s:%s" 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") "%s" gnus-server-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-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache name name-method result method-name gnus-valid-select-methods gnus-agent-covered-methods gnus-agent-method-p-cache] 6 (#$ . 33485) 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 (#$ . 35623) 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 (#$ . 36145)])
(defalias 'gnus-agent-read-servers-validate #[nil "\301\302\303\"\207" [gnus-agent-covered-methods mapcar #[(server-or-method) ";\203 \202g \306\211\3072f \206 \f\n\204\" \310\311
\"\210\310\312D\"\210 A@\313\235\203; \314\315 @\"\202C \314\316 @ A@#\211 B\211
\235\204b \204b \317@
\"\204b
B*0+\211 \211 \203{ <\203{ \206\246\317
\"A\206\246 \320\232\203\217 \f\206\215\317 \"A\206\215\317 \"A\206\215 \203\312 \314\316 @@@ @@A@#\232\204\312 \211A \210\202\247 @@)\206\215 \203\367 \314\316 @@ @A@#\232\204\367 \211A \210\202\326 @)\206\215!A\306\211 \" ##\203\212\321#\211A#\2428\211;\204 \306\322\3072{ \206-\f\n\2047\310\323
\"\210\310\324D\"\210 A@\313\235\203P\314\315 @\"\202X\314\316 @ A@#\211 B\211
\235\204w \204w\317@
\"\204w
B*0+\232\203 \"\306\211#\204
\"+\211 $\203\243\317
\"\204\243 $B
B$))\211\203\303 %\235?\205\311 %B%\306\211&\202\311\325\326\327 #*\207" [server-or-method no-enter-cache nocache method gnus-select-method gnus-server-method-cache nil server-name mapc #[#1=(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#2=(server-alist) "\301\302\"\207" [server-alist mapc #[#3=(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc "native" 4 t #[#1# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] gnus-message 8 "Ignoring disappeared server `%s'" gnus-server-alist gnus-predefined-server-alist name name-method server gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match alist result gnus-agent-covered-methods gnus-agent-method-p-cache] 6] 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!! \315\216r
q\210\316p\")r
q\210\317\320\211\320\321%\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" get-buffer-create generate-new-buffer-name " *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 (#$ . 38737)])
#@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) "\304W\305!\304V\203B \306\307`\310\"\211\203 \311\n!\210)\307`\312\"\206& \313 \"\210\314 \2032 \315\2023 \316\317\320#\304U\203B S\211\202 \304U\204M \321\322\323\"\210\324 \210\325 \210*\207" [n backward to 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 (#$ . 39351) "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 (#$ . 40132) "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 (#$ . 40431) "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=\203\n \306\202 \307=\203 \307\202 \n>\310 \306\307#\205\217 \311\203\207 \312 \n\" >\2034 \f\202\215 \n>\203>
\202\215
>\203J \202\215 >\203V \202\215 >\203b \202\215 >\203n \202\215 >\203z \202\215 \236A\206\215 \202\215 \313\n \"
\314\")\207" [unmark article gnus-newsgroup-downloadable gnus-newsgroup-unsendable gnus-unsendable-mark gnus-downloadable-mark 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 (#$ . 40731)])
#@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 @@
@ \211 W\203Q A\202\257 V\203q \316B\241\316B\241
A\202\257 @A\203\200 A
A\202\257 A
A\203\235 @W\203\235 A\211\204\213 @\232\204\257 \316B\241*\2023
\203\324
\211A\242 \316B\241\316B\241)\202\263 AA\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 (#$ . 41735)])
#@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 gnus-copy-sequence gnus-summary-mark-article gnus-summary-position-point] 4 (#$ . 42686) 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 gnus-copy-sequence < gnus-agent-summary-fetch-group mapc gnus-summary-remove-process-mark gnus-sorted-ndifference] 6 (#$ . 43166) 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 (#$ . 43605) "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 (#$ . 44885)])
#@61 Update a plugged group by performing the indicated actions.
(defalias 'gnus-agent-synchronize-group-flags #[(group actions server) "\211\203 <\203 \206<\306 \"A\206<\307\232\203! \n\206%\306 \"A\206%\306\f\"A\206%
!!\203V \310\311!@@@!@@A@#\232\204V !\211A!\210\2024 !@@)\206%\" ##\203\202 \310\311#@@#@A@#\232\204\202 #\211A#\210\202b #@)\206%$A\312\211 % & ''\203\"\313'\211A'\2428\211&;\204\224 &\312\314 ( ) &\3152&\206\276 \n&)\204\312 \316\317 \"\210\316\320 \fD\"\210&A@\321\235\203\343 \310\322&@\"\202\355 \310\311&@&A@#\211 *&B\211 + \235\204(\204\306+@ \"\204+ B**0+\232\203\224 &%\312\211'\204\231 %+\211 ,\2039\306 \"\2049,B B,)) -\323\324./\"J8\206[\323\324\325.-\"\211./\"J8 0\326.1\"\2100\20311\312 2\211 3\2033@\2112@2A@\32328 4 5 64\312 7\211 3\2033@\2117\327=\203\3100AA5\330=\203\256\331\202\257\332\323086\"\240\210\3330\3240@8\"J\"\210\2027\334>\203\3067\33508\"\211 9\204\356\3350\2337C\2119\33508B\240\21095\330=\203\373\331\202\374\3329A6\"\241\210)3A\2113\204\224-3A\2113\204t*:\211 ;\205'\336\337;!!)\2031\340.\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 #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" 2 intern-soft gnus-group-full-name gnus-request-set-mark 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 opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result gnus-command-method group gnus-newsrc-hashtb info actions action --dolist-tail-- marks what range mark gnus-active-hashtb info-marks gnus-group-buffer buffer] 6 (#$ . 45360)])
#@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!\2053 \307\310ed\"!\311\312!\f\203 \313\314\n\"\210\202$ \315\314\n\"\210\316 \n\"\210\317 \210
\320 !,\207" [method gnus-command-method new file groups-p gnus-agent-file-coding-system gnus-agent-method-p gnus-make-hashtable count-lines 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 nnheader-file-coding-system] 4 (#$ . 47554)])
(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!\205v \310 ! @\206 \311 A\206 \311 \n@\206& \f \nA\206.
\fW\203< \240\210
V\203H \241\210\205u \f\312ZW\205u \3138 AA\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] 5 (#$ . 48551)])
#@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\261 \206 \n\f \307\310! #\311\211 $ %\312\313#!!\210#\314\315\316!! & '\317\216r&q\210\320 \210\321#!\203h \322#!\210eb\210\323\324\325(!\326Q\311\327#\203h \212\330p!%\330p!$)\331 \332y\210`|\210)\205\240 \333\334\335(!%\206{ )A)A]$\206\207 )@)@^$c\210db\210\336\337\311\327#\205\240 \340\332!\210\202\221 )r&q\210\341\311\211'\311\342%\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 get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] mm-disable-multibyte file-exists-p nnheader-insert-file-contents re-search-forward "^" regexp-quote " " t read point-at-bol 1 format "%S %d %d y\n" intern search-backward "\\." delete-char write-region 0 file oactive-min oactive-max #1# #2=#:temp-file group active] 8 (#$ . 49150)])
#@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 \210\320!\205^ \321!\210eb\210\322\323\324 !\325Q\311\326#\205^ \212\327p!\327p!\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] mm-disable-multibyte file-exists-p nnheader-insert-file-contents re-search-forward "^" regexp-quote " " t read file oactive-min oactive-max #1# group] 5 (#$ . 50334)])
#@50 Alist of non-ASCII group names and decoded ones.
(defvar gnus-agent-decoded-group-names nil (#$ . 51183))
#@39 Return a decoded group name of GROUP.
(defalias 'gnus-agent-decoded-group-name #[(group) "\303 \"A\206 \304\305\"\203 \306!\nB B\n)\207\207" [group gnus-agent-decoded-group-names decoded assoc string-match "[^ -]" gnus-group-decoded-name] 3 (#$ . 51295)])
#@35 Translate GROUP into a file name.
(defalias 'gnus-agent-group-path #[(group) "\306\307\310!\311\312 \"\203 \313\225\314O\202 )\315\316 \317 \n\f#+\320\316#!
\204R \321\322\323\306\324@!\325A@\326\232\203E \327\202I A@Q!\325#\"!\203T \207\320\315 \317 \n\f#+\207" [group gname to from string nnmail-use-long-file-names nnheader-translate-file-chars nnheader-replace-duplicate-chars-in-string gnus-agent-decoded-group-name string-match "^[^:]+:" 0 nil 47 95 mm-subst-char-in-string 46 file-directory-p expand-file-name nnheader-concat symbol-name "/" "" "unnamed" gnus-agent-directory gnus-command-method] 10 (#$ . 51567)])
#@35 Translate GROUP into a file name.
(defalias 'gnus-agent-group-pathname #[(group) "\304\305!\306\307 \"\203 \310\225\311O\202 )\n\2038 \312 \313\314\n@!\315\nA@\316\232\203. \317\2021 \nA@Q!\315#\202X \320!\312 \313\314\n@!\315\nA@\316\232\203P \317\202S \nA@Q!\315#)\"\207" [group gname gnus-command-method gnus-agent-directory nnmail-group-pathname gnus-agent-decoded-group-name string-match "^[^:]+:" 0 nil nnheader-concat nnheader-translate-file-chars symbol-name "/" "" "unnamed" gnus-find-method-for-group] 9 (#$ . 52217)])
(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 (#$ . 52889)])
(defalias 'gnus-agent-history-buffer #[nil "\302\303@!\304A@\305\232\203 \306\202 A@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\202 A@Q\310\311\312\304@!\305A@\306\232\203* \307\202- A@Q\"!qB B\313 \210\314 \210\315c\210\316\317!\320\n!\203L \321\n!\210\322\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*" mm-disable-multibyte 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 !!)\2050 \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) "\205X\306\307 !!\205X\310 !\210\nG\311W?\205 \f \312C :\313 ;\312\211 < =\211A\242\211<\203\311 < @@\206? <TV\203I A\2024 < @@=\203X @A\204) <
@\211 >\203i >\313H\202l <T)\211=V\203z
A\202X :<:@B\240\210?;=<U\203\255
@\314H\211 @\313X\203\247
@\315H\316_\317]\202\251 @)\202\256 \313\\\211;W\203) :\211@\237\240\210\312:B:\313;\202) :A\204\325 :@\205V\312C\211 A B\320 ! C\321\322 ! D\323 E\312\211 F GH I:\211@\237\240\210:\237:\324C!\210\325\315\326\327 !#\210\330\216:\211A:\242\211\203P\331 J\3321O ;\2030\333 !@\2021 K\334K!\204?\335K!\210\336\337\340\341KJ#!!)0\202Q\210\312*\203^\342 \"F\202\265\343\344! LrLq\210\345\216\312 <\211A\242\211<\203\250\325\346\347<\327 !$\210\350 <M#\204\224\351< \"\203mdb\210<`BFBF\352M!\210\202m\353Med#\210F\237F,rMq\210F\203LF@AFA@A\206\314d}\210eb\210m\204A\354\355\312\323#\203 \356\357\312\323#\203 \313\225b\210\360\312w\210\361\312w\210\312G\362\363!\203\364\224\364\225{\365\311\224\311\225{!BGBG\313\225b\210\202\364\366GF@@D#\210eb\210N O\367edC\370F@@!P\312\371%\210)BF@@\312B\241B~\210FA\211F\204\277)\202)AA..\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 7 65 1000 gnus-agent-group-pathname time-to-days current-time t gnus-make-directory gnus-message "Fetching articles for %s..." gnus-agent-decoded-group-name #[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]+\\) *" 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 func method #1# nntp-server-buffer gnus-agent-file-coding-system coding-system-for-write] 7 (#$ . 54152)])
#@62 Delete ARTICLES that were fetched from GROUP into the agent.
(defalias 'gnus-agent-unfetch-articles #[(group articles) "\205\255 \306\307\n!\210\310 B \311\312\"\f \211A\242
A\203\217 \203\217
A@@ W\203> \211A\242\202\213 U\203\210
A@A\211 \203~ \313\n!\314!P \315\203i \316\317!8\206j \320! \321!\210\322\n[\"\210+)
\211AA\241\210\202\213
A)\202 \fA\323\n!- \203\255 \204\255 r q\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 7 file-attributes 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 (#$ . 56787)])
(defalias 'gnus-agent-crosspost #[(crosses article &optional date) "\206 \306\307\211\211\211\211 rq\210\310!\203& \311v\210`\311y\210`)\205\253 @@\312\f\"\211\204J \f\313@@!D\211B @AB AB\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 (#$ . 59076)])
#@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) "\203E\211\203 <\203 \206A\306 \n\"A\206A \307\232\203% \206*\306 \f\"A\206*\306
\"A\206* \203[ \310\311@@@@@A@#\232\204[ \211A\210\2029 @@)\206* \203\207 \310\311@@@A@#\232\204\207 \211A\210\202g @)\206*A\312\211 \203'\313 \211A \2428\211;\204\231 \312\314 \3152\206\303 \204\317 \316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\350 \310\322@\"\202\362 \310\311@A@#\211 B\211 \n\235\204 \204\306 @\n\"\204 \nB *0+\232\203\231 \312\211 \204\236 +\211 !\203>\306 \n\"\204> !B\nB!))\202G\" \" \205p \211A \242 #\323\"\313#8\"\203l\324#@!\210)\202M*\207" [server-or-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" gnus-methods-equal-p gnus-agent-flush-group gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result gnus-command-method entry] 6 (#$ . 59879)])
#@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 (#$ . 61542) (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
\205f \307\313
@@\"\314\315\316!! \317\216rq\210\320
@A!\210\321c\210\320\322p\"\210\321c\210)rq\210\306\311\211\311\323%\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" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] princ "\n" 1 0 #1# #2=#:temp-file] 7 (#$ . 62394) 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 (#$ . 63401)])
#@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\2036 \203, \311 \f\"J \312
@\313
A \314#]
AB!)\2029 \312\311 \f\"J!\2029 \315 ! 5\316\211 6 7\317\320 \" 89 :\n\204\212 \321\322\311 ;\"J88\323 <\211 =\203\200 =@\211<@\324>\204w \3255<A\"5=A\211=\204b *\326\3275!\330\"55 5>\204\230 ?\204\312 \331 !\203\312 \n\203\254 \3325 \"5\202\312 \333@!@@T\311 \f\"JA A B\3345BABC\"5*5\203\331 \335\336\337\3405\341\"#\210rCq\2105\2033\335\342\343\344 !#\210\345\346\3478!\341\"!\210\3505 \"\351=\204\352 \210\353 \210\354Ded#\210\35558\"\210E F\353 \210\356ed8\323\357%\210)\360 \341\"\210\361 5\323#\210\202G\3621B\363 \210\3648!0\202F\210\202G\210*5.\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 intern-soft gnus-uncompress-range - -1 gnus-list-of-unread-articles identity gnus-agent-article-name ".overview" 3 2 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-agent-decoded-group-name 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 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 (#$ . 64130)])
#@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 "\304\305!\2056 \306\225\306\224Z\211\307W\203 \310p!\2025 \307U\2055 \306\224\306\225S{\310p!\311\n! \232\2054 \n+)\207" [len str1 num str2 looking-at "[0-9]+ " 0 9 read int-to-string] 3 (#$ . 66331)])
(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\211 q\210m\204Z \307\310!\205H \311\225\311\224Z\211 \312W\203% \313p!\202G \f\312U\205G \311\224\311\225S{ \313p! \314!
\232\205F +)\211\203T \nW\203Z \315y\210\202 \316 \210m\204h \n=\204n q\202~ `\315y\210`q\210\317 #+\207" [e b art gnus-agent-overview-buffer len str1 nil looking-at "[0-9]+ " 0 9 read int-to-string 1 beginning-of-line insert-buffer-substring num str2 article nntp-server-buffer] 4 (#$ . 66770)])
(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\210 q\210\307 \210\310\f!\203 \311\f!\210db\210\312y\210edU\204\252\313p!\211
@W\204\252\314
@!\203? `\315y\210`|\210
\211A\242 \306\211\211 \nq\210m\204\251 \316\317!\205\225 \320\225\320\224Z\211 \321W\203o \313p!\202\224 \321U\205\224 \320\224\320\225S{ \313p! !\322!! \" \"\232\205\223 !+)\211 \203\243 W\203\251 \315y\210\202R \323 \210m\204\270 =\204\275 q\202\320 ` \315y\210` q\210\324\n #,\210\3251\245
\205\241\313p!\211
@W\203\355 \315y\210\326\202
@U\203\323 \210`\315y\210`|\210\306\202\323 \210\306)\204\332
\211A\242 \306\211\211 \nq\210m\204u\316\317!\205a\320\225\320\224Z\211 \321W\203;\313p!\202` \321U\205`\320\224\320\225S{ \313p! !\322!! \" \"\232\205_!+)\211 \203o W\203u\315y\210\202 \323 \210m\204\204 =\204\211 q\202\234` \315y\210` q\210\324\n #,\210\202\326 0\202\251\210\202\252\210db\210
\205{\203\275\nq\210` q\210` #\324\n \"\210#b\210)\206\317\327\3302u\306\211 $m\204]\316\317!\205 \320\225\320\224Z\211 \321W\203\367\313p!\202 \321U\205 \320\224\320\225S{ \313p! !\322!! \" \"\232\205!+)\211 \2040\323 \210`\315y\210`|\210\202\332 W\203@\326$\315y\210\202\332 U\203T\323 \210`\315y\210`|\210\202\332 \315y\210\202\332$\203r\331\315ed#\210eb\210\327\332\330\326\"\210*\3060\205{\202\320*\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]+ " 0 9 int-to-string beginning-of-line insert-buffer-substring (error) t -134217728 problems sort-numeric-fields throw article e b art len str1 num str2 p sort] 5 (#$ . 67434)])
#@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 (#$ . 69541)])
#@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\263\210\3361\261\316 0 1\337\340\341&\"\316\342\317$ 22\203\2532\211A2\242\211 3A@\204\247\3273@!\343\34438!B\fB)\202\204\f+0\202\263\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 5 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 (#$ . 69934)])
#@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\203s A\2033 A@@W\2033 A\211\202 A\204D BC\241\210\202m A@@V\203\\ B AB\241\210\202m A@@U\203m A@ \241\210 A\202 \fA\307 \n@@\310\n!@@#\210\311\312\313 \"!\210\312\314 \"\315\316\317!! \320\216r q\210 \321=\203\257 \322\np\"\210\202% \323=\203%\n\306\211\211\211 ! \" # $ %%\203 %@@$%@A\211#!\236\"%A%\"\203\363 \"$\"AB\241\210\202\305 #$D!B!\202\305 !%%\203 %\211A%\242\211\"\324\"A\237!\241\210\202\322!p\"\210-\325c\210\322 p\"\210\325c\210)r q\210\326\306\211 \306\327%\210,\330 \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" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] 1 princ 2 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 (#$ . 71656)])
(defvar gnus-agent-article-local nil)
(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 \"J\"\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 intern "+method" gnus-cache-file-contents gnus-agent-lib-file "local" gnus-agent-file-loading-local gnus-agent-read-and-cache-local] 5 (#$ . 73108)])
#@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\"J\203 \304 \210\305 !\207" [gnus-agent-article-local file intern "+dirty" gnus-agent-save-local gnus-agent-read-local] 3 (#$ . 73647)])
#@34 Load FILE and do a `read' there.
(defalias 'gnus-agent-read-local #[(file) "\306\307ed\"!\310\311\312!r\nq\210\313\216\3141! \315
!)0\202% \210\202& \210eb\210g\316U\2038 \310y\210T\202) m\204\226 \3171 \320\211\211p \321! \321! \321! ;\203n \322 \" \323\\ \323\\BL-0\202\214 \324\325\326
\327 !%)\210\310y\210T\2028 +\322\330 \"\320L\210\322\331 \" L\210 *\207" [line my-obarray #1=#:temp-buffer gnus-agent-file-coding-system nnheader-file-coding-system file gnus-make-hashtable count-lines 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 intern 0 gnus-message 3 "Warning - invalid agent local: %s on line %d: %s" error-message-string "+dirty" "+method" obarray cur max min group err gnus-command-method] 7 (#$ . 74046)])
#@70 Save gnus-agent-article-local under it method's agent.lib directory.
(defalias 'gnus-agent-save-local #[(&optional force) "\211\205^ \n\204 \306\307 \"J\205^ \306\310 \"J\311\312! \313\311\314!!\210
\f\315\316\317!! \320\216rq\210\306\310 \"J\321\211p \322\323 \"-rq\210\324\321\211\321\325%\210.)\207" [gnus-agent-article-local my-obarray force gnus-command-method dest gnus-agent-file-coding-system intern "+dirty" "+method" gnus-agent-lib-file "local" gnus-make-directory "" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] nil mapatoms #[(symbol) "\302!\204 \303\207\304!\305\235\203 \303\207J\211\2052 \306!\210\307\310!\210\307 @!\210\307\310!\210\307 A!\210\307\311!)\207" [symbol range boundp nil symbol-name ("+dirty" "+method") prin1 princ " " "\n"] 3] 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 (#$ . 74930)])
(defalias 'gnus-agent-get-local #[(group &optional gmane method) "\206 \306\307\n\"\203 \n\310\225\311O\202 \n) \206 \312 ! \313 \314
\" \315!\2053 J\211 \204f \316 !\211 \203e @@\317!@@B\320 @A\f
&\210+-\207" [gmane group gname method gnus-command-method local string-match "^[^:]+:" 0 nil gnus-find-method-for-group gnus-agent-load-local intern boundp gnus-agent-load-alist last gnus-agent-set-local symb 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 \n\310\225\311O\202 \n) \206 \312 !
\206& \313 \314
\" \315!\2057 J\211 \203h @=\203O A=\204h \203h \203h \240\210\241\210\202\217 \203q \311\202\225 \203\207 \203\207 BL\210\202\217 \316
\"\205\225 \314\317
\"\320L-\207" [gmane group gname method gnus-command-method local string-match "^[^:]+:" 0 nil gnus-find-method-for-group gnus-agent-load-local intern boundp unintern "+dirty" t symb minmax min max] 4])
(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 (#$ . 77236)])
#@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 (#$ . 77398) 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\247 0 &'\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 (#$ . 77642) nil])
#@53 Articles that have fewer lines than this are short.
(defvar gnus-agent-short-article 500 (#$ . 79029))
#@51 Articles that have more lines than this are long.
(defvar gnus-agent-long-article 1000 (#$ . 79138))
#@62 Articles that have a score lower than this have a low score.
(defvar gnus-agent-low-score 0 (#$ . 79245))
#@64 Articles that have a score higher than this have a high score.
(defvar gnus-agent-high-score 0 (#$ . 79357))
#@14 Fetch GROUP.
(defalias 'gnus-agent-fetch-group-1 #[(group method) " \n \f
9:;\306\211\211\211\211\211 < = > ? @ A ; : 9 B C\307 !\2047 \310\311 \"\210D\204K \312 E\"J\204K \313 !\205\350F GD\204\216 H\306 I\211 J\203\215 J@\211I\314\315\312 K\"J8\211=8\236A\211 L\203\203 \316L!G\244G)JA\211J\204_ *\317G\320\"G\321 !?\317\322G?\"\320\"\211?\205\347\n\206\263 \323?G\324\" \206\277 \325?\306\211 $\326 \210\327\330 \331\"!\211>\332>\204\330 \333\"\211 M\203\367 M\334=\203\352 \335 !M\202\367 M@;\204\367 MCCMM\203\336M!\210)>\337=\205\fG??\205\347\306C\211 L\340 !G G N O \211A\242\211A\203\273A\324H PN\203KPN@@V\203KNA\211N\2048PN@@=\203\\N@A\204\267G\203sPG@V\203sGA\211G\204aPG@=\204\256P\f\236A\206\206Q\330 \341\"\330 \342\"\330 \343\"\330 \344\"\330 \345\" R S T U V @> .\203\267OP\306B\241O)\202\",\306 W\346XLA\205\316\347 LA\"\211W\"X\346LAW\" YD\203cG\306 Z\211 J\203J@Z\350Z\351\"\210JA\211J\204\355*W\306 Z\211 J\203=J@Z[\203&\352ZF\"F\353Z\\\"\210\354Z\306\351#\2034\355Z!\210JA\211J\204
*Y\306 Z\211 J\205_J@Z\353Z]\"\210JA\211J\204I\306*\202\346H\306 I\211 J\203\254J@\211I\356=\203\243I\314\315\312 K\"J8\211=8\236\211 ^A\203\242\352^\314=8\"<\314=\233<\240\210)JA\211J\204n*\315=\206\276\315\312 K\"J8\211=8 _=AA\357_Y\"\240\210)\360 \351\"\210\361\324!\210\362\363\364=!\365Q\366\367 !\370Q\"+).\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" intern-soft gnus-activate-group 3 2 gnus-uncompress-range sort < gnus-agent-fetch-headers append make-vector 0 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 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 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 arts 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 read] 16 (#$ . 79472)])
#@43 Hook run in `gnus-category-mode' buffers.
(defvar gnus-category-mode-hook nil (#$ . 82600))
#@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" (#$ . 82699))
#@54 The format specification for the category mode line.
(defvar gnus-category-mode-line-format "Gnus: %%b" (#$ . 82990))
#@65 The selection predicate used when no other source is available.
(defvar gnus-agent-predicate 'false (#$ . 83114))
(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 "\301\302\303\304#\210\204 \305 \306!\210\307\300\310\"\210\301\207" [gnus-category-mode-map put gnus-category-mode mode-class special 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)] 4)
#@43 *Hook run after the creation of the menu.
(defvar gnus-category-menu-hook nil (#$ . -84066))
(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])
#@165 Hook run after entering Category mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar gnus-category-mode-hook nil (#$ . 84831))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp gnus-category-mode-map put definition-name gnus-category-mode] 4)
(defvar gnus-category-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [gnus-category-mode-map variable-documentation put purecopy "Keymap for `gnus-category-mode'." boundp gnus-category-mode-syntax-table definition-name gnus-category-mode] 5)
(defvar gnus-category-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gnus-category-mode-syntax-table variable-documentation put purecopy "Syntax table for `gnus-category-mode'." gnus-category-mode-abbrev-table definition-name gnus-category-mode] 5)
(defvar gnus-category-mode-abbrev-table (progn (define-abbrev-table 'gnus-category-mode-abbrev-table nil) gnus-category-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gnus-category-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `gnus-category-mode'." gnus-category-mode derived-mode-parent nil] 5)
#@374 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}
This mode runs the hook `gnus-category-mode-hook', as the final step
during initialization.
(defalias 'gnus-category-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\315\316\317\"\203\" \320 \210\321 \210\322 \210\323\324 \210\307\211)\325\326!\207" [delay-mode-hooks major-mode mode-name gnus-category-mode-map gnus-category-mode-syntax-table gnus-category-mode-abbrev-table make-local-variable t kill-all-local-variables gnus-category-mode "Category" use-local-map set-syntax-table gnus-visual-p category-menu menu gnus-category-make-menu-bar gnus-simplify-mode-line gnus-set-default-directory nil buffer-disable-undo run-mode-hooks gnus-category-mode-hook local-abbrev-table mode-line-process truncate-lines buffer-read-only] 4 (#$ . 86201) 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 gnus-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 (#$ . 87606) nil])
(defalias 'gnus-category-setup-buffer #[nil "\301!?\205 r\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\202 eb\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+\206P \322\323 \211 \324\f\206L \325*BDC\211\207" [#1=#:temp-buffer gnus-agent-directory old-list new-list default-agent-predicate name 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\nA A\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] default short agent-predicate false gnus-category-alist] 5 (#$ . 88461)])
#@27 Write the category alist.
(defalias 'gnus-category-write #[nil "\306\211\307\310\n\311\"!\210\310\n\312\"\313\314\315!! \316\216r q\210\317\320\321
\"p\"\210\322 \210\317
p\")r q\210\323\306\211\f\306\324%\210,\207" [gnus-category-predicate-cache gnus-category-group-cache gnus-agent-directory #1=#:temp-buffer #2=#:temp-file gnus-category-alist nil gnus-make-directory nnheader-concat "lib" "lib/categories" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] prin1 mapcar #[(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 (#$ . 89324)])
#@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 (#$ . 90029) (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 (#$ . 90524) (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 (#$ . 91021) (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 (#$ . 91480) (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 gnus-copy-sequence gnus-agent-set-cat-groups nil gnus-category-write gnus-category-list #2=#:v] 4 (#$ . 91752) (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 (#$ . 92141) "SCategory name: "])
#@22 List all categories.
(defalias 'gnus-category-list #[nil "\300 \207" [gnus-category-prepare] 1 (#$ . 92489) 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 (#$ . 92609) 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)) (#$ . 92883))
#@40 Say whether an article is spam or not.
(defalias 'gnus-agent-spam-p #[nil "\204 \303\304! \305H\306\232\205# \307 \310H!\311\n\"J\312\n\"\313L\210)\207" [gnus-agent-spam-hashtb gnus-headers string gnus-make-hashtable 1000 5 "" gnus-simplify-subject 1 intern-soft intern t] 4 (#$ . 93239)])
#@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 (#$ . 93541)])
#@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 (#$ . 93697)])
#@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 (#$ . 93850)])
#@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 (#$ . 94005)])
#@40 Say whether an article is read or not.
(defalias 'gnus-agent-read-p #[nil "\303\304H\305\211\306 \n\"J88\"\207" [gnus-headers gnus-newsgroup-name gnus-newsrc-hashtb gnus-member-of-range 0 2 intern-soft] 7 (#$ . 94163)])
#@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 (#$ . 94390)])
#@11 Return t.
(defalias 'gnus-agent-true #[nil "\300\207" [t] 1 (#$ . 94639)])
#@13 Return nil.
(defalias 'gnus-agent-false #[nil "\300\207" [nil] 1 (#$ . 94720)])
#@33 Make a function from PREDICATE.
(defalias 'gnus-category-make-function-1 #[(predicate) "9\204 \303!\203 \236A\206 C\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 (#$ . 94806)])
#@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 (#$ . 95227)])
#@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 (#$ . 95459)])
#@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=\203# \310 >\203 \310\202\246 \311 >\205\246 \311\202\246 \n\312=\203A \313 >\2033 \313\202\246 \311 >\203= \311\202\246 \310\202\246 \n\314=\203Y @\311=\203S @\202\246 @?\202\246 \n\315=\203c \313\202\246 \n\316=\203m \310\202\246 \n\317=\203w \313\202\246 \3202\233 \f\205\231 \n\f@A=\203\221 \321\320\310\"\210\202} \fA\211\204\201 \313)0\203\242 \311\202\246 \322\323\"*\207" [function args func gnus-category-predicate-alist alist mapcar gnus-function-implies-unread-1 and t t_nil or nil not gnus-agent-read-p gnus-agent-false gnus-agent-true found-match throw error "Unknown predicate function: %s"] 5 (#$ . 95858)])
#@39 Return the category GROUP belongs to.
(defalias 'gnus-group-category #[(group) "\2040 \306\307! \310\211 \f\211A\242\211\203/ \311\n\236A \203 \312 \211A\242\"\nL\210\202 +\313
\"J\206; \314 \236\207" [gnus-category-group-cache gnus-category-alist cat groups cs group gnus-make-hashtable 1000 nil agent-groups intern intern-soft default] 3 (#$ . 96862)])
#@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\314\315R!\203r \316!\317\320!\321 $\322\216\323\324! %\325%!\203q \326\327! &r&q\210\330\216\331%!\210\332$\333\334ed\"!\211\"\210+\212\335
\336\f\" '\337'!\205k 'J) \n%\210)-\340\341\342\343 #)\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 gnus-make-hashtable count-lines gnus-agent-expire-group-1 intern-soft boundp gnus-message 4 "%s" gnus-agent-expire-done-message gnus-command-method active-file #1# sym] 6 (#$ . 97236) (list (gnus-agent-read-group))])
(defalias 'gnus-agent-expire-group-1 #[(group overview active articles force) "\306! \307! \310 \311\312!\203 \f\nB\n@\204. \313\314\"\315=\203. \316\317\320\n#\2022\316\317\321\n#\210\322!\210\323 A\324 B\323\211 C D\325\326E\"J8 FG H\327\330 !\313\331\"Z IH\205o @?\205o \332H!@@C JK\203z \333\202\256 L\310=\203\205 \333\202\256 L\204\232 \3341\225 \335!0\202\256 \210\333\202\256 \336\337H@@\332H!@@B!\340L\341\"\" MK\203\271 \333\202\340 L\310=\203\304 \333\202\340 L\203\315 \333\202\340 \337\342\343F8\236A!\337\344\343F8\236A!\244 N\f\345P O\323 P\346 Q\333\211 R S\347\350H\"\211R\347\351M\"\244\211R\347\352N\"\244\211R\347\353J\"\244RTq\210\354 \210\355 \210\356O!\203l\316\357\360\"\210\361O!\210eb\210\333 U`\211UdW\203f\3621W\363p!\323\\\333\211UFRB\211R0\202_\210\316\364\365`O$\210\364y\210\2026)\316\357\366\"\210\367\333!\210\316\357\370\"\210\340R\371\"R\316\357\372\"\210\316\357\373\"\210R RRA\203\365R@@RA@@=\203\354R@ARA@A V\211 W\211@\206\263V@\240\210WAWVAVW\211@\206\311V@\240\210WAWVAVW\211@\206\337V@\240\210R\211AA\241\210*\202\212RA\211R\202\214)\37421R\346\333 X Y RR\205/\343R\211AR\2428\211X\203XYW\203(\375\374\376\"\210\202XY\202+0\203C\316\357\377\"\210\201z \201{ R\"\210\316\357\201| \"\210\201} RG! Z\333C\211 H [\323 \\R\203\242\201~ \201 PT\211PZ\245_!\333 ]\211 ^QV\203\214^Q\316\357\201\200 Q#\210*R@\211 _@ `_A@ a\325_8 b\343_8 cb\203 \201\201 dX\203\321\201\202 \201\203 \n`ba\203\314\201\204 \202\317\201\205 %\210a\203
\356\f\201\206 `!P!\204_A\211 e\333\240\210)\343dX\203\201\202 \201\207 \nR@@#\210c\204
\316\364\201\210 \"\210[`aB\333B\241[\202\205a\250\204&\363\202Y\356\f\201\206 `!P!\204C_A\211 f\333\240\210)\201\211 \202YaIW\203Q\201\212 \202Y@\205Y\201\213 \211S\203e\333 gS\201\214 >\203\303\201\215 1\264\201\216 \f\201\206 `!\" h\201} \357\201\217 h!8! iAi\\ABi\\BCTC\201\220 h!\210*\201\221 gB\211g0\202\270\210\202\271\210_A\211 j\333\240\210)c\203\201\222 gBg\201\223 c!\203\336c\202\343c\\Zb\210DTD\201\224 k\364y\210`\211 lkZ mAm\\A\\m\\\\kl|\210+n\203.`o@Y\203.[`aB\333B\241[\202<\201\225 \201\226 S\"gBgg\203a\201\227 dX\203a\201\202 \201\230 \n`\201\231 \201\232 g\201\233 #$\210)\202\205\201\201 dX\203y\201\202 \201\234 \n`#\210[`aB\333B\241[c\203\231\201\223 c!\203\231c\333\211\223\210RAR-\202]HAH\310 pHG\232\204\274HG\201\235 !\210\201\236 \203\346q r\201\237 \f!\210\201\240 edO\333\201\241 %\210\367\333!\210\201\242 \310\"\210)L\310=\203\362\201\243 \210-\311\201s !\203(s\211 tAA\211 u\211@A\\\240\210)tA\211 v\211@C\\\240\210)t\211 w\211@D\\\240\210*\201\244 B[\".)x\203L
\204Lryq\210\333x\201\245 \310\"\210)+\207" [group nnmail-pathname-coding-system decoded file-name-coding-system dir gnus-agent-inhibit-update-total-fetched-for gnus-agent-group-pathname gnus-agent-decoded-group-name t boundp gnus-agent-expire-current-dirs 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 2 intern-soft time-to-days current-time agent-days-until-old last nil (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." 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 dlist type 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 #1=#:c #2=#:c actions file-name size #3=#: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 #4=#:c #5=#:c #6=#:c gnus-agent-need-update-total-fetched-for gnus-group-buffer mapc #[(entry) "\3038\211\205 \303\233\211\304 \305\223\240))\207" [entry pos #7=#:c 3 make-marker nil] 5] "gnus-agent-expire: Merging entries... Done" float truncate 100.0 "%3d%% completed..." 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\265 \312 \313\314\211\315E\313\211\211 $ % &\316\317!\320\216&\211A&\242\211\203\251 \321\322! '\323'!\203\245 \324\325! (r(q\210\326\216\327'!\210\330
\331\332ed\"!\211\"\210+\333
!\313 )\211 *\203\244 *@)\334) \" +\335+!\205\207 +J)\211 ,\203\232 \212\336)\f, \n%\210))*A\211*\204q *)\202/ )\337 \210\340\341\342\343 #.\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 gnus-make-hashtable count-lines gnus-groups-from-server intern-soft boundp 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# expiring-group --dolist-tail-- sym active] 7 (#$ . 104717) 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\252 \306\305!\205\252 \307 \n\310\f \"\311L\210
\312 \211 \203V @\211;\203M \313!\203M \314 \"J\204M \310 \"\311L\210\315\316!!\2021 A\211\204 *\312\211 \317\211 \320\f!!\210\205\251 \204v \321\322!\205\251 \205\251 \211A\242 \204\223 \321\323\324\"!\203\245 \312\211 \312 \325\211 !\210,)\202v -\207" [gnus-agent-expire-unagentized-dirs keep nnmail-pathname-coding-system file-name-coding-system gnus-agent-directory gnus-agent-expire-current-dirs boundp gnus-make-hashtable intern t nil file-directory-p intern-soft file-name-directory directory-file-name #[(d) "\306!\307\n\211A\242\211\205b \310\232\204 \311\232\204 \312\232\203O \313!\307\314\315!\211\f\"J\204= \316!\202( \203K
\235\204K
B*\202 \317\320 \"\211!\203 !\210\202 *\207" [d file files r keep to-remove directory-files nil "." ".." ".overview" file-name-as-directory intern-soft file-name-directory directory-file-name file-directory-p nnheader-concat checker] 4 "Given a directory, check it and its subdirectories for\n membership in the keep hash. If it isn't found, add\n it to to-remove."] 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] dir --dolist-tail-- to-remove checker gnus-expert-user delete-recursive files f] 5])
#@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 (#$ . 108676) nil])
(defalias 'gnus-agent-unread-articles #[(group) "\306\211\307 \"J88\310!\311C\211 \203r \n\203r \211A\242@ \n@\211 \f\247\2031 \f\2024 \f@
\f\247\203A \f\202D \fA
\203S
W\203^
\311B\241\311\202j V\205j \nA\312+\204# )\202 \203\204
\211A\242@\311B\241\202r \fA,\207" [group gnus-newsrc-hashtb read known unread tail-unread 2 intern-soft gnus-agent-load-alist nil t candidate range min max] 6])
#@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 \f W\203E \n\f\307B\241\nA\202o \f U\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 (#$ . 109425)])
(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!\203V r/q\210\323 \2100 1\324\f.@\"\210*\325.\316#\211\203c2q\210\323 \210\312 3\326 \")\327=\204{ \330 \210\202\"4@\331=\203\"2q\210\312C\211 5 6.@ 7\321.!@ 8eb\210d\312 9 :`:W\203\376 \332\333!\205\351 \334\225\334\224Z\211 ;\335W\203\303 \336p!\202\350 ;\335U\205\350 \334\224\334\225S{ <\336p! =\337=! ><>\232\205\347 =+)\2119\203\370 69\312B\2416\320y\210\202\243 *\3405A78B\"56@\203\340 \211@6@B\"\3415 \",/q\210\323 \2102q\210\342/ed#\210 \203=\343 \f\"\2102q\2100 ?\344 \210\345ed\f\312\346%\210)\347\316\"\210\350!\210\351 \312#\210\202o2q\210\323 \210\352/!\210--\203{-\247\203\206\353.@\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]+ " 0 9 read int-to-string 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 len str1 num str2 coding-system-for-write] 7])
#@49 Retrieve ARTICLE in GROUP from the agent cache.
(defalias 'gnus-agent-request-article #[(article group) "\205I \204
\n?\205I \247\205I \306\f! \307\310 !\f\" \311 \312!\205H \313\314!8\315V\205H \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 7 file-attributes 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 (#$ . 112121)])
(defalias 'gnus-agent-store-article #[(article group) "\306!\307\310\n!\"\f \311 !?\2053 \312\313 !!\210\314ed \315\316%\210\317!\210\320\nC\321\322 !#,\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 current-time 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) "\205p\306\307\310\311!#\210 \206 \312!\313\314\"\315\n!\f \316 !\2037 \317\320\321\322\323\324 \321\325\326$\"\"\327\"\202< \330 !\210\321 @\321\211 A B\321\211 C D\331\332! ErEq\210\333\216\334 \210\316\n!\203h F G\335\n!\210)\336\321!\210\326 HH\203,\321Heb\210`dW\203\337\340!\203\341\225\341\224Z\342X\203\343p!ABA\344y\210A@AA@ I JK<\203\313 JK>\203\313 \345 \344y\210`|\210AAA\306\346\347J#\210\202I\203JIW\203\343 \306\350\351\"\210\326H\202JIU\203\352y\210\306\346\353J#\210\345 \344y\210`|\210AAA*\202z \306\344\354\"\210\345 \344y\210`|\210\202z H\203o \306\307\355\"\210\356\344ed#\210\321A\202o )\357 \210@\204:A\203\373@\203\274A\203N@@A@V\203\274\306\350\360\311!@@$\210 \361@@!P\331\332! LrLq\210\362\216\334 \210\335\n!\210\363 \210\364 C+C\341@@I\210A\203\250\365\366A@!\367Q M\370M\321\326#\204\241\371M!\210\344y\210)\202\253eb\210\372C!\210)@@ABA\2020@@A@=\203\351@@\373\307\374 \361@@!P!8!BBBB@A@AAA\2020A@\321BBBBAAA\2020N\203w\321BB\211 O P\375! QQ\203nOA@@Q@@ R\211 S\2045ORCC\241OQAQ\202jRSW\203PORCOAB\241\210QAQ\202jRSU\203eQAQOAO\202jOAO*\202PAB+\202\261\376B!\376\375!! Q OQ\203\260O\204\234Q@@\321BBBB\202\260O@@Q@@W\203\260OQ@C\241\210*\326 T\377 \211D\203\315F U\201Z ed\n\321\201[ %\210)D\206\342K\203\334V\206\342BV\232?DBVD\203*\201\\ !\210 W\201] \201^ W\"\203 W\341\225\321O\202
W)\201_ X\"J\206 \201` ! Y\201a Y\"\210*,K\203eV\203e\201b K<\203DK\202N\320\321\322\201c V\"\"\201d \201e EC #\210D\203e\201f \321\"\210\306\307\201g \"\210D. \207" [group gnus-command-method file dir nnmail-pathname-coding-system file-name-coding-system gnus-message 5 "Regenerating in %s" gnus-agent-decoded-group-name 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 downloaded nov-arts alist header regenerated #1# gnus-agent-file-coding-system nnheader-file-coding-system load l2 l1 reread #2# 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 write-region silent gnus-agent-save-alist string-match "^[^:]+:" intern-soft 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 (#$ . 113298) (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 (#$ . 117839) 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 (#$ . 118378) (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 (#$ . 118752) (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\326 \306\n\f\206 \307
! \310\f\"J\206! \311\f\"\312\313\314\"L \315\f!\205\276 <\203\255 \203w \316\317 \211A \242\211 \203o \320\321\322\323\f \247\203_ \324 !\202a \"!8\206h \314!\\ \202> *\202\255 \3258[\326\f\317\327\306$\317 \211A \242\211 \203\250 \320\330 8\206\241 \314!\\ \202\211 +\306!AA\211 \"\211@ \\\240)-!\203\326 \204\326 r#q\210\317!\331
\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 intern-soft intern make-list 3 0 file-exists-p 0.0 nil float 7 file-attributes nnheader-concat number-to-string 2 directory-files-and-attributes "^-?[0-9]+$" 8 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] 9 (#$ . 119359)])
#@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) "\205m \306\n\f\206 \307
! \310\f\"J\206! \311\f\"\312\313\314\"L \315\316\317\f\2034 \320\2025 \321\"!8\206< \314 \306\203J \322\202K \314\233\211 \240.\203m \204m r q\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 intern-soft intern make-list 3 0 7 file-attributes nnheader-concat ".overview" ".agentview" 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 (#$ . 120473)])
#@55 Get the total disk space used by the specified GROUP.
(defalias 'gnus-agent-total-fetched-for #[(group &optional method no-inhibit) "\306\232?\205A \204 \307\310!\n\311! \312\f \"J\211 \203& \313\314
\"\202@ ? \314\315\316\n\f$\315\317\n\f$\320\316\n\f$#)+\207" [group gnus-agent-total-fetched-hashtb method gnus-command-method path entry "dummy.group" gnus-make-hashtable 1024 gnus-agent-group-pathname intern-soft apply + gnus-agent-update-view-total-fetched-for nil t gnus-agent-update-files-total-fetched-for no-inhibit gnus-agent-inhibit-update-total-fetched-for] 9 (#$ . 121373)])
(provide 'gnus-agent)
Kontol Shell Bypass