ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/legacy-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!\207" [require gnus-start gnus-util gnus-range gnus-agent] 2)
(defvar gnus-agent-compressed-agentview-search-only nil)
#@101 Iterates over all agentview files to ensure that they have been
converted to the compressed format.
(defalias 'gnus-agent-convert-to-compressed-agentview #[(converting-to) "C\306\211\211\211
\211A\242\211\203K \307\f\310\" \211A\242\211\203 \311\312\n\"\204 \313\n!\2038 \n
B\202 \314\n!\315\232\203 \316\n!\206G \202 \205W \317\320\321$-\207" [gnus-agent-directory converted-something member members here search-in 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" gnus-newsrc-file-version converting-to] 5 (#$ . 590)])
(defalias 'gnus-agent-convert-to-compressed-agentview-prompt #[nil "\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)
#@34 Load FILE and do a `read' there.
(defalias 'gnus-agent-convert-agentview #[(file) "\306\307!rq\210\310\216\311 !\210eb\210\312\313p!\3141 \313p!0\202\" \210\315\316\211 &\f\315U\203\215 \316\211 ' (\317 \210\320 \210\321c\210\322 !\323P\324 !\203Q \311 !\210 )eb\210m\204\207 \325\326!\203\201 \327\330\331\332!\" \230\203\201 \333\334\331\335!!
\"\211(\203\201 (\334\331\336!!\241\210\336y\210\202U \312*\202\225 \f\336U\203\225 \312 \205)\203\243 \337\340\312\"\210\320 \210\316\211\211\211 * + , -
\203\350
@@-
@A\211,*\236+
A+\203\333 +-+AB\241\210\202\262 ,-D*B*\202\262 *
\203
\211A\242\211+\341+A\237!\241\210\202\353 \342*p\"\210,\343c\210\344 !\210\n\203\345\n!\210\312.\207" [#1=#:temp-buffer file history-file changed-version version alist generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nnheader-insert-file-contents t 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 inhibit-quit gnus-command-method entry gnus-agent-compressed-agentview-search-only compressed comp-list day-of-download article-id] 6 (#$ . 1646)])
(defalias 'gnus-agent-unlist-expire-days #[(converting-to) "<\205\346 \306\307\216\310 \311\216\312\313!\211q\210\314 \210\315c\210\316!\210\317\320 \"c\210\321c\210\322c\210\317\323!c\210\324c\210\325c\210\326c\210\317\327!c\210\330c\210\324c\210\331c\210\332c\210\333c\210\334c\210\324c\210\335c\210\336c\210\324c\210\337c\210\340c\210\341 !\210\342 \210\342 \210\343\306 \344 \211\345=\204 \f\346=\203\325 \212\347 11\203\321 1\211A1\242 2 3\3502\277 3\203\275 \3513@@2\"\343=\203\264 \352\3503@A@\"\2103A\2113\204\236 \3060\211 4\203\315 \3532\3544#\210+\202\204 *\202\341 \f\355=\204\341 \f\356=\203p -\357\360!)\207" [gnus-agent-expire-days buffer #1=#:wconfig converting-to c echo-keystrokes nil #[nil "\301!\207" [buffer kill-buffer] 2] current-window-configuration #[nil "\301!\207" [#1# 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 gnus-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" groups group days day] 5])
(gnus-convert-mark-converter-prompt 'gnus-agent-unlist-expire-days t)
#@249 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.
(defalias 'gnus-agent-unhook-expire-days #[(converting-to) "\306\205| \306=\203 <\203 \202 \307\301!\205 C\211A\242\310\n!\203b \311\211 \311 \312 \313\n!\210 G \314\315\" \203X S\211 \211A\242I\210\202B \316\317\".\202n \n<\203x \320\n8A@\321=\203x \322\301\n\"\210\306)\202 )\207" [h gnus-group-prepare-hook func definition print-level print-length t boundp byte-code-function-p nil #[(char) " B\211\207" [char definition] 2] princ make-string 0 string-match "\\bgnus-agent-do-once\\b" 2 gnus-agent-do-once remove-hook standard-output i s] 5 (#$ . 5520)])
(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)
Kontol Shell Bypass