Mercurial > emacs

comparison lisp/gnus/gnus-cache.el @ 87253:6df659d50dc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add declare-function compatibility definition. Require gnus-sum not just when compiling. (nnvirtual-find-group-art): Declare as a function.
author Glenn Morris <rgm@gnu.org>
date Tue, 11 Dec 2007 05:47:37 +0000
parents 781256628613
children 107ccd98fa12 2fcaae6177a5
comparison
equal deleted inserted replaced
87252:a48038ce7d61 87253:6df659d50dc9
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