From 75327e9460257356ddae092997af290cec794550 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:25:23 +0000 Subject: [PATCH] Add declare-function compatibility definition. (gnus-request-group): Autoload it. (gnus-request-create-group): Declare as a function. --- lisp/gnus/nnfolder.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index bf82791fea6..8dc28a3eaf6 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el @@ -31,6 +31,10 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (require 'nnheader) (require 'message) (require 'nnmail) @@ -429,6 +433,10 @@ the group. Then the marks file will be regenerated properly by Gnus.") ;; The article numbers are increasing, so this result is sorted. (nreverse numbers))))) +(autoload 'gnus-request-group "gnus-int") +(declare-function gnus-request-create-group "gnus-int" + (group &optional gnus-command-method args)) + (deffoo nnfolder-request-expire-articles (articles newsgroup &optional server force) (nnfolder-possibly-change-group newsgroup server) -- 2.39.2