# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1197351822 0
# Node ID 977e07d44319f4b1659762e3f7dafcace2f50e81
# Parent  6207f5a83057a90450ea1cd67da1365442db4851
Add declare-function compatibility definition.
(gnus-compress-sequence): Autoload.
(imap-capability): Declare as a function.

diff -r 6207f5a83057 -r 977e07d44319 lisp/gnus/mail-source.el
--- a/lisp/gnus/mail-source.el	Tue Dec 11 05:42:15 2007 +0000
+++ b/lisp/gnus/mail-source.el	Tue Dec 11 05:43:42 2007 +0000
@@ -27,6 +27,10 @@
 
 ;;; Code:
 
+;; For Emacs < 22.2.
+(eval-and-compile
+  (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
+
 (require 'format-spec)
 (eval-when-compile
   (require 'cl)
@@ -997,9 +1001,14 @@
   (autoload 'imap-range-to-message-set "imap")
   (autoload 'nnheader-ms-strip-cr "nnheader"))
 
+(autoload 'gnus-compress-sequence "gnus-range")
+
 (defvar mail-source-imap-file-coding-system 'binary
   "Coding system for the crashbox made by `mail-source-fetch-imap'.")
 
+;; Autoloads will bring in imap before this is called.
+(declare-function imap-capability "imap" (&optional identifier buffer))
+
 (defun mail-source-fetch-imap (source callback)
   "Fetcher for imap sources."
   (mail-source-bind (imap source)