;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require gnus-start gnus-util gnus-range gnus-agent] 2) (defvar gnus-agent-compressed-agentview-search-only nil)#@121 Iterates over all agentview files to ensure that they have been converted to the compressed format. (fn CONVERTING-TO) (defalias 'gnus-agent-convert-to-compressed-agentview #[257 "C\302\211\211\211\211A\262\242\211\262\203M\303\304\"\262\211A\262\242\211\262\203\305\306\"\204\307!\2039B\262\202\310!\311\232\203\312!\206H\211\262\202\211\205X\313\314\315  $\207" [gnus-agent-directory gnus-newsrc-file-version nil directory-files t string-match "/\\.\\.?$" file-directory-p file-name-nondirectory ".agentview" gnus-agent-convert-agentview gnus-message 4 "Successfully converted Gnus %s offline (agent) files to %s"] 11 (#$ . 263)]) (defalias 'gnus-agent-convert-to-compressed-agentview-prompt #[0 "\3012 \302\303\304!)0\207" [gnus-agent-compressed-agentview-search-only found-file-to-convert t gnus-agent-convert-to-compressed-agentview nil] 2]) (gnus-convert-mark-converter-prompt 'gnus-agent-convert-to-compressed-agentview 'gnus-agent-convert-to-compressed-agentview-prompt)#@45 Load FILE and do a `read' there. (fn FILE) (defalias 'gnus-agent-convert-agentview #[257 "\303\304\305\"r\211q\210\306\307\"\216\310!\210eb\210\305\311p!\3121#\311p!0\202%\210\313\314\211\313U\203\215\314\211\315 \210\316 \210\317c\210\320!\321P\322!\203N\310!\210\211\262\210eb\210m\204\205\323\324!\203\325\326\327\330!\"\230\203\331\332\327\333!!\"\211\262\203\211\332\327\334!!\241\210\334y\210\202R)\305\262\210\202\226\334U\203\226\305\262\205\n\203\243\335\336\305\"\210\316 \210\314\211\211\211\203\335@@\262@A\262\236\262A\262\203\323AB\241\210\202\252DB\262\202\252\211\262\203\371\211A\262 \242\262\337A\237!\241\210\202\340\340p\"\266\341c\210\342!\210\211\203\343!\210\305)\266\205*\207" [inhibit-quit gnus-command-method gnus-agent-compressed-agentview-search-only generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] nnheader-insert-file-contents read (end-of-file) 0 nil mm-disable-multibyte erase-buffer "\n" file-name-directory "/history" file-exists-p looking-at "[^ \n]+ \\([0-9]+\\) \\([^ \n]+\\) \\([0-9]+\\)" gnus-agent-article-name ".agentview" match-string 2 assoc string-to-number 3 1 throw found-file-to-convert gnus-compress-sequence princ "\n2\n" write-file delete-file] 14 (#$ . 1282)])#@22 (fn CONVERTING-TO) (defalias 'gnus-agent-unlist-expire-days #[257 "<\205\343\302C\303\304\"\216\305 \303\306\"\216\307\310!\240\210\242q\210\311 \210\312c\210\313!\210\314\315\"c\210\316c\210\317c\210\314\320!c\210\321c\210\322c\210\323c\210\314\324!c\210\325c\210\321c\210\326c\210\327c\210\330c\210\331c\210\321c\210\332c\210\333c\210\321c\210\334c\210\335c\210\336\242!\210\337 \210\337 \210\340\302\341 \262\211\342=\204\211\211\343=\203\317\212\344 \211\203\312\211A\262\242\3452\273\211\203\271\346@@\"\340=\203\262\347\345@A@\"\210\211A\262\202\233\3020\211\203\305\350\351#\210\266\202\214)\210\202\333\211\352=\204\333\211\353=\203y+\266\354\355!\262\207" [gnus-agent-expire-days echo-keystrokes nil make-closure #[0 "\301\300\242!\207" [V0 kill-buffer] 2] current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-get-buffer-create " *Gnus agent upgrade*" erase-buffer "The definition of gnus-agent-expire-days has been changed.\nYou currently have it set to the list:\n " gnus-pp format-message "\nIn order to use version `%s' of gnus, you will need to set\n" "gnus-agent-expire-days to an integer. If you still wish to set different\n" "expiration days to individual groups, you must instead set the\n" "`agent-days-until-old' group and/or topic parameter.\n" "\n" "If you would like, gnus can iterate over every group comparing its name to the\n" "regular expressions that you currently have in gnus-agent-expire-days. When\n" "gnus finds a match, it will update that group's `agent-days-until-old' group\n" "parameter to the value associated with the regular expression.\n" "Whether gnus assigns group parameters, or not, gnus will terminate with an\n" "ERROR as soon as this function completes. The reason is that you must\n" "manually edit your configuration to either not set gnus-agent-expire-days or\n" "to set it to an integer before gnus can be used.\n" "Once you have successfully edited gnus-agent-expire-days, gnus will be able to\n" "execute past this function.\n" "Should gnus use gnus-agent-expire-days to assign\n" "agent-days-until-old parameters to individual groups? (Y/N)" switch-to-buffer beep 0 read-char-exclusive 121 89 gnus-group-listed-groups found string-match throw gnus-group-set-parameter agent-days-until-old 110 78 error "Change gnus-agent-expire-days to an integer for gnus to start"] 13 (#$ . 2644)]) (gnus-convert-mark-converter-prompt 'gnus-agent-unlist-expire-days t)#@269 Remove every lambda from `gnus-group-prepare-hook' that mention the symbol `gnus-agent-do-once' in their definition. This should NOT be necessary as gnus-agent.el no longer adds them. However, it is possible that the hook was persistently saved. (fn CONVERTING-TO) (defalias 'gnus-agent-unhook-expire-days #[257 "\304\211\205\200\211\304=\203<\203\202\305\300!\205C\262\211A\262\242\306!\203e\307C\307\211\310\311\"\312!\210\211\242G\313\314\"\242\203Y\211S\211\262\242\211\242A\240\210\242I\210\202@\315\316\"\266\202+\262\202q\211<\203|\3178A@\320=\203|\321\300\"\210\304\262\210\202\207" [gnus-group-prepare-hook print-level print-length standard-output t boundp byte-code-function-p nil make-closure #[257 "\300\300\242B\240\207" [V0] 4 "\n\n(fn CHAR)"] princ make-string 0 string-match "\\bgnus-agent-do-once\\b" 2 gnus-agent-do-once remove-hook] 12 (#$ . 5137)]) (byte-code "\300\301\302\"\210\303\304!\207" [gnus-convert-mark-converter-prompt gnus-agent-unhook-expire-days t provide legacy-gnus-agent] 3)