summaryrefslogtreecommitdiff
path: root/lisp/gnus
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2007-12-11 05:45:43 +0000
committerGlenn Morris <rgm@gnu.org>2007-12-11 05:45:43 +0000
commit39c7e99daeb94a360f551f9c3b9d8372e71ea459 (patch)
treea73bac95a4c2049e4cd40df53e508b68d0a30d80 /lisp/gnus
parentfe86b5e0085e687c2977770477251260c011038c (diff)
downloademacs-39c7e99daeb94a360f551f9c3b9d8372e71ea459.tar.gz
emacs-39c7e99daeb94a360f551f9c3b9d8372e71ea459.tar.bz2
emacs-39c7e99daeb94a360f551f9c3b9d8372e71ea459.zip
Add declare-function compatibility definition.
(nnkiboze-score-file): Declare as a function.
Diffstat (limited to 'lisp/gnus')
-rw-r--r--lisp/gnus/gnus-group.el6
1 files changed, 6 insertions, 0 deletions
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