# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1197350751 0
# Node ID 1efb9854eedf651a7b617a4af31134882c3e2016
# Parent  532e902090ef73fcd6166eeb8781eb3d848a7f95
Add declare-function compatibility definition.
(nndb-request-article): Declare as a function.

diff -r 532e902090ef -r 1efb9854eedf lisp/gnus/nndb.el
--- a/lisp/gnus/nndb.el	Tue Dec 11 05:25:23 2007 +0000
+++ b/lisp/gnus/nndb.el	Tue Dec 11 05:25:51 2007 +0000
@@ -48,6 +48,12 @@
 ;; * make the backend TOUCH an article when marked as expireable (will
 ;;   make article expire 'expiry' days after that moment).
 
+;;; Code:
+
+;; For Emacs < 22.2.
+(eval-and-compile
+  (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
+
 ;;-
 ;; Register nndb with known select methods.
 
@@ -55,8 +61,6 @@
 (unless (assoc "nndb" gnus-valid-select-methods)
   (gnus-declare-backend "nndb" 'mail 'respool 'address 'prompt-address))
 
-;;; Code:
-
 (require 'nnmail)
 (require 'nnheader)
 (require 'nntp)
@@ -240,6 +244,9 @@
       (nndb-request-expire-articles-remote articles group server force)
     (nndb-request-expire-articles-local articles group server force)))
 
+;; _Something_ defines it...
+(declare-function nndb-request-article "nndb" t t)
+
 (deffoo nndb-request-move-article
     (article group server accept-form &optional last move-is-internal)
   "Move ARTICLE (a number) from GROUP on SERVER.