(declare-function): Add compatibility declaration.

(gnus-summary-from-or-to-or-newsgroups): Declare as function.

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el
index f87377cb1ed..5b8bf92ffdb 100644
--- a/lisp/gnus/gnus-spec.el
+++ b/lisp/gnus/gnus-spec.el
@@ -27,6 +27,9 @@
 
 ;;; Code:
 
+;; For Emacs < 22.2.
+(eval-and-compile
+  (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
 (eval-when-compile (require 'cl))
 (defvar gnus-newsrc-file-version)
 
@@ -87,6 +90,9 @@ text properties. This is only needed on XEmacs, as FSF Emacs does this anyway."
 (defvar gnus-tmp-header)
 (defvar gnus-tmp-from)
 
+(declare-function gnus-summary-from-or-to-or-newsgroups "gnus-sum"
+                  (header gnus-tmp-from))
+
 (defun gnus-summary-line-format-spec ()
   (insert gnus-tmp-unread gnus-tmp-replied
           gnus-tmp-score-char gnus-tmp-indentation)