From d09ae6ca78bb45c9c8042bdbc5e568febc020980 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 9 Dec 2007 02:07:07 +0000 Subject: [PATCH] (declare-function): Add compatibility declaration. (gnus-get-predicate): Declare as function. --- lisp/gnus/gnus-sum.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 826fdd71896..72a79035f0c 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.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)) @@ -5576,6 +5579,8 @@ If SELECT-ARTICLES, only select those articles from GROUP." (gnus-inverse-list-range-intersection gnus-newsgroup-articles gnus-newsgroup-seen)))) +(declare-function gnus-get-predicate "gnus-agent" (predicate)) + (defun gnus-summary-display-make-predicate (display) (require 'gnus-agent) (when (= (length display) 1) -- 2.39.2