;ELC
;;; Compiled
;;; in Emacs version 26.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\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 "\205{ 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\205j \n;\203g \323\202h \324\n!)\203v \325!\210\326 \210)\327\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 buffer-name 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=?\205a\n\247\205a\n\307V\205a\n\310\211\211 * + ,\311-!\203Q \312- .\313\314.\"\203@ .\307\225\310O\202B .)\n\"\211 /@-/A,),\205`,\307V\205`\204u \315-!\205`\3160123$\205`\317\320-,\"\211+!?\205`\321\322+!!\210\317+!\203\226 \323\202`r4q\210\324\325!\210\310\211 5\326,-\"\210*\327 \307V\203^6 7\330+!\210\331-+\"\210)\332 \333 \210\334 \211*\307,I\210*\335
@I\210*\336
A@I\210\337-!\2108Aq\210db\210\340y\210\3411o?\205\342p!,V0\202\210\343 \344y\210`|\210\202\203\340y\210\202\363 o\203;m\2045\345 \210\342p!,W\203>\344y\210\202>\345 \210\202>\344y\210\345 \210\346*!\2109q\210\347-,\211B\"\210\350:\n\":\351\n!\210)\323-\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 "^[^:]+:" 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 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 (#$ . 5263)])
#@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# \f\313\225\307O\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 "^[^:]+:" 0] 4 (#$ . 5443)])
#@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 (#$ . 5894)])
#@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 (#$ . 6456)])
#@71 Alter the ACTIVE info for GROUP to reflect the articles in the cache.
(defalias 'gnus-cache-possibly-alter-active #[(group active) "\205( \304 \"J\211\205' \n@ @W\203 \n@\240\210\nA AV\205' \nA\241)\207" [gnus-cache-active-hashtb group cache-active active intern-soft] 4 (#$ . 6888)])
#@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 (#$ . 7185)])
#@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 (#$ . 8094) "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 (#$ . 8873) "P"])
#@53 Say whether ARTICLE is cached in the current group.
(defalias 'gnus-cached-article-p #[(article) " >\207" [article gnus-newsgroup-cached] 2 (#$ . 9708)])
#@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 (#$ . 9869) 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 (#$ . 10242) 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])
#@167 Alist of original group names and decoded group names.
Decoding is done according to `gnus-group-name-charset-method-alist'
or `gnus-group-name-charset-group-alist'.
(defvar gnus-cache-decoded-group-names nil (#$ . 11218))
#@565 Alist of unified decoded group names and original group names.
A group name is decoded according to
`gnus-group-name-charset-method-alist' or
`gnus-group-name-charset-group-alist' first, and is encoded and
decoded again according to `nnmail-pathname-coding-system',
`file-name-coding-system', or `default-file-name-coding-system'.
It is used when asking for an original group name from a cache
directory name, in which non-ASCII characters might have been unified
into the ones of a certain charset particularly if the `utf-8' coding
system for example was used.
(defvar gnus-cache-unified-group-names nil (#$ . 11448))
#@39 Return a decoded group name of GROUP.
(defalias 'gnus-cache-decoded-group-name #[(group) "\306 \"A\2060 \307!\n\206 \206 \f \n\nB B\310\311\n
\"
\"B B \n*\207" [group gnus-cache-decoded-group-names nnmail-pathname-coding-system file-name-coding-system default-file-name-coding-system coding assoc gnus-group-decoded-name decode-coding-string encode-coding-string decoded gnus-cache-unified-group-names] 4 (#$ . 12075)])
(defalias 'gnus-cache-file-name #[(group article) "\306!\307 ;\203 \202 \310 !\311\307\312\313\314!\203 \202O \315\316\317 \320 \n\f#+\321\317#\322\323\"\203C \324\211\224O\325\324\225\326OQ\321\316 \320 \n\f#,\327\"
\"!\"\207" [group article to from string gnus-cache-directory gnus-cache-decoded-group-name 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 ":" 0 "/" nil 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 (#$ . 13068)])
#@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\225\306O\202( ) \"\211 @ A)\314
\"\315\f!\205\243 \204T \316 !\"#$\205\243 \212\317 \f\320#\210\321\f!\210$Aq\210eb\210\322\323
!\324P!\204 \325\326\323
!\324Qd\320#\203\207 \327 \330y\210`|\210)\331 %\"\211%\204\236 \332&\"\306L\210\320'\333 !\210\320,\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 "^[^:]+:" 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 intern 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 (#$ . 13427)])
#@51 Return a sorted list of cached articles in GROUP.
(defalias 'gnus-cache-articles-in-group #[(group) "\306\307\310\"!\311 \312\f!\205G \313\314\315\316\f\311\317\320$\"\321\"\211\2034 \322 @\320#\210\322\323 !@\"\210\202F \324
\"J\203F \325
\"\311L\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 intern-soft intern gnus-cache-active-altered] 9 (#$ . 14493)])
(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 (#$ . 16740) nil])
#@29 Read the cache active file.
(defalias 'gnus-cache-read-active #[(&optional force) "\305!\210\306 !\203 \307\310 !8\311U\204 \n\203 \312 \207\212\313 \210\314 !\210\315\316\317\320ed\"!\211\"\210\316\211)\207" [gnus-cache-directory gnus-cache-active-file force gnus-cache-active-hashtb gnus-cache-active-altered gnus-make-directory file-exists-p 7 file-attributes 0 gnus-cache-generate-active gnus-set-work-buffer nnheader-insert-file-contents gnus-active-to-gnus-format nil gnus-make-hashtable count-lines] 6 (#$ . 17385)])
#@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 (#$ . 17921)])
#@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\"J\211 \203&
@\f@W\204 \310
A\fAV\204& \310)\202- \311 \210 \2038 \312
@\306#\210\205A \312
A\"*\207" [higher lower gnus-cache-active-hashtb group cache-active active t intern-soft nil gnus-cache-read-active gnus-cache-update-active] 5 (#$ . 18209)])
#@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 \"J\211\204 \307 \" \211BL\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 intern-soft intern t] 4 (#$ . 18709)])
#@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\316!\317\225\320O\321\322 * + ,\323+*,#+ -\320\211 . / \203W \324\325\326\"\210\327\330!0\312\331-\"\203h \332\333\334\320-$-
\203\224 \312\335\336
@!\"\203\207 \337\336
\211A\242!!.B.\202h
\211A\242/B/\202h \340.\341\"\211.\203\271 \342\343-1\"A\206\254 -0\".@\344.!BL\210/\320 2\211 3\203\350 3@2\3452!\203\337 \312\346\3362!\"\204\337 \3472!\2103A\2113\204\304 * \205\365 \350\334!\210\324\325\351\".\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 0 nil 47 46 subst-char-in-string gnus-message 5 "Generating the cache active file..." gnus-make-hashtable 123 "^\\(nn[^_]+\\)_" replace-match "\\1:" t "^[0-9]+$" file-name-nondirectory string-to-number sort < intern assoc gnus-last-element file-directory-p "^\\." gnus-cache-generate-active gnus-cache-write-active "Generating the cache active file...done" to from string group nums alphs gnus-cache-active-hashtb gnus-cache-unified-group-names file --dolist-tail--] 7 (#$ . 19097) 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 (#$ . 20425) (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 (#$ . 20771) "FMove the cache tree to: "])
#@142 Returns 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 (#$ . 20957)])
#@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\"J \314 \"J \206; \315 \"L\210\315\"\316L\210\203[ \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 intern-soft intern 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 (#$ . 21346)])
#@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\"J \314\f\"\315L\210
\2033 \211\2027 \316!*\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 intern-soft intern nil gnus-cache-write-active group-hash-value gnus-cache-active-altered] 3 (#$ . 22195)])
(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\223 \306\307\n\"J\206 \310\n\"\311\312\313\"L\314
\203+ \315\316
!8\206' \313\202d \317\320\n\321\"\306\314\306$ \314\211 \322\211A\242\211\203c \316
!\211@\204A \f\323\3158!\\\202A ,\306 A\211 \211@\203x \f[\202y \f\\\240,\203\223 \204\223 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 intern-soft intern make-vector 2 0 nil 7 file-attributes 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) "\205O \306\307\n\"J\206 \310\n\"\311\312\313\"L\f \314\315\206% \316\n\317\"!8\206+ \313 \306 \211 \240-\203O \204O 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 intern-soft intern make-list 2 0 7 file-attributes gnus-cache-file-name ".overview" 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 \"J\305 \"\nL\210\305 \"\306L)\207" [gnus-cache-total-fetched-hashtb old-group entry new-group intern-soft intern nil] 3 (#$ . 24810)])
#@58 Delete record of disk space used by GROUP being deleted.
(defalias 'gnus-cache-delete-group-total-fetched-for #[(group) "\205\n \302 \"\303L\207" [gnus-cache-total-fetched-hashtb group intern nil] 3 (#$ . 25116)])
#@65 Get total disk space used by the cache for the specified GROUP.
(defalias 'gnus-cache-total-fetched-for #[(group &optional no-inhibit) "\305\232?\205. \204 \306\307!\310 \"J\211\203 \311\312\n\"\202- ? \313\314\"\315\314\"\\))\207" [group gnus-cache-total-fetched-hashtb entry no-inhibit gnus-cache-inhibit-update-total-fetched-for "dummy.group" gnus-make-hashtable 1024 intern-soft apply + gnus-cache-update-overview-total-fetched-for nil gnus-cache-update-file-total-fetched-for] 5 (#$ . 25338)])
(provide 'gnus-cache)
|