%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\303\313\314\315\307\310\311\316&\210\303\317\320\321\307\310\311\322&\210\303\323\324\325\307\310\311\326&\210\303\327\324\330\307\310\311\331&\207" [require gnus gnus-sum custom-declare-variable gnus-cache-active-file (expand-file-name "active" gnus-cache-directory) "The cache active file." :group gnus-cache :type file gnus-cache-enter-articles '(ticked dormant) "Classes of articles to enter into the cache." (set (const ticked) (const dormant) (const unread) (const read)) gnus-cache-remove-articles '(read) "Classes of articles to remove from the cache." (set (const ticked) (const dormant) (const unread) (const read)) gnus-cacheable-groups nil "Groups that match this regexp will be cached.\n\nIf you only want to cache your nntp groups, you could set this\nvariable to \"^nntp\".\n\nIf a group matches both gnus-cacheable-groups and gnus-uncacheable-groups\nit's not cached." (choice (const :tag "off" nil) regexp) gnus-uncacheable-groups "Groups that match this regexp will not be cached.\n\nIf you want to avoid caching your nnml groups, you could set this\nvariable to \"^nnml\".\n\nIf a group matches both gnus-cacheable-groups and gnus-uncacheable-groups\nit's not cached." (choice (const :tag "off" nil) regexp)] 8)
#@41 Coding system used on Gnus cache files.
(defvar gnus-cache-overview-coding-system 'raw-text (#$ . 1720))
#@41 Coding system used on Gnus cache files.
(defvar gnus-cache-coding-system 'raw-text (#$ . 1831))
(defvar gnus-cache-removable-articles nil)
(defvar gnus-cache-buffer nil)
(defvar gnus-cache-active-hashtb nil)
(defvar gnus-cache-active-altered nil)
(defvar gnus-cache-total-fetched-hashtb nil)
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload nnml-generate-nov-databases-directory "nnml" nnvirtual-find-group-art "nnvirtual"] 3)
#@23 Initialize the cache.
(defalias 'gnus-cache-open #[nil "\302!\204 \205 \303=?\205 \304 \207" [gnus-cache-directory gnus-use-cache file-exists-p passive gnus-cache-read-active] 2 (#$ . 2275)])
(byte-code "\3001\n \301\302\303\"0\207\210\304\207" [(error) gnus-add-shutdown gnus-cache-close gnus nil] 3)
#@22 Shut down the cache.
(defalias 'gnus-cache-close #[nil "\301 \210\302 \210\303\211\207" [gnus-cache-active-hashtb gnus-cache-write-active gnus-cache-save-buffers nil] 2 (#$ . 2589)])
(defalias 'gnus-cache-save-buffers #[nil "\205z A\306@\307\"\310\n!\203U \311\n!\203U r\nq\210\312 \313V\203. \314 !\210)\202N
\315 !\203; \316 !\210\3171H \320\321 !!0\202L \210\202M \210)\322@ \"\210)\n\211 \211\205i \310\323\n!\211!\205i \n)\203u \324!\210\325 \210)\326\211*\207" [gnus-cache-buffer overview-file buffer gnus-cache-overview-coding-system coding-system-for-write nnmail-pathname-coding-system gnus-cache-file-name ".overview" buffer-live-p buffer-modified-p buffer-size 0 gnus-write-buffer file-exists-p delete-file (error) delete-directory file-name-directory gnus-cache-update-overview-total-fetched-for get-buffer kill-buffer gnus-prune-buffers nil file-name-coding-system buf] 5])
(defalias 'gnus-cache-possibly-enter-article #[(group article ticked dormant unread &optional force) "\204 \306=?\205m\n\247\205m\n\307V\205m\n\310\211\211 + , -\311.!\203Q \312. /\313\314/\"\203@ \315/\307\225\"\202B /)\n\"\211 0@.0A-)-\205l-\307V\205l\204u \316.!\205l\3171234$\205l\320\321.-\"\211,!?\205l\322\323,!!\210\320,!\203\226 \324\202lr5q\210\325\326!\210\310\211 6\327-.\"\210*\330 \307V\203j7 8\331,!\210\332.,\"\210)\333 \334 \210\335 \211+\211 9\307-I\210)+\211 :\336
@I\210)+\211 ;\337
A@I\210)\340.!\210<Aq\210db\210\341y\210\3421o?\205\343p!-V0\202 \210\344 \345y\210`|\210\202!\203'\341y\210\202\377 o\203Gm\204A\346 \210\343p!-W\203J\345y\210\202J\346 \210\202J\345y\210\346 \210\347+!\210=q\210\350.-\211B\"\210\351>\n\">\352\n!\210)\324-\207" [force gnus-use-cache article nnmail-pathname-coding-system file-name-coding-system lines-chars passive 0 nil gnus-virtual-group-p nnvirtual-find-group-art string-match "^[^:]+:" substring gnus-cache-fully-p gnus-cache-member-of-class file-exists-p gnus-cache-file-name gnus-make-directory file-name-directory t require gnus-art gnus-request-article-this-buffer buffer-size gnus-write-buffer gnus-cache-update-file-total-fetched-for nnheader-get-lines-and-char nnheader-remove-body nnheader-parse-naked-head 7 6 gnus-cache-change-buffer -1 (error) read point-at-bol 1 beginning-of-line nnheader-insert-nov gnus-cache-possibly-update-active gnus-add-to-sorted-list gnus-summary-update-secondary-mark headers file number group gname result gnus-cache-enter-articles ticked dormant unread nntp-server-buffer gnus-article-decode-hook gnus-cache-coding-system coding-system-for-write #1=#:v #2=#:v #3=#:v gnus-cache-buffer gnus-summary-buffer gnus-newsgroup-cached] 6])
#@42 Mark ARTICLE for later possible removal.
(defalias 'gnus-cache-enter-remove-article #[(article) "\205 B\211\207" [article gnus-cache-removable-articles] 2 (#$ . 5303)])
#@49 Possibly remove some of the removable articles.
(defalias 'gnus-cache-possibly-remove-articles #[nil "\305!\204 \306 \207 \307 \203> \310 \311\312\f\"\203# \313\f\314\225\"\202$ \f) \211A\242\"\211\203
\nAC\n@\306 \210*\202
*\307\211\207" [gnus-newsgroup-name gnus-cache-removable-articles ga arts gname gnus-virtual-group-p gnus-cache-possibly-remove-articles-1 nil nnvirtual-find-group-art string-match "^[^:]+:" substring 0] 4 (#$ . 5483)])
#@49 Possibly remove some of the removable articles.
(defalias 'gnus-cache-possibly-remove-articles-1 #[nil "\306!\205> \307!\210 \310 \211 \203;
@\211\n>\2034 \311\f\211 >\f\f>\f
>\2062 \f>$\210
A\211\204 +\312 \207" [gnus-newsgroup-name gnus-newsgroup-cached cache-articles gnus-cache-removable-articles article --dolist-tail-- gnus-cache-fully-p gnus-cache-change-buffer nil gnus-cache-possibly-remove-article gnus-cache-save-buffers gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-unreads gnus-newsgroup-unselected] 7 (#$ . 5945)])
#@43 Retrieve ARTICLE in GROUP from the cache.
(defalias 'gnus-cache-request-article #[(article group) "\306 \"\307\n \310
!\205 \311 \210\312 \210
\313
!\210)\314+\207" [group article nnmail-pathname-coding-system file-name-coding-system buffer-read-only file gnus-cache-file-name nil file-exists-p erase-buffer gnus-kill-all-overlays insert-file-contents t gnus-cache-coding-system coding-system-for-read] 3 (#$ . 6507)])
#@71 Alter the ACTIVE info for GROUP to reflect the articles in the cache.
(defalias 'gnus-cache-possibly-alter-active #[(group active) "\205' \304 \"\211\205& \n@ @W\203 \n@\240\210\nA AV\205& \nA\241)\207" [gnus-cache-active-hashtb group cache-active active gethash] 4 (#$ . 6939)])
#@45 Retrieve the headers for ARTICLES in GROUP.
(defalias 'gnus-cache-retrieve-headers #[(articles group &optional fetch-old) "\306!\211\211\204 \307\310\f
#)\202\202 \311\f\n\"\312\313\"\307 \307\203; \f\2059 \310
#)\314 \210\212\315!\204L \202\201 \204f q\210\316 \210 \317!\210)\320\202\201 \320=\203w \321\n\"\210\202\201 \322\323\n\f\"\"\210-)\207" [group gnus-newsgroup-cached cached gnus-use-cache articles fetch-old gnus-cache-articles-in-group nil gnus-retrieve-headers gnus-sorted-difference gnus-cache-file-name ".overview" gnus-cache-save-buffers file-exists-p erase-buffer insert-file-contents nov gnus-cache-braid-nov gnus-cache-braid-heads gnus-sorted-intersection nnmail-pathname-coding-system file-name-coding-system type cache-file uncached-articles nntp-server-buffer gnus-cache-overview-coding-system coding-system-for-read] 6 (#$ . 7231)])
#@145 Enter the next N articles into the cache.
If not given a prefix, use the process marked articles instead.
Returns the list of articles entered.
(defalias 'gnus-cache-enter-article #[(&optional n) "\306\307 !\306\211\203F @\310\n!\210\311\n!\2031 \312\f\n\306\211\211\313&\2037 \314\n
\"\nB\2027 \315\316\317\n#\210\320\n!\210\321\n!\210 A\211\204\f *\322\323!\210\324 \210\237)\207" [out n article --dolist-tail-- gnus-newsgroup-name gnus-newsgroup-undownloaded nil gnus-summary-work-articles gnus-summary-remove-process-mark natnump gnus-cache-possibly-enter-article t delq gnus-message 2 "Can't cache article %d" gnus-summary-update-download-mark gnus-summary-update-secondary-mark gnus-summary-next-subject 1 gnus-summary-position-point] 8 (#$ . 8140) "P"])
#@146 Remove the next N articles from the cache.
If not given a prefix, use the process marked articles instead.
Returns the list of articles removed.
(defalias 'gnus-cache-remove-article #[(&optional n) "\306!\210\307\310\n!\307\211 \203N \f@\311 !\210\312 \307\211\211\313%\203?
\203; \314! \315 \"A\204: \316 \") B\317 !\210\320 !\210\fA\211\204 *\321\322!\210\323 \210 \237)\207" [gnus-newsgroup-name out n article --dolist-tail-- gnus-newsgroup-agentized gnus-cache-change-buffer nil gnus-summary-work-articles gnus-summary-remove-process-mark gnus-cache-possibly-remove-article t gnus-agent-load-alist assoc gnus-add-to-sorted-list gnus-summary-update-download-mark gnus-summary-update-secondary-mark gnus-summary-next-subject 1 gnus-summary-position-point alist gnus-newsgroup-undownloaded] 7 (#$ . 8919) "P"])
#@53 Say whether ARTICLE is cached in the current group.
(defalias 'gnus-cached-article-p #[(article) " >\207" [article gnus-newsgroup-cached] 2 (#$ . 9754)])
#@72 Insert all the articles cached for this group into the current buffer.
(defalias 'gnus-summary-insert-cached-articles #[nil "\302] \204 \303\304\305\"\202 G\306W\203 \307 !\202 \310 !)\207" [gnus-verbose gnus-newsgroup-cached 6 gnus-message 3 "No cached articles for this group" 20 gnus-summary-goto-subjects gnus-summary-include-articles] 3 (#$ . 9915) nil])
#@55 Limit the summary buffer to articles that are cached.
(defalias 'gnus-summary-limit-include-cached #[nil "\302] \203 \303 !\210\304 \202 \305\306\307\")\207" [gnus-verbose gnus-newsgroup-cached 6 gnus-summary-limit gnus-summary-position-point gnus-message 3 "No cached articles for this group"] 3 (#$ . 10288) nil])
(defalias 'gnus-cache-change-buffer #[(group) "\203 @\230\204 \305 \210?\2054 \212 \306\307!qB\310 \210\311 \312\"\n \313\f!\203/ \314\f!\210*\315\316!)\207" [gnus-cache-buffer group nnmail-pathname-coding-system file-name-coding-system file gnus-cache-save-buffers gnus-get-buffer-create " *gnus-cache-overview*" erase-buffer gnus-cache-file-name ".overview" file-exists-p nnheader-insert-file-contents set-buffer-modified-p nil] 3])
(defalias 'gnus-cache-member-of-class #[(class ticked dormant unread) "\203\n \300 >\2060 \n\203 \302 >\2060 \203 \303 >\2060 ?\2050 ?\2050 \n?\2050 \304 >\207" [ticked class dormant unread read] 2])
(defalias 'gnus-cache-file-name #[(group article) "\306;\203\n \202
\307!\310\306\311\312\313!\203 \202L \314 \315\316 \317 \n\f#+\320\316#\321\322 \"\203@ \323 \324\211\224#\325\323 \324\225\"Q \320\315 \317 \n\f#,\326\"
\"!\"\207" [article group to from string gnus-cache-directory expand-file-name int-to-string file-name-as-directory nnheader-translate-file-chars gnus-use-long-file-name not-cache nnheader-replace-duplicate-chars-in-string 47 95 subst-char-in-string 46 string-match ":" substring 0 "/" t] 10])
#@56 If ARTICLE is in the cache, remove it and re-enter it.
(defalias 'gnus-cache-update-article #[(group article) "\304!\210\305 \306\211\211\307%\205 \306\310 \306\211\211\307&)\207" [group article gnus-use-cache gnus-newsgroup-name gnus-cache-change-buffer gnus-cache-possibly-remove-article nil t gnus-cache-possibly-enter-article] 7 (#$ . 11791)])
#@41 Possibly remove ARTICLE from the cache.
(defalias 'gnus-cache-possibly-remove-article #[(article ticked dormant unread &optional force) " \306\n \307 !\2036 \310 \311\312 \"\203& \313 \314\225\"\202( ) \"\211 @ A)\315
\"\316\f!\205\241 \204T \317!\"#$$\205\241 \212\320 \f\321#\210\322\f!\210%Aq\210eb\210\323\324
!\325P!\204 \326\327\324
!\325Qd\321#\203\207 \330 \331y\210`|\210)\332 &\"\211&\204\234 \333'\"\210\321(\334 !\210\321,\207" [gnus-newsgroup-name article nnmail-pathname-coding-system file-name-coding-system file number nil gnus-virtual-group-p nnvirtual-find-group-art string-match "^[^:]+:" substring 0 gnus-cache-file-name file-exists-p gnus-cache-member-of-class gnus-cache-update-file-total-fetched-for t delete-file looking-at int-to-string " " search-forward "\n" point-at-bol 1 delq remhash gnus-summary-update-secondary-mark group gname result force gnus-cache-remove-articles ticked dormant unread gnus-cache-buffer gnus-newsgroup-cached gnus-cache-active-hashtb gnus-cache-active-altered] 6 (#$ . 12150)])
#@51 Return a sorted list of cached articles in GROUP.
(defalias 'gnus-cache-articles-in-group #[(group) "\306\307\310\"!\311 \312\f!\205D \313\314\315\316\f\311\317\320$\"\321\"\211\2034 \322 @\320#\210\322\323 !@\"\210\202C \324
\"\203C \325
\"\210\320 +\207" [group nnmail-pathname-coding-system file-name-coding-system articles dir gnus-cache-active-hashtb file-name-directory gnus-cache-file-name 1 nil file-exists-p sort mapcar #[(name) "\301!\207" [name string-to-number] 2] directory-files "\\`[0-9]+\\'" t < gnus-cache-update-active last gethash remhash gnus-cache-active-altered] 9 (#$ . 13223)])
(defalias 'gnus-cache-braid-nov #[(group cached &optional file) "\306\307!\310\211\311 \210r\nq\210\312 \210 \f \313\206\" \314\315\"!\210*eb\210\316c\210eb\210) q\210eb\210 \203\213 m\204O \317p! @W\203O \320y\210\202; \321 \210\nq\210\322\316\323 @!\324Q\310\325#\203o \326 \310\210`\202q \310 q\210 \203\202 \327\n #\210\316c\210 A\211 \204; \330\n!+\207" [end beg cache-buf gnus-cache-overview-coding-system nnmail-pathname-coding-system file-name-coding-system gnus-get-buffer-create " *gnus-cache*" nil gnus-cache-save-buffers erase-buffer insert-file-contents gnus-cache-file-name ".overview" "\n" read 1 beginning-of-line search-forward int-to-string " " t point-at-bol insert-buffer-substring kill-buffer coding-system-for-read file group nntp-server-buffer cached] 5])
(defalias 'gnus-cache-braid-heads #[(group cached) "\306\307!rq\210\310 \210) q\210eb\210\n\311\211 \203\205 \f@m\204< \312\313!\203< \314\224b\210\315p! W\203< \316\317\311\320#\210\202 \321 \210q\210\310 \210
\322\323 \"!\210*eb\210\324c\210\325\n\211A\242p\"\210\326c\210\316\327\311\320#\210`d|\210\330u\210\331c\210 q\210\332!\210\fA\211\204 *\333!)\207" [cache-buf nntp-server-buffer cached entry --dolist-tail-- gnus-cache-coding-system gnus-get-buffer-create " *gnus-cache*" erase-buffer nil looking-at "2.. +\\([0-9]+\\) " 1 read search-forward "\n.\n" move beginning-of-line insert-file-contents gnus-cache-file-name "220 " princ " Article retrieved.\n" "\n\n" -1 "." insert-buffer-substring kill-buffer nnmail-pathname-coding-system file-name-coding-system coding-system-for-read group] 5])
#@121 Go through all groups and put the articles into the cache.
Usage:
$ emacs -batch -l ~/.emacs -l gnus -f gnus-jog-cache
(defalias 'gnus-jog-cache #[nil "\306\307\306\211\211\211 \310 \210\311 \210\312\306\313\".\207" [gnus-large-newsgroup gnus-novice-user gnus-use-dribble-file mail-sources gnus-expert-user gnus-mark-article-hook nil t gnus gnus-group-mark-buffer gnus-group-iterate #[(group) "\303\304 \303\305#\210\n\306=\205 \307 \210\310 \210\311p!)\207" [gnus-auto-select-next group major-mode nil gnus-summary-read-group t gnus-summary-mode gnus-uu-mark-buffer gnus-cache-enter-article kill-buffer] 4]] 6 (#$ . 15465) nil])
#@29 Read the cache active file.
(defalias 'gnus-cache-read-active #[(&optional force) "\306!\210\307 !\203 \310 !\3118\262\312U\204 \n\203 \313 \207\212\314 \210\315 !\210\316\317\320ed\"\321\322 \2064 \323\324\325$)\211\"\210\317\211)\207" [gnus-cache-directory gnus-cache-active-file force size gnus-cache-active-hashtb gnus-cache-active-altered gnus-make-directory file-exists-p file-attributes 7 0 gnus-cache-generate-active gnus-set-work-buffer nnheader-insert-file-contents gnus-active-to-gnus-format nil count-lines make-hash-table :size 300 :test equal] 7 (#$ . 16110)])
#@45 Write the active hashtb to the active file.
(defalias 'gnus-cache-write-active #[(&optional force) "\204\f \205 \n\205 \304 \305#\210\306\211\207" [force gnus-cache-active-hashtb gnus-cache-active-altered gnus-cache-active-file gnus-write-active-file t nil] 4 (#$ . 16700)])
#@147 Update active info bounds of GROUP with ACTIVE if necessary.
The update is performed if ACTIVE contains a higher or lower bound
than the current.
(defalias 'gnus-cache-possibly-update-active #[(group active) "\306\211\n\203) \307 \n\"\211 \203%
@\f@W\204 \310
A\fAV\204% \310)\202, \311 \210 \2037 \312
@\306#\210\205@ \312
A\"*\207" [higher lower gnus-cache-active-hashtb group cache-active active t gethash nil gnus-cache-read-active gnus-cache-update-active] 5 (#$ . 16988)])
#@103 Update the upper bound of the active info of GROUP to NUMBER.
If LOW, update the lower bound instead.
(defalias 'gnus-cache-update-active #[(group number &optional low) "\306 \"\211\204 \307 \211B #\210\202# \f\203 \n \240\210\202# \n \241\210\310\211)\207" [group gnus-cache-active-hashtb active number low gnus-cache-active-altered gethash puthash t] 5 (#$ . 17483)])
#@33 Generate the cache active file.
(defalias 'gnus-cache-generate-active #[(&optional directory) "?\306\206 \n! \307\310\" \203 \311\202A \312\313\314\315\306\n!!!P\316!\"\210\317\316!\320\225\"\321\322 . / 0\323/.0#+ 1\324\211 2 3 \203c \325\326\327\"\210\330 4\331\3324\206] \333\334\335$)5\312\3361\"\203t \337\340\341\3241$1
\203\240 \312\342\343
@!\"\203\223 \344\343
\211A\242!!2B2\202t
\211A\2423B3\202t \3452\346\"\2112\203\273 \34712@\3502!@B5#\2103\324 6\211 7\203\352 7@6\3516!\203\341 \312\352\3436!\"\204\341 \3536!\2107A\2117\204\306 * \205\367 \354\341!\210\325\326\355\".\207" [directory top gnus-cache-directory nnmail-pathname-coding-system file-name-coding-system files expand-file-name directory-files full "" string-match "^" regexp-quote file-name-as-directory directory-file-name substring 0 47 46 subst-char-in-string nil gnus-message 5 "Generating the cache active file..." 123 make-hash-table :size 300 :test equal "^\\(nn[^_]+\\)_" replace-match "\\1:" t "^[0-9]+$" file-name-nondirectory string-to-number sort < puthash last file-directory-p "^\\." gnus-cache-generate-active gnus-cache-write-active "Generating the cache active file...done" to from string group nums alphs size gnus-cache-active-hashtb file --dolist-tail--] 7 (#$ . 17865) nil])
#@49 Generate NOV files recursively starting in DIR.
(defalias 'gnus-cache-generate-nov-databases #[(dir) "\303 \210\304\305 !\210)\306\307 \207" [nnml-generate-active-function dir gnus-cache-total-fetched-hashtb gnus-cache-close identity nnml-generate-nov-databases-directory nil gnus-cache-open] 2 (#$ . 19184) (list gnus-cache-directory)])
#@40 Move the cache tree to somewhere else.
(defalias 'gnus-cache-move-cache #[(dir) "\302 \"\207" [gnus-cache-directory dir rename-file] 3 (#$ . 19530) "FMove the cache tree to: "])
#@141 Return non-nil if the cache should be fully used.
If GROUP is non-nil, also cater to `gnus-cacheable-groups' and
`gnus-uncacheable-groups'.
(defalias 'gnus-cache-fully-p #[(&optional group) "\205& \304=?\205& \204 \305\207\n\203 \306\n \"\205& ?\206& \306 \"?\207" [gnus-use-cache group gnus-cacheable-groups gnus-uncacheable-groups passive t string-match] 3 (#$ . 19716)])
#@229 Rename OLD-GROUP as NEW-GROUP.
Always updates the cache, even when disabled, as the old cache
files would corrupt Gnus when the cache was next enabled. It
depends on the caller to determine whether group renaming is
supported.
(defalias 'gnus-cache-rename-group #[(old-group new-group) "\306\307\"\306 \307\"\n \310
\f\311#\210+\312 \"\210 \204$ \313 \210\314\" \314 \" \2069 \315 #\210\315\316#\210\203W \211\202[ \317!,\207" [old-group new-group nnmail-pathname-coding-system file-name-coding-system new-dir old-dir gnus-cache-file-name "" gnus-rename-file t gnus-cache-rename-group-total-fetched-for gnus-cache-read-active gethash puthash nil gnus-cache-write-active gnus-cache-active-hashtb no-save old-group-hash-value new-group-hash-value delta gnus-cache-active-altered] 4 (#$ . 20104)])
#@225 Delete GROUP from the cache.
Always updates the cache, even when disabled, as the old cache
files would corrupt gnus when the cache was next enabled.
Depends upon the caller to determine whether group deletion is
supported.
(defalias 'gnus-cache-delete-group #[(group) "\306\307\" \310 !\210*\311!\210\f \f\204 \312 \210\313\f\" \314\f\"\210
\2030 \211\2024 \315!*\207" [group nnmail-pathname-coding-system file-name-coding-system dir gnus-cache-active-hashtb no-save gnus-cache-file-name "" gnus-delete-directory gnus-cache-delete-group-total-fetched-for gnus-cache-read-active gethash remhash gnus-cache-write-active group-hash-value gnus-cache-active-altered] 3 (#$ . 20944)])
(defvar gnus-cache-inhibit-update-total-fetched-for nil)
(defvar gnus-cache-need-update-total-fetched-for nil)
(defalias 'gnus-cache-with-refreshed-group '(macro . #[(group &rest body) "\302\303\304BB\305\306\307\310\311\312 \313BBFEE\207" [body group prog1 let ((gnus-cache-inhibit-update-total-fetched-for t)) when (and gnus-cache-need-update-total-fetched-for (not gnus-cache-inhibit-update-total-fetched-for)) with-current-buffer gnus-group-buffer (setq gnus-cache-need-update-total-fetched-for nil) gnus-group-update-group (t)] 10]))
(defalias 'gnus-cache-update-file-total-fetched-for #[(group file &optional subtract) "\205\232 \306\307\n\"\206 \310\n\311\312\313\"#\314
\203, \315
!\3168\262\206( \313\202k \317\320\n\321\"\306\314\306$ \314\211 \322\211A\242\211\203j \315
!\211\211@\262\204B \f\323\3168\262!\\\202B ,\306 A\211 \211@\203 \f[\202\200 \f\\\240,\203\232 \204\232 r q\210\314\324\n\306\"\210)\207" [gnus-cache-total-fetched-hashtb gnus-cache-inhibit-update-total-fetched-for group entry size file t gethash puthash make-vector 2 0 nil file-attributes 7 directory-files gnus-cache-file-name "" 0.0 float gnus-group-update-group nnmail-pathname-coding-system file-name-coding-system files attrs gnus-cache-need-update-total-fetched-for #1=#:c subtract gnus-group-buffer] 6])
(defalias 'gnus-cache-update-overview-total-fetched-for #[(group file) "\205P \306\307\n\"\206 \310\n\311\312\313\"#\f \314\206\" \315\n\316\"!\3178\262\206, \313 \306 \211 \240-\203P \204P rq\210\320\321\n\306\"\210)\207" [gnus-cache-total-fetched-hashtb gnus-cache-inhibit-update-total-fetched-for group entry nnmail-pathname-coding-system file-name-coding-system t gethash puthash make-list 2 0 file-attributes gnus-cache-file-name ".overview" 7 nil gnus-group-update-group file size gnus-cache-need-update-total-fetched-for #1=#:c gnus-group-buffer] 6])
#@71 Record of disk space used by OLD-GROUP now associated with NEW-GROUP.
(defalias 'gnus-cache-rename-group-total-fetched-for #[(old-group new-group) "\205 \304 \"\305 \n#\210\306 \")\207" [gnus-cache-total-fetched-hashtb old-group entry new-group gethash puthash remhash] 4 (#$ . 23565)])
#@58 Delete record of disk space used by GROUP being deleted.
(defalias 'gnus-cache-delete-group-total-fetched-for #[(group) "\205 \302 \"\207" [gnus-cache-total-fetched-hashtb group remhash] 3 (#$ . 23864)])
#@65 Get total disk space used by the cache for the specified GROUP.
(defalias 'gnus-cache-total-fetched-for #[(group &optional no-inhibit) "\306\232?\2057 \204 \307\310\311\n\206 \312\313\314$)\315 \"\211\203) \316\317 \"\2026 \f? \320\321\"\322\321\"\\))\207" [group gnus-cache-total-fetched-hashtb size entry no-inhibit gnus-cache-inhibit-update-total-fetched-for "dummy.group" 1000 make-hash-table :size 300 :test equal gethash apply + gnus-cache-update-overview-total-fetched-for nil gnus-cache-update-file-total-fetched-for] 6 (#$ . 24077)])
(provide 'gnus-cache)
Zerion Mini Shell 1.0