Mercurial > emacs

comparison lisp/gnus/gnus-cache.el @ 91239:2fcaae6177a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
author Miles Bader <miles@gnu.org>
date Sun, 16 Dec 2007 05:08:49 +0000
parents 53108e6cea98 6df659d50dc9
children 606f2d163a64
comparison
equal deleted inserted replaced
91238:5cf14a2107b5 91239:2fcaae6177a5
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;;; Code: 28 ;;; Code:
29 29
30 ;; For Emacs < 22.2.
31 (eval-and-compile
32 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
33
30 (eval-when-compile (require 'cl)) 34 (eval-when-compile (require 'cl))
31 35
32 (require 'gnus) 36 (require 'gnus)
37 (require 'gnus-sum)
38
33 (eval-when-compile 39 (eval-when-compile
34 (unless (fboundp 'gnus-agent-load-alist) 40 (unless (fboundp 'gnus-agent-load-alist)
35 (defun gnus-agent-load-alist (group))) 41 (defun gnus-agent-load-alist (group))))
36 (require 'gnus-sum))
37 42
38 (defcustom gnus-cache-active-file 43 (defcustom gnus-cache-active-file
39 (expand-file-name "active" gnus-cache-directory) 44 (expand-file-name "active" gnus-cache-directory)
40 "*The cache active file." 45 "*The cache active file."
41 :group 'gnus-cache 46 :group 'gnus-cache
88 (defvar gnus-cache-removable-articles nil) 93 (defvar gnus-cache-removable-articles nil)
89 (defvar gnus-cache-buffer nil) 94 (defvar gnus-cache-buffer nil)
90 (defvar gnus-cache-active-hashtb nil) 95 (defvar gnus-cache-active-hashtb nil)
91 (defvar gnus-cache-active-altered nil) 96 (defvar gnus-cache-active-altered nil)
92 (defvar gnus-cache-total-fetched-hashtb nil) 97 (defvar gnus-cache-total-fetched-hashtb nil)
98
99 (declare-function nnvirtual-find-group-art "nnvirtual" (group article))
93 100
94 (eval-and-compile 101 (eval-and-compile
95 (autoload 'nnml-generate-nov-databases-directory "nnml") 102 (autoload 'nnml-generate-nov-databases-directory "nnml")
96 (autoload 'nnvirtual-find-group-art "nnvirtual")) 103 (autoload 'nnvirtual-find-group-art "nnvirtual"))
97 104