changeset 87234:532e902090ef

Add declare-function compatibility definition. (gnus-request-group): Autoload it. (gnus-request-create-group): Declare as a function.
author Glenn Morris <rgm@gnu.org>
date Tue, 11 Dec 2007 05:25:23 +0000
parents 98afb1afc305
children 1efb9854eedf
files lisp/gnus/nnfolder.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/nnfolder.el	Tue Dec 11 05:24:02 2007 +0000
+++ b/lisp/gnus/nnfolder.el	Tue Dec 11 05:25:23 2007 +0000
@@ -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 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)