From 39c7e99daeb94a360f551f9c3b9d8372e71ea459 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:45:43 +0000 Subject: [PATCH] Add declare-function compatibility definition. (nnkiboze-score-file): Declare as a function. --- lisp/gnus/gnus-group.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 5843214e48a..73d632591b5 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -27,6 +27,10 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (eval-when-compile (require 'cl)) (defvar tool-bar-mode) @@ -3004,6 +3008,8 @@ mail messages or news articles in files that have numeric names." (list 'nndir (gnus-group-real-name group) (list 'nndir-directory dir))))) (defvar nnkiboze-score-file) +(declare-function nnkiboze-score-file "nnkiboze" (group)) + (defun gnus-group-make-kiboze-group (group address scores) "Create an nnkiboze group. The user will be prompted for a name, a regexp to match groups, and -- 2.39.2